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Introduction 



Tout au long de ces vingt et un chapitres, vous allez apprendre a developper des 
applications Windows en Visual Basic. Nous nous efforcerons de rendre cet apprentis- 
sage aussi peu rebarbatif que possible. La simplicite du langage et le caractere visuel de 
l'environnement font de Visual Basic un outil des plus conviviaux. En fait, la creation 
d'une application en Visual Basic consiste en grande partie dans la disposition des 
controles qui formeront l'interface. Votre application Windows apparait au fur et a 
mesure que vous ajoutez les objets, et telle qu'elle le sera a l'utilisateur. Visual Basic 
est, a ce propos, l'un des tout premiers langages de programmation a avoir integre un 
environnement reellement WYSIWYG (what you see is what you get, ou tel ecrit tel 
ecran) . 

Meme si vous n'avez encore jamais ecrit une seule ligne de code, ces vingt et un 
chapitres sauront vous initier, dans la plus grande simplicite, aux techniques de 
programmation professionnelles. Chaque chapitre traite son sujet specifique de fond en 
comble en l'etayant d'exemples de code, dans un esprit de travaux pratiques. Exercices 
et questions-reponses vous permettront d'affermir et de mettre en ceuvre les notions 
etudiees dans chaque chapitre. Enfin, les Projets bonus repartis a travers l'ouvrage vous 
invitent a mettre "la main a la pate", pour creer des applications completes et fonction- 
nelles, et le fonctionnement est ensuite analyse ligne par ligne. Ainsi, chaque acquis est 
renforce d'une mise en pratique. Vous creerez meme votre premier programme Visual 
Basic des le Chapitre 1 ! 

Enseigner la programmation Visual Basic au nouveau venu est une tache delicate, en 
raison notamment d'une evolution parallele des outils et des competences que cela 
requiert. Certains en viennent a Visual Basic apres avoir tate de langages de program- 
mation plus avances — mais aussi plus fastidieux — , tels que C++. D'autres ont 
seulement l'experience que de QBasic. QBasic est un langage fourni sur la plupart des 
PC depuis de nombreuses annees. L'interface textuelle de MS-DOS, lente et peu 
commode, a valu a QBasic son obsolescence. Pourtant, QBasic n'est jamais qu'un 
cousin un peu eloigne de Visual Basic, et en constitue une excellente passerelle. Enfin, il 
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y a les vrais debutants, ceux qui n'ont jamais programme. Pour ceux-la, Visual Basic 
n'est pas la seule nouveaute : ce sont les principes de la programmation elle-meme qu'il 
faudra aussi leur faire decouvrir. 

Visual Basic est bien plus qu'un simple langage de programmation. Ce langage pilote 
en arriere-plan tout ce qui se passe pendant l'execution du programme. Mais, pour le 
programmeur comme pour l'utilisateur, c'est l'interface visuelle qui prime. Les applica- 
tions Windows offent aux utilisateurs un haut degre d' interaction, grace au systeme de 
fenetres et aux divers objets graphiques. Le code peut etre aussi efficace que Ton 
voudra, si l'interface n'est pas satisfaisante, l'utilisateur n'aimera pas votre programme. 
Vous serez harcele de demandes d'aide et de support. Et vos clients pourraient hesiter a 
acheter les mises a jour ulterieures. 

C'est pourquoi nous insisterons, particulierement au debut de l'ouvrage, sur cette question 
de l'interface utilisateur. Une fois que vous serez capable de concevoir et de creer une 
interface viable et attrayante, alors seulement vous commencerez a etudier la mecanique 
interne des programmes. 

Notre monde change rapidement. Les entreprises se renouvellent, les secteurs se restruc- 
turent, les activites se transforment. Vos programmes doivent suivre le mouvement. lis 
doivent etre flexibles et aises a maintenir, afin de pouvoir satisfaire a tous les changements 
demandes par le client. Nous insisterons done egalement sur les etapes de conception, 
d'ecriture, de test et de maintenance qui font un programme de qualite. Un programme est 
ecrit une fois, mais actualise de nombreuses fois. En suivant les principes que nous vous 
indiquerons quant a l'ecriture du code, vous vous epargnerez pas mal de peine au moment 
de la maintenance et de la mise a jour. 

Entre theorie et pratique, nous tenterons de vous faire decouvrir le plus d' aspects 
possible de Visual Basic, tout en prenant soin d'eviter les details qui ne concernent pas 
le programmeur Visual Basic "normal". Nous nous attacherons a l'essentiel : vous aider 
a construire des programmes efficaces, concis, clairs, documented et faciles a maintenir. 

Voici, entre autres, ce que vous apprendrez a : 

• construire une interface utilisateur appropriee ; 

• jeter les bases du programme avec l'assistant Creation d' applications ; 

• structurer le code de sorte que le programme s'execute sans accrocs ; 
comprendre les outils les plus courants de l'environnement Visual Basic ; 

• maitriser l'art du debogage ; 

• integrer a vos applications les technologies de bases de donnees ; 
integrer l'acces Internet au cceur de vos programmes ; 
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• gerer les controles ActiveX qui permettent a Visual Basic d'exploiter des outils venus 
d'autres langages ou applications ; 

• creer vos propres objets d' interface grace aux fonctionnalites ActiveX de Visual 
Basic ; 

acceder au moteur d'aide en ligne pour faciliter la tache des utilisateurs ; 

• offrir, grace aux boites de dialogue communes, une interface familiere a vos 
utilisateurs ; 

• permettre a l'utilisateur d'executer une commande d'un simple clic, par le biais des 
barres d'outils et des coolbars ; 

• programmer les API Windows qui permettront a Visual Basic d'exploiter des 
fonctionnalites Windows supplementaires ; 

dynamiser vos applications a l'aide des images et du multimedia. 



Partie 
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Cette partie vous apprend a manceuvrer dans l'environnement Visual Basic, a creer les 
elements visuels de votre application Windows, et vous enseigne les fondements du 
langage de programmation Visual Basic. 

Des le premier chapitre, vous allez creer une application semblable aux applications 
Windows que vous avez deja eu l'occasion d'utiliser. Les chapitres suivants vous font 
decouvrir les differents objets et techniques qui rendront vos programmes plus puissants. 
A la fin de chacun de ces chapitres, une serie de questions et d'exercices vous permet de 
recapituler vous-meme les points importants et de les mettre en pratique. 

La programmation exige plus que la simple connaissance du langage et de ses commandes. 
En progressant dans les chapitres qui suivent, vous comprendrez mieux l'importance 
d'ecrire des programmes clairs et bien documented. Le contexte dans lequel les utili- 
sateurs exploitent vos applications change, et vos applications doivent changer 
egalement. En suivant les principes et exemples etudies des le debut, vous apprendrez a 
ecrire des programmes faciles a maintenir. 

Visual Basic sert a concevoir des programmes Windows. Dans cette partie, nous passe- 
rons en revue tous les elements (ou presque) qu'implique cette interface. Vous appren- 
drez ainsi a disposer des controles sur la feuille, a creer et a repondre aux menus, ainsi 
qu'a gerer les autres types d' interactions entre l'utilisateur et le programme. Vous 
commencerez alors a maitriser le cceur de Visual Basic : le langage de programmation. 

Visual Basic est l'un des outils de programmation les plus conviviaux. Le develop- 
pement d'une application consiste en grande partie a disposer des objets graphiques et 
a en regler le comportement a l'aide de proprietes. Visual Basic est en fait le seul vrai 
langage de programmation que les debutants puissent apprendre si facilement. II 
permet egalement aux programmeurs avances de creer des applications Windows puis- 
s antes. 

Que vous soyez novice ou un peu experimente, vous serez surpris de decouvrir ce que 
Visual Basic peut faire pour vous, et ce que vous pouvez faire avec Visual Basic. 
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Chapitre 



Presentation 
de Visual Basic 

Visual Basic 6 est la derniere — et la meilleure — version du langage de program- 
mation Visual Basic de Microsoft. Si l'ecriture de programmes est parfois une 
assommante corvee, Visual Basic reduit les efforts a fournir et peut faire de cette activite 
une partie de plaisir. Avec Visual Basic 6, la plupart des taches de programmation 
deviennent aussi simples que de deplacer des objets graphiques a l'aide de la souris. 

Nous commencons ici un enseignement de Visual Basic en vingt et un jours. Avant la fin 
de ce chapitre, vous aurez cree votre toute premiere application Visual Basic. Au terme 
des trois prochaines semaines, vous maitriserez Visual Basic 6 et serez en mesure de 
developper des applications efficaces selon vos besoins. 

Voici ce que nous etudierons aujourd'hui : 

• l'histoire de Visual Basic ; 

les methodes et les processus de programmation ; 

• comment l'interface visuelle de Visual Basic rend la programmation simple et 
amusante ; 

l'assistant Creation d' applications ; 

• pourquoi la programmation evenementielle est si importante en environnement 
Windows. 
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Les dessous de Visual Basic 



Une fois saisis les fondements de Visual Basic, vous serez a meme d'en exploiter tous les 
ressorts. Microsoft a construit Visual Basic sur la base d'un langage de programmation 
pour debutants : le BASIC. Sous une forme ou une autre, le BASIC est utilise depuis plus 
de trente-cinq ans. L'objectif de ses premiers concepteurs etait de developper un langage 
de programmation accessible aux novices. Avec le BASIC, les programmeurs en herbe 
devenaient rapidement efficaces. Les autres langages de programmation en usage a 
l'epoque, tels que le COBOL, le FORTRAN ou l'Assembleur, necessitaient un apprentis- 
sage beaucoup plus pousse avant d'etre reellement productif. 



BASIC est I'acronyme de Beginner's All-purpose Symbolic Instruction Code 
(code d' instructions symboliques multifonction pour debutants). Ca parle de 



soi-meme . 



Un langage de programmation est un ensemble de commandes et d' options 
de commandes (les arguments) par lequel on envoie des instructions a 
V ordinateur. Les ordinateurs ne peuvent pas (pas encore) comprendre le 
langage des humains, d'abord parce que les humains peuvent reagir a des 
instructions ambigues, ce qui est foncierement impossible pour la machine. 
Un langage de programmation doit etre plus precis qu'un langage naturel. 



Les langages de programmation sont plus faciles a apprendre que les langues 
etrangeres . Les langages pour ordinateurs comprennent souvent mains de 300 
commandes, commandes qui renvoient a des syntaxes ou des concepts fami- 
liers meme aux non-anglophones : Open (ouvrir), Next (suivant), etc. 



Bien que ce langage fflt concu pour les debutants, les programmes BASIC restaient quelque 
peu esoteriques, et demandaient malgre tout un apprentissage. Le Listing 1.1 montre un 
exemple de programme ecrit en BASIC, dont le but est d'afficher le carre des nombres de 1 
a 10. Meme si vous pouvez, avec quelques rudiments de langue anglaise, en percer les 
grandes lignes, ce programme n'est certainement pas ce qui se fait de plus clair ; une 
comprehension minimale du BASIC est requise pour pleinement comprendre la raison 
d'etre et 1' articulation de ses elements. 



Les programmes sont souvent constitues de plusieurs programmes inter- 
agissant les uns sur les autres ; c'est pourquoi on designe souvent par 
application V ensemble des fichiers d'un programme. Le programme, ou 
application ecrite dans un langage de programmation, est un jeu d'instruc- 
tions qui dirige I 'ordinateur. 
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Listing 1.1 : Les premiers programmes BASIC, ou l'on numerotait les lignes, 
etaient quelque peu esoteriques 

10 REM Ce programme calcule et affiche les 10 premiers carres. 
20 CLS 

30 PRINT "Carres de 1 a 10" 

40 PRINT "Valeur", "Carre" 

50 FOR N = 1 TO 10 

60 PRINT N, (N*N) 

70 NEXT N 

80 PRINT 

90 END 



— 1 ) Ne pas faire 

W° Ne paniquez pas pour des histoires de carres. Vous n'aimez pas les maths ? 
Pas de probleme : Visual Basic fera a votre place tous vos devoirs de calcul. 



Si vous lanciez le programme BASIC, vous obtiendriez cette sortie : 



Carres de 1 a 10 



Valeur 


carre 


1 


1 


2 


4 


3 


9 


4 


16 


5 


25 


6 


36 


7 


49 


8 


64 


9 


81 


10 


100 



Notez que le BASIC est un langage strictement textuel. L'entree et la sortie des donnees 
se font en mode texte ; les fenetres et autres graphismes sont 1' apanage des programmes 
modernes. 

Visual Basic n'a pas ete cree directement depuis le BASIC original. Bien que, en trente- 
cinq ans, le BASIC ait evolue sous beaucoup de rapports, l'essentiel de sa structure a ete 
conserve. Le BASIC fut choisi par Microsoft comme langage de programmation princi- 
pal du premier systeme d' exploitation MS-DOS ; mais il a fallu le perfectionner et 
1'enrichir de nouvelles fonctionnalites, jusqu'a le reediter sous de multiples avatars : 
MBASIC (pour Microsoft BASIC), GWBASIC, BASICA (pour BASIC avance), Quick- 
BASIC, et enfm Qbasic — encore fourni sur les CD-ROM Windows. 



A travers cette evolution, le langage BASIC a garde sa nature simple, tout en s'enrichissant 
continuellement de nouvelles et puissantes commandes. Le caractere "texte pur" de 
langages comme QBasic permet aux programmeurs novices d'acquerir une certaine 
vitesse de travail plus facilement qu'avec la plupart des langages graphiques, comme 
Visual C++. Ann de maintenir cette facilite d'utilisation, Microsoft a voulu garder aux 
differentes versions du BASIC leur nature interpretee, opposee aux langages compiles. 
Avec un langage interprets, le programmeur peut executer immediatement son 
programme, voir sans delais les resultats et les eventuelles erreurs. Ce feedback instan- 
tane est capital pour les debutants, qui ont besoin de reponses rapides quand ils appren- 
nent a programmer. Les langages compiles s'executent plus rapidement et sont mieux 
appropries au developpement d' applications commerciales, mais requierent beaucoup 
plus d'efforts et d'apprentissage. 



Les langages interpretes, tel que le BASIC, vous permettent d' executer le 
programme a tout moment, alors que vous Vecrivez. Cette rapidite de la 
"reponse" enfant de bons points de depart pour V apprentissage . Les langa- 
ges compiles necessitent des etapes supplementaires , la compilation et la 
liaison, avant que le programmeur ne puisse executer son ceuvre. La compi- 
lation transpose le programme du langage dans lequel il a ete ecrit au langage 
natifde I'ordinateur. 



Alors que Windows devenait plus populaire, Microsoft a realise que QBasic, langage 
purement textuel, n'etait pas exploitable comme langage de programmation "fenetree". 
On a done developpe Visual Basic, langage fonde sur le BASIC, mais bien mieux adapte 
aux environnements modernes. Ala difference de QBasic et des autres avatars du 
BASIC, tous textuels, Visual Basic est un langage visuel. Bien qu'on rencontre aussi en 
Visual Basic du code plus ou moins semblable au programme du Listing 1.1, la plus 
grande partie d'un programme Visual Basic est constitute d'elements graphiques sans 
aucune ressemblance avec le code "a l'ancienne". La Figure 1.1 montre un ecran 
incluant de nombreux elements de programmation Visual Basic. 



Le code est un autre mot servant a designer V ensemble d 'instructions du 
programme. 



Bien avant d 'avoir referme ce livre, vous serez capable de dechiffrer tous les 
elements de la Figure 1 .1 . Lefauillis apparent de V ecran deconcerte un peu 
au debut, mais la simplicite de Visual Basic prend vite le pas. 
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Figure 1.1 

L'ecran de 

programmation Visual 
Basic peut paraitre 
un peu encombre, 
mais il s 'avere tres 
simple d' utilisation. 
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Si Visual Basic est devenu l'un des langages les plus utilises, c'est que, en plus d'etre 
graphique et simple d'utilisation, il est a la fois interprete et compile. A mesure que 
vous ecrivez votre programme Visual Basic, vous pouvez le tester en l'executant de 
facon interpretee, jusqu'a ce que tous les bogues aient ete isoles et elimines. Une fois le 
programme dument teste et tous les problemes regies, il ne reste qu'a compiler un 
executable rapide et sur (personne ne peut modifier facilement le programme), pret a 
etre distribue aux utilisateurs. En faisant de la compilation une simple option de menu, 
Visual Basic prend sur lui les etapes les plus delicates de la compilation (notamment un 
precede cabalistique du nom Sedition de liens), que les autres langages obligent a 
effectuer soi-meme. 

Un bogue (de V anglais bug) est une erreur dans le programme. Si votre 
programme ne s' execute pas correctement , il vous faudra le deboguer, c'est- 
a-dire eliminer une a une toutes les erreur s. 

A l'epoque oil Microsoft a sorti la premiere version de Visual Basic, beaucoup 
predisaient la decheance du langage BASIC (ainsi que de ses rejetons, comme QBasic). 
Ces mauvaises langues consideraient qu'un langage fonde sur le BASIC ne pouvait servir 
a la programmation serieuse, justement parce que ces personnes medisantes n'avaient 
jamais regarde le BASIC comme un langage serieux. Les langages tels que C, C++ et 
Pascal faisaient alors fureur, en raison de leurs possibilites de compilation et aussi parce 
que leurs structures de programmation s'adaptaient plus facilement a l'environnement 
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Windows. Avec Visual Basic, Microsoft a donne a la communaute des programmeurs les 
lecons suivantes : 

Un langage de type BASIC peut etre a la fois simple a comprendre et puissant. 

• Avec une interface adequate, un langage de type BASIC peut tres bien fonctionner 
en environnement Windows. 

• Visual Basic peut etre tantot langage interprets, tantot langage compile, selon les 
besoins du programmeur. 

• Loin d'etre obsolete, un langage fonde sur le BASIC peut devenir le langage le plus 
utilise dans le monde. 

La nature visuelle de Visual Basic 

Comme vous avez pu le voir sur la Figure 1.1, Visual Basic 6 est plus qu'un simple 
langage de programmation. Le secret de Visual Basic tient dans son nom : visual. Dans 
les systemes d' exploitation Windows d'aujourd'hui, les programmes doivent etre 
capables d'interagir graphiquement avec l'ecran, le clavier, la souris et 1'imprimante. 
Les langages de programmation plus anciens, comme le BASIC, etaient parfaits dans 
des environnements purement textuels, mais sont tout a fait inappropries aux interfaces 
graphiques des ordinateurs modernes. 

Durant cette premiere partie, vous ne verrez pas grand-chose du langage de programma- 
tion Visual Basic comme tel, parce que la procedure de programmation en Visual Basic 
engage beaucoup plus d' interactions avec 1' environnement visuel que de taches d'ecri- 
ture de code. C'est seulement lorsque vous aurez a creer des programmes plus avances 
qu'il vous faudra apprendre, du langage, plus que les quelques commandes traitees lors 
des premiers chapitres. 

' I Ce n'est pas seulement le langage BASIC sous-jacent qui rend Visual Basic 

facile a apprendre et a utiliser. La plus grande part du developpement d'un 
programme Visual Basic revient a glisser-deposer (avec la souris) des 
elements visuels sur l'ecran. Au lieu d'ecrire des series complexes d 'instruc- 
tions d'entree et de sortie pour gerer les interactions avec I'utilisateur, il 
vous suffira defaire glisser a trovers l'ecran des contrdles, tels que zones de 
texte et boutons de commande ; Visual Basic se charge de faire fonctionner 
proprement les contrdles lorsque I'utilisateur executera le programme . 
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L' utilisateur est celui qui utilise le programme . Vous, le programmeur qui ecrit 
les programmes , etes aussi utilisateur de vos propres programmes et de ceux 
qu'ecrivent les autres. Le syteme de programmation Visual Basic n'est rien 
d'autre qu'un programme dont on se serf pour creer d'autres programmes. 



Visual Basic est disponible en plusieurs editions : 

• Visual Basic Edition Entreprise. Creee pour la programmation en equipe et les 
environnements client- serveur, oil le traitement et les donnees sont distribues a 
plusieurs ordinateurs. 

• Visual Basic Edition Professionelle. Concue pour les programmeurs professionnels 
qui souhaitent exploiter pleinement l'environnement de programmation Visual Basic. 
Cette edition inclut un jeu complet d'outils et d'assistants pour l'empaquetage et la 
distribution des applications. Nous supposons, dans cet ouvrage, que vous utilisez 
l'Edition professionnelle, comme la plupart des programmeurs Visual Basic. Si toute- 
fois vous utilisez une autre version, la plupart des informations du livre s'appliquent 
egalement ; en effet, loin de nous etre centres exclusivement sur les outils de l'Edition 
professionnelle, c'est un tour d'horizon complet du langage et de l'environnement de 
programmation Visual Basic que nous vous proposons. 

• Visual Basic Edition Initiation. L'essentiel de Visual Basic, avec un jeu comple- 
mentaire d'outils standards — tout ce dont vous avez besoin pour vous lancer dans 
la programmation Visual Basic. Vous trouverez, dans la documentation complete du 
Microsoft Developer Network (reseau des developpeurs Microsoft), toute l'aide 
necessaire a l'apprentissage et a l'utilisation de Visual Basic. 

' La version speciale INFA de Visual Basic est livree avec le coffret Visual Studio. 

Visual Studio est un environnement de programmation qui supporte plusieurs 
langages Microsoft, dont Visual Basic, Visual C++ et Visual J++. L'environne- 
ment Visual Basic est identique a celui qu'emploient les utilisateur s d'autres 
langages. Si vous vous essayez d un autre langage de programmation Micro- 
soft, vous n'aurez done pas a maitriser un nouveau systeme de menus et de 
boites de dialogue. 



Pourquoi ecrire des programmes ? 



La plupart des utilisateurs d'ordinateur n'auront jamais a apprendre un langage de 
programmation. lis se contentent, en general, d'acheter leurs logiciels dans les maga- 
sins specialises, et ne ressentent jamais le besoin de programmes plus specialises. En 
revanche, il est difficile de trouver sur le marche un programme qui convienne exacte- 
ment a une tache specifique, notamment lorsqu'on utilise l'ordinateur a des fins 
professionnelles ou scientifiques. Vous pouvez imaginer un nouveau concept de jeu 
qui, une fois concretise en logiciel best-seller, vous permettrait de partir en preretraite 
aux Baleares. Si Ton a besoin d'une application specifique qui n'est nulle part 
disponible sur le marche, ou si Ton souhaite creer des logiciels pour gagner de 
l'argent, il faut concevoir et ecrire ces programmes a l'aide d'un langage de program- 
mation comme Visual Basic. 



— ' ) Souvenez-vous : vous ne pouvez simplement dire a l'ordinateur ce qu'il doit 
faire et attendre qu'il fasse le boulot pour vous. L'ordinateur n'est qu'une 
machine stupide et sans initiative ; il a besoin pour travailler que vous lui 
fournissiez une liste detaillee d' instructions. Vous lui communiquez ces 
instructions sous la forme d'un programme . Un programme Visual Basic est 
constitue de codes (semblables a celui du Listing 1.1) et d' elements visuels 
qui definissent V aspect de I'ecran et les controles Windows avec lesquels 
V utilisateur interagit lorsqu'il lance le programme . 



' ) En apprenant Visual Basic, vous apprenez aussi a automatiser les applica- 

£SVv> ce tions courantes comme celles que I' on trouve dans Microsoft Office. 

Microsoft Office est compose de plusieurs programmes qui travaillent 
enemble : traitement de texte, tableur, base de donnees, etc. Microsoft 
Office contient egalement une version complete du langage de program- 
mation Visual Basic, grace auquel on peut automatiser les applications 
Office. (Microsoft Office 97 integre Visual Basic pour Applications 5, 
version de Visual Basic destinee au developpement de sous-programmes 
pour les logiciels de la suite Office.) Par exemple, vous pouvez automatiser 
votre comptabilite mensuelle en ecrivant un programme qui consolide vos 
feuilles de calculs Excel. Le Visual Basic qui est livre avec les applications 
Office n 'est pas le systeme de developpement complet de Visual Basic 6, 
mais il inclut une version complete du langage qui vous permet de contro- 
ler au plus pres les applications . 
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Le processus de programmation 

Avec le temps, vous etablirez votre propre facon d'ecrire les programmes selon vos 
besoins. Cependant, il convient de suivre ces quelques regies et etapes lorsque vous 
programmez en Visual Basic : 

1 . Determiner ce que votre application devra faire en creant un schema general. 

2. Creer la partie visuelle de votre application (les ecrans et les menus avec lesquels 
l'utilisateur interagira). 

3. Ajouter le code en langage Visual Basic qui reliera tous ces elements visuels et qui 
automatisera le programme. 

4. Tester l'application afin de deceler et d'eliminer tous les bogues. 

5. Une fois les tests effectues, compiler le programme et distribuer l'application 
compilee aux utilisateurs. 



— 1 ) Meme si vous avez. teste votre programme pour le purger de tous ses bogues 
avant de distribuer l'application, il est toujours possible qu'un utilisateur 
decouvre un ou plusieurs nouveaux bogues. Les tests les plus approfondis ne 
garantissent jamais V absence definitive de bogues. Plus votre programme est 
complexe, plus il fait de choses, plus grandes sont les chances qu'un bogue 
pointe sa vilaine tete au moment ou vous et vos utilisateurs vous y attendez le 
moins. Malgre cette fonciere impossibilite de retirer tous les bogues, ilfaut 
tester, tester... et tester encore. Eprouver toutes les possibilites du 
programme pour touver le plus grand nombre possible de bogues avant de 
compiler et de distribuer l'application. 



En attendant que votre application Visual Basic soit minutieusement et totalement 
testee, avant compilation, vous pouvez aider a accelerer le processus. En testant le 
programme de facon interactive, vous pouvez localiser et corriger les bogues plus 
facilement et plus rapidement. Visual Basic inclut un systeme d'aide special, appele 
debogueur, qui vous aide a circonscrire les bogues reveles lors des tests. Vous apprendrez 
a vous servir du debogueur au Chapitre 21 . 



Un debogueur est un systeme de monitorage interactif, qui peut etre active ou 
desactive a I'interieur de Visual Basic, et qui vous aide a isoler les instructions 
fautives. Par exemple, si vous executez le programme que vous avez ecrit et 
qu'il renvoie un resultat incorrect, le debogueur vous permet d' isoler rapi- 
dement la section du programme qui contient le bogue. 
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Avant Visual Basic, l'ecriture de programme constituait une tache fastidieuse sous 
plusieurs rapports. Dans un environnement textuel, il fallait d'abord dessiner sur le 
papier tous les ecrans qui seraient affiches. II fallait ensuite montrer tout cela aux utilisa- 
teurs pour verifier que les dessins correspondaient exactement a leurs souhaits. Si vous 
conceviez un programme destine a une distribution de masse, comme un jeu ou une 
application commerciale "generaliste", vous deviez coucher sur le papier tous les 
ecrans, creer de complexes flux de donnees vers, et depuis, ces divers ecrans, creer les 
fichiers residents necessaires a l'execution du programme, et planifier a peu pres chaque 
detail avant meme de vous mettre au clavier. 

Grace a la nature visuelle de Visual Basic, vous ne touchez au clavier que bien plus tard 
dans le processus de programmation. Au lieu d'utiliser du papier, vous dessinez directe- 
ment vos ecrans a l'aide des outils Visual Basic. La Figure 1.2 presente un ecran de ce 
genre. Pour creer un tel ecran, aucun code n'est necessaire : tout ce que vous avez a 
faire, c'est de faire glisser les divers controles sur la fenetre Feuilles. 



Figure 1.2 

Visual Basic vous 
permet de concevoir 
et de creer les ecrans 
a mesure que 
vous developpez 
le programme. 
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La fenetre Feuilles, appelee aussi "feuille", presente Varriere-plan d'un ecran 
de programme Visual Basic et inclut des elements tels que boutons de 
commande et barres de defilement. Selon la nature et la complexity du 
programme, plusieurs fenetres de feuilles peuvent etre requises. 

Vous pouvez tester vos ecrans de programme (chaque feuille representant la trame d'un 
ecran) avant meme d'ajouter le code ; en effet, Visual Basic vous permet d'executer 
interactivement le programme des la creation de la premiere feuille. Vous pouvez ainsi 
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vous assurer de Telegance de l'ecran, et montrer un prototype aux commanditaires du 
programme, qui ne se generont pas pour vous en donner un avis. A ce stade de prototype 
precodage, il est beaucoup plus simple de modifier le programme lorsque que le code a 
ete ajoute. Cette fonction de prototypage est l'un des caracteres de Visual Basic qui vous 
permettent de programmer rapidement et efficacement. 

Un prototype est un programme d'essai qui ne contient presque aucune 
fonctionnalite , mais qui presente tout ou partie des ecrans qui composeront 
le produitfini. Ce prototype est teste par vous et par les utilisateurs finals du 
programme afin de determiner si les ecrans contiennent bien tous les 
elements requis. 

Vous pouvez toujours apporter de nouvelles modifications au programme, 
meme apres que vous I'avez, cree, teste, compile et distribue aux utilisateurs. 
Mais ce serait une procedure fastidieuse, et qui impliquerait de distribuer de 
nouveau aux utilisateurs tous lesfichiers de V application . Dans tous les cas, 
plus tot vous isolez les problemes, plus il est simple d'y remedier. 

La maintenance du programme 

Les bogues ne constituent pas la seule raison qui puisse vous pousser a modifier encore 
un programme, alors que vous croyez en avoir termine. La maintenance du programme 
est indispensable du fait que les exigences changent, les entreprises changent, les lois 
changent. Vous devez egalement retoucher le programme afin qu'il reste viable et 
d'actualite ; vous devrez regulierement le mettre a jour pour prendre en compte les 
changements qui l'affectent. En outre, les utilisateurs auront toujours de nouvelles 
exigences sur ce que le programme doit faire. 

La maintenance du programme est le terme employe pour designer la mise a 
jour du programme apres sa distribution. Cette mise a jour peut etre le fait 
d'une demande des utilisateurs ou d'un changement dans la f aeon dont le 
programme doit operer. 

En fait, un programme est ecrit une fois, mais retouche de nombreuses fois. Mieux vous 
assurez cette maintenance du programme, plus votre programme sera actuel et efficace. 
Vous pouvez decider de distribuer une nouvelle version du programme, avec un numero 
de version different qui s'affiche sur l'ecran de demarrage et informe les utilisateurs de 
la recence du logiciel installe sur leur systeme. 
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p,§Vv> ce // convient de n documented votre code afin que d'autres programmeurs 
puissent comprendre votre code s'ils devaient le modifier par la suite. 
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A mesure que vous avancerez dans votre decouverte du langage de programmation Visual 
Basic, vous apprendrez a ecrire clairement votre code, ainsi qu'a etablir la documentation 
du programme. Plus vous ajoutez de commentaires a votre programme, plus vous ecrivez 
clairement le code au lieu d'user d' instructions obscures et alambiquees, plus il vous sera 
facile, ainsi qu'a d'autres, de traquer des erreurs et d'entretenir le programme. 
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La documentation est en fait une description du programme . Vous pouvez 
inserer la documentation dans le programme lui-meme, de sorte que quiconque 
sera appele a le modifier pourra comprendre chaque section du programme 
sans avoir a en deviner le sens. Les descriptions internes au programme 
Visual Basic sont appelees commentaires . 



II convient d'ajouter les commentaires a mesure que vous ecrivez le programme, car 
c'est la que vous etes le plus a meme de le comprendre et de le decrire. Si vous 
attendez d'avoir termine 1' application, comme le font beaucoup de programmeurs , 
cette application risque de ne jamais etre correctement documented ; en effet, d'autres 
projets s'imposeront a vous, et les taches documentation sont souvent mises de cote une 
fois qu'un projet est acheve. 

A titre complementaire, il peut etre utile d' etablir une documentation externe, 
augmentee de captures des differents ecrans du programme et d'indications sur la facon 
dont l'utilisateur lance, utilise et quitte le programme. Plus complete sera la documen- 
tation que vous leur fournirez, plus facilement les utilisateurs maitriseront votre 
application ; et plus ils feront de bons clients. 



Votre premier programme 

Si vous etes familier des autres produits Windows, comme Microsoft Publisher, vous 
avez sans doute deja vu a l'ceuvre les assistants, qui vous aident et vous guident dans la 
creation de documents selon vos besoins. Visual Basic dispose aussi d'assistants qui 
vous aident a creer votre programme. Pour ecrire un programme Visual Basic, vous avez 
le choix de partir de zero ou de creer la charpente de l'application a l'aide d'un assistant. 
Une fois que 1' assistant a etabli la structure generale du programme, il ne vous reste 
qu'a le completer de tous les details. 

U assistant pose une serie de questions et sollicite de vous des precisions. 
A mesure que vous repondez, I 'assistant genere l'application selon les crite- 
res que vous avez specifies. Visual Basic propose plusieurs assistants, mais 
celui que vous invoquerez sans doute le plus souvent est V assistant Creation 
d' applications . 
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II est parfois difficile de choisir entre creer 1' application ex nihila et etablir la structure du 
programme a l'aide d'un assistant pour ensuite le finaliser selon les exigences du projet. 
Si Ton a deja developpe une application semblable a celle qui est requise, on peut 
simplement faire une copie de la premiere et la retravailler selon les nouveaux imperatifs. 
Avec le temps, vous apprendrez a apprecier les situations et a operer les bons choix. 

Pour vous aider dans vos premiers pas, cette section vous guidera dans la creation de 
votre toute premiere application. Vous decouvrirez avec quelle facilite l'assistant 
Creation d' applications vous permet de definir la structure du programme. Bien que 
1' application resultante ne soit pas vraiment exploitable comme telle (apres tout, ce 
n'est qu'un squelette), vous serez surpris de tout ce que l'assistant Creation d'applica- 
tions peut creer automatiquement. La lecon de demain vous enseignera a creer une 
application ex nihilo, sans recourir a l'assistant Creation d' applications. 



Cela peut paraitre surprenant, mais vous creerez. sans doute beaucoup plus 
souvent vos applications ex nihilo, ou a partir d'une application preexistante , 
que vous n'utiliserez. l'assistant Creation d' applications . L'assistant donne un 
preprogramme tout a fait fonctionnel ; mais vous developperez avec le temps 
un style de programmation personnel, et vous prefererez dans la plupart des 
cas travailler sur la base d'une de vos creations precedentes . Le style vient 
avec le temps et la pratique : soyez patient et explorez. Visual Basic. Faites 
des essais, n'ayez pas peur de vous fourvoyer, et attendez-vous a commettre des 
erreurs chaque fois que vous ecrirez un programme . La programmation, c'est 
de la creation. Et vous decouvrirez. combien, avec Visual Basic, cette creation 
peut etre plaisante. 



L'assistant Creation d' applications est pret a servir des le lancement de Visual Basic. 
Laboite de dialogue Nouveau projet, presentee a la Figure 1.3, s'affiche lorsque vous 
ouvrez Visual Basic depuis le bouton Demarrer de Windows. Les onglets de la boite de 
dialogue Nouveau projet proposent les choix suivants : 

• Nouveau. Vous permet de creer une nouvelle application a partir de rien ou a l'aide 
d'un assistant. 

Existant. Vous permet de selectionner et d'ouvrir un projet Visual Basic existant. 
Recent. Affiche une liste des projets Visual Basic recemment ouverts ou crees. 



Si vous avez referme la boite de dialogue Nouveau projet et que vous 
souhaitiez par la suite lancer l'assistant Creation d' applications , choisissez. 
la commande Nouveau projet du menu Fichier pour afficher de nouveau la 
boite de dialogue. Cette fois, par contre, les onglets Existant et Recent 
n ' apparaissent pas, car la commande de menu implique que vous souhaitiez. 
partir sur un nouveau projet. 
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Figure 1.3 

L 'assistant Creation 
d' applications 
peut etre selectionne 
depuis la boite 
de dialogue Nouveau 
projet. 




r~ Ne ply; afficher celle boife de dialogue 
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Le projet est la somme des fichiers qui constituent votre application. Une 
seule application peut etre composee de plusieurs fichiers, rassembles sous 
le nom de projet. Une partie de ces fichiers contient le code ; une autre 
partie contient des descriptions d'ecrans a I'interieur de leurs fenetres de 
feuilles respectives ; une autre, enfin, contient des informations avancees qui 
permettront a votre programme de communiquer avec d'autres programmes 
et modules au sein du systeme d' exploitation. 



Faire 

Pour que la boite de dialogue Nouveau projet cesse de s 'afficher automati- 
quement a chaque demarrage, cochez. la case Ignorer cette boite de dialogue 
a Vavenir. Au prochain demarrage de Visual Basic, elle n'apparaitra pas. 



L' assistant se lance lorsque vous double-cliquez sur l'icone Assistant Creation d' appli- 
cations. Le premier ecran qui s'affiche est un ecran d' introduction qui explique que 
1' assistant est pret a commencer. (Cet ecran vous permet egalement de charger un profil 
definissant des options particulieres ; nous n'y aurons pas recours dans cet ouvrage.) 
Comme avec la plupart des assistants, lorsque vous avez termine votre lecture et vos 
selections sur un ecran, vous cliquez sur le bouton Suivant pour passer a l'ecran suivant. 
La Figure 1 .4 montre la page suivante de 1' assistant, dans laquelle vous devez choisir un 
type d' interface. 
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Figure 1.4 

Le type d'interface 
determine la f aeon 
dont votre application 
manipulera les fenetres 
multiples. 





Quel type d'interface souhaitez-vous pour votre application? 



Description 

Comprend une fenetre 
principale contenant des 
fenetres filles. 




f~" Interface de type Navigateur 



Quel nom souhaitez-vous donner a votre application? 



Hide 



Annuler | < Precedent | Suivant > 



Terminer 



Voici les options qui vous sont proposees : 

• Interface multidocument (MDI). Permet a votre application de contenir plusieurs 
fenetres de documents. Avec une telle interface, vous travaillez sur plusieurs jeux 
de donnees dans plusieurs fenetres a l'interieur du programme. Chaque fenetre de 
document est appelee fenetre fille . 

• Interface monoducument (SDI). Une seule fenetre peut etre ouverte a la fois dans 
1' application. Vos applications seront, dans la plupart des cas, des applications SDI. 

• Style de l'explorateur. Permet a votre application d'exploiter une interface de type 
Explorateur Windows, avec dans le panneau de gauche un sommaire des rubriques 
et dans le panneau de droite le detail de la rubrique choisie. 

Cliquez sur Tune de ces options pour obtenir une description et afficher un schema en 
reduction d'une fenetre de programme type. Vous emploierez souvent l'interface mono- 
document, car la plupart des applications ne necessitent qu'une seule fenetre de donnees 
ouverte a la fois. Pour ce premier exemple, selectionnez 1' option Interface mono- 
document. 

L'ecran de 1' assistant vous demande aussi le nom de votre projet. Le nom par defaut, 
Projet 1 , laisse un peu a desirer, aussi le renommerez-vous en PremiereApp (les espaces 
sont interdites). Cliquez ensuite sur Suivant pour afficher la prochaine fenetre de 
l'assistant, telle qu'elle est reproduite en Figure 1 .5. 

L' assistant Creation d' applications ajoute au menu de l'application les options que vous 
avez selectionnees. II s'agit des options classiques que Ton retrouve dans la plupart des 
applications Windows. Les menus eux-memes seront du type menu deroulant standard. 
Vous avez le choix entre diverses options pour la barre de menus (Fichier, Edition, etc.) 
ainsi qu'entre des options de sous-menus, telles que Nouveau, Ouvrir ou Fermer. 
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Figure 1.5 

Selectionnez 

les options a inclure 

dans le menu 

de votre application. 



; Assistant Creation d applications - Menus 




bouhaitez-vous selectiunrier les menus et sous-menus que 
vous voulez dans votre application? 



Vous pouves toujours utiliser (e Createur de menus pour 
modifier les menus apres la creation de I'application. 



&Ouvrtr 
SFerrner 
[Separator] 
^Enregistrer 
2 Enregistrer &sous, . 
Enregistrer &tout 
[Separator] 



Annulei | -■ Fiecedenr | T ^ulvd-'t ;^ | Terminer 



L'esperluette (&) precedant la lettre d'un nom de menu indique la touche de raccourci, 
qui apparaitra en souligne ; par exemple, &Nouveau indique que Nouveau (voyez le 
soulignement) apparaitra dans le menu et que l'utilisateur pourra acceder a cette 
commande en appuyant sur Alt-N. Pour reellement placer le caractere esperluette dans 
le nom, placez-en deux ; ainsi, le nom de menu S&&SM donnera S&SM. Pour cette 
application, laissez toutes les options telles quelles (&Fichier, &Edition, Affic&hage, 
Fe&netre et &? doivent etre cochees). Cliquez sur Suivant pour poursuivre. 

Une fois que I'assistant Creation a" applications aura termine de generer 
I'application, les options de menu fonctionneront comme prevu. Par exem- 
ple, le menu Fichier se deroulera lorsque vous cliquerez sur Fichier ou 
appuierez sur Alt-F. 

Sur l'ecran suivant de I'assistant, reproduit en Figure 1.6, vous choisissez les boutons de 
barre d'outils que contiendra votre application. Comme vous pouvez le constater, I'assistant 
Creation d' applications fait deja une bonne partie du travail. En creant la barre d'outils 
initiale, I'assistant se charge d'une corvee qui, autrement, vous aurait echue. Le panneau de 
gauche presente les boutons disponibles, tandis que le panneau de droite affiche les boutons 
(et les separateurs qui les espacent) preselectionnes pour I'application. Comme pour les 
options de menus de l'ecran suivant, nous accepterons tous les parametres par defaut. 
Cliquez sur Suivant. 

L' assistant affiche maintenant l'ecran Ressources, dans lequel vous selectionnez les 
ressources qui seront exploiters par votre programme, tels que des fichiers texte multi- 
langages. Les programmes simples ne requierent generalement pas de ressources exter- 
nes. Pour cet exemple, maintenez l'option par defaut Non. Cliquez sur Suivant pour 
continuer. 
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Figure 1.6 

En creant la barre 
d'outils initiale, 
I 'assistant Creation 
d' applications vous 
fait gagner du temps. 



^ Assistant Creation ef applications - Personnaliser la barre d'outils 



Personnalisez la barre d'outils en depiacant les boutons souhaites sur la liste de droite. 
Changez I'ordre avec le-; Ffeches verticates et ajoutez des images externes avec le bouton 
d'image. Vous pouvez egalement faire glisser les elements d'une liste a I'autre. 



□ No 



[Separator] 






ii 


D Nouveau 


f Aide 




i 


S^Ouvrir 


>t?Aide Qu'est c 
Annuler 


e que c'est 




Q Enregistrer 
[Separator] 


^Arc 






^Jlmprimer 


«€ Barre 






[Separator] 


—1 Bouton 
tt Camera 




j 


X Couper 
1^1 Copier 


-1 1 




<l 1 



Annuler j < Precedent It'Si foanf^jl Terminer | 



L'ecran qui s'affiche, Connexion a Internet, vous permet d'integrer a votre application 
une interface Internet. Si vous selectionniez l'option Oui dans cette fenetre (ce que vous 
ne ferez pas pour 1' instant), l'assistant Creation d' applications ajouterait a l'application 
un navigateur Internet complet, qui fonctionnerait en gros comme Internet Explorer. Vos 
applications peuvent etre reliees a 1' Internet sans que vous ayez a programmer quoi que 
ce soit. Lorsque l'utilisateur entre une adresse Internet (ou URL, pour Uniform 
Resource Locator — localisateur unifie de ressources), comme http://www.ssm.fr, le 
navigateur affiche la page Web correspondante dans la fenetre de navigation de l'appli- 
cation, utilisant pour se connecter le service Internet par defaut du PC. Une page de 
demarrage par defaut peut etre specifiee, qui s'affichera automatiquement des que 
l'utilisateur lance le navigateur. 



***** 



L 'integration d'un navigateur Web a votre application suppose que l'utilisa- 
teur dispose d'une connexion Internet. Si teln'est pas le cas, une erreur sera 
generee lorsque l'utilisateur tentera de lancer le navigateur. 

Cette premiere application ne necessitant pas d'acces a 1' Internet, nous ne modifierons pas 
les selections par defaut de cet ecran. Cliquez sur Suivant. La fenetre qui s'affiche vous 
propose d'integrer a votre application les ecrans standards suivants : 

• Ecran de presentation au demarrage. Portant le nom de l'application, cet ecran 
s'affiche chaque fois que le programme est lance. 

• Boite de dialogue de connexion. Boite de dialogue dans laquelle l'utilisateur entre 
son nom et son mot de passe ; peut participer a la securite de votre application. 
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• Boite de dialogue de parametrage d'options. Boite de dialogue a onglets, vierge 
par defaut, dans laquelle les utilisateurs specifient des attributs que vous avez dermis 
pour 1' application. 

• Boite de dialogue A propos de. S'affiche lorsque l'utilisateur choisit l'option A 
propos de du menu "?" de l'application. 

Pour les besoins de notre application, cliquez sur l'option Boite de dialogue A propos de. 

Le bouton Modeles defeuilles vous permet de choisir entre plusieurs mode- 
les, disponibles depuis le dossier Modeles de Visual Basic. Les modeles 
selectionnes sont integres a V application . Le modele Addin (complement) 
permet d'ajouter unefeuille de votre propre librairie. Le modele Odbc log in 
(ouverture de session ODBC) offre aux utilisateurs un acces aux bases de 
donnees avancees. Le modele Tip of the day (Astuce du jour) affiche de 
facon aleatoire une rubrique conseil a chaque demarrage de l'application. 

Un modele de feuille est une feuille predefinie, mais que vous pouvez. 
modifier selon vos besoins. Les modeles de feuille s proposent les fonction- 
nalites susceptibles d'etre utilisees dans differentes applications . 

Apres avoir selectionne la feuille standard Boite de dialogue A propos de, vous pouvez 
cliquer sur Suivant pour jeter un coup d'ceil a l'ecran Feuille d'acces aux donnees, qui 
vous permet de rattacher a l'application des fichiers externes de bases de donnees. Nous 
n'utiliserons pas cette fonction pour l'instant ; vous pouvez done cliquer sur le bouton 
Terminer afin que Visual Basic acheve la creation de l'application initiale. 

En cliquant sur le bouton Afficher le rapport, vous faites apparaitre un 
recapitulatif du projet qui vient d'etre concu ; le rapport indique egalement 
les modifications qui peuvent etre apportees, et vous renvoie a d'autres 
assistants utiles. 

Bravo ! Vous venez de creer votre premiere application, sans connaitre grand-chose de 
Visual Basic et sans rien connaitre du langage de programmation Visual Basic. Au bout 
de quelques instants, Visual Basic vous fait savoir que la creation de votre application 
est terminee. Cliquez sur OK pour faire disparaitre la boite de dialogue. Vous pouvez 
maintenant lancer votre application. 

Apres avoir charge une application depuis le disque ou apres en avoir cree 
une, il convient de I'executer. Vous la verrez ainsi "tourner", comme le verront 
les utilisateurs unefois que vous aurez acheve les tests et la compilation. Visual 
Basic, e'est un peu comme une cuisine. Vous etes le cuisinier ; votre applica- 
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Hon, la recette. Changez la recette (V application), et le plat (le programme 
resultant) sera different. Selon la complexite de V application prevue, la phase 
de programmation pent etre assez longue ; cela, meme si vous avez recours a 
I'assistant Creation d' applications pour generer le programme initial. Pour 
voir "tourner" le programme alors que vous le creez, ilfaut I'executer. 



Pour lancer le programme, choisissez Execution, Executer. (L' execution en mode inte- 
ractif est l'option par defaut.) Vous pouvez voir dans le menu la touche de raccourci 
correspondante, F5. La Figure 1 .7 montre la fenetre qui s'affiche. 



Avec I'assistant Creation d' applications, vous avez produit une programme tout a fait 
fonctionnel (bien que squelettique et limite), simplement en repondant a des questions. 
La nouvelle application peut etre decrite comme suit : 

• Une fenetre de programme standard s'affiche, qui peut etre redimensionnee et 
deplacee. Le titre du projet, PremiereApp, apparait dans la barre de titre de la fenetre. 

• Une barre d'etat affiche la date et l'heure. Cette barre d'etat peut etre desactivee 
depuis le menu Affichage. 

• Un menu de travail propose quatre options. Seule l'option A propos du menu "?" 
fonctionne (essayez-la) ; mais les options de menu classiques, telles que Fichier, 
Ouvrir (qui ouvre une boite de dialogue de localisation de fichier) ou Edition, 
Couper, sont deja la a attendre que vous leur affectiez du code actif . Suivant en cela 
la convention Windows, la boite de dialogue A propos de propose un bouton Infos 
systeme. 



Figure 1.7 

Votre premiere 
application est creee ! 




Fichier Edition Aftichage ? 



I- nlxl 
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( — i Lafenetre Infos systeme affiche un recapitulatif complet du systeme d'exploita- 
tion et du materiel de Vutilisateur. Visual Basic genere ce recapitulatif en 

' executant un programme specifique qui determine la configuration exacte de la 

machine. ( Ce programme Infos systeme peut etre appele depuis d'autres empla- 
cements que la boite de dialogue A propos de.) Un tel recapitulatif peut se 
reveler tres utile lorsque les utilisateurs vous exposent un probleme lie a Vune 
de vos applications. II suffit de demander a Vutilisateur d'afficher pour verifier 
que son systeme d' exploitation et son materiel repondent bien aux exigences du 
programme . Lafenetre Infos systeme, en outre, permet de consulter rapidement 
I'etat des ressources, telles que Vespace disque et la memoire disponibles. 



• Une barre d'outils standard est affichee, a laquelle vous pouvez adjoindre de nouvel- 
les fonctionnalites, et qui peut etre activee et desactivee depuis le menu Affkhage. 

Cette application ne fait pas grand-chose, mais elle est fonctionnelle et ne demande plus 
de votre part qu'un travail de finition. Vous pouvez facilement modifier et enrichir 
l'application, ses menus, ses fenetres. Pour l'instant, l'application n'est que le recepta- 
cle de fonctionnalites a venir. Cependant l'assistant Creation d' applications, en generant 
ce canevas encore grossier, vous a epargne bien de la peine. Comme vous le verrez dans 
la lecon de demain, il est assez facile de creer de toutes pieces un projet fonctionnel ; 
mais l'assistant Creation d' applications jette les bases requises par la plupart des appli- 
cations. Alors pourquoi s'en priver ? 

Pour quitter l'application en cours d'execution, choisissez Fichier, Quitter. Visual Basic 
demande si vous souhaitez enregistrer le projet ; repondez non. Inutile d'enregistrer ce 
debut d'application, puisqu'il suffit de lancer l'assistant Creation d' applications de 
nouveau pour revenir au meme point. 



La programmation evenementielle 

La Figure 1.8 montre une fenetre de programme Windows. Cette fenetre contient 
plusieurs types de controles Windows, tels que boutons de commande, cases a cocher et 
barres de defilement. Ces controles forment seulement un exemple des multiples controles 
Windows que l'environnement de programmation Visual Basic met a votre disposition. 

De par sa nature visuelle, Visual Basic exige ce type de controles. En effet, et contraire- 
ment aux programmes ecrits en langages textuels "a l'ancienne", les programmes 
Windows reagissent a des evenements. Un evenement peut etre provoque par l'un de ces 
controles, mais aussi ressortir aux activites internes, comme l'horloge du PC. Les evene- 
ments se produisent toujours selon un ordre aleatoire. 
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Figure 1.8 

Les programmes 
Windows reagissent 
a des evenements . 



Zone de liste 
I 



Affichage | General | 
Grammaire et orthographe 



Ccmpatibilite 



Options recomrnandees pour: 



Edition | Impression 
I Modifications 

I 



Enregistrement 
Utilisateur 
Dossiers par defaut 



Options de i ornpatibilite pour: VB01.doc 
Substitution de polices. . . 



Cases kU 
cocher ~~ 



Microsoft Word 6.0/95 
Op tions; 

I - Changer le; L-oiice^ en function de la t.aille 
P Convertir V' en "" dans les sources de donnees de fusion 
l~~ Definir la largeur d'un espace comme dans WordPerfect 5,x 

V Etirer les espaces des Itgnes finissant par MAJ+RETOUR 
l~~ Etirer/comprimer selon un nombre entier de points 

V Imprimer corps de texte avant en-tete/pied de page 

l~~ Imprimer en noir et blanc si I'imprimante n'est pas une imprimante couleur 

V Intervertir bordures gauche et droite (pages irnpaires, vis-a-vis) 

V Justification complete comme dans WordPerfect 6.x pour Windows 

V Mettre les espaces de fin a la ligne suivante 



_ 



Par defaut.. 



Barres deD 
defilement 



Boutons de commande 



Par exemple, l'utilisateur du programme de la Figure 1.8 pourrait cliquer sur l'un des 
boutons, cocher Tune des cases ou activer l'une des zones de liste deroulante. Cet 
utilisateur peut proceder a des manipulations differentes, dans un ordre different, 
chaque fois qu'il se sert du programme. Pour repondre efficacement aux actions de 
l'utilisateur et aux autres activites propres a declencher un evenement, on emploie des 
techniques de programmation evenementielle . 



0fr 



Par evenement, on designe toute action qui se declenche lors de V execution 
du programme : die de souris , frappe au clavier, etc. Est oriente evenement 
un programme qui reagit aux evenements Windows. 



— 1 ) Votre programme doit gerer les evenements aleatoires. Mais, dans le cas ou 
plusieurs programmes Windows s'executent en meme temps, chacun doit 
etre capable d 'analyser et de repondre aux evenements qui le concernent . 



Comme le montre la Figure 1 .9, Windows gere quelques evenements, mais passe le plus 
souvent la main aux programmes en cours d'execution. Windows etant un systeme 
d' exploitation multitache, plusieurs programmes peuvent etre executes simultanement. 
Votre programme doit traiter chacun des evenements appropries a mesure qu'ils se 
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produisent, tout en ignorant ceux qui ne le concernent pas. Par exemple, un programme 
cense afficher un message d'avertissement a intervalles reguliers doit verifier aupres de 
l'evenement horloge le laps de temps qui s'est ecoule depuis le dernier message. Tout 
autre programme simultanement en execution, et qui n'a pas a verifier l'heure, devra 
ignorer les messages correspondants envoyes par Windows. 



Figure 1.9 

Votre programme 
doit reagir a certains 
evenements en 
ignorant les autres. 
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Un programme Visual Basic est constitue de l'interface visuelle, fenetres et controles, 
avec laquelle l'utilisateur interagit. Le code de programmation vient relier tout cela 
ensemble. Chaque controle est a la fois automatique, d'un fonctionnement normalise, et 
parametre selon le code du programme specifique. Par exemple, un bouton de 
commande reagira visuellement toujours de la meme maniere lorsqu'un utilisateur 
clique dessus. Pour faire fonctionner ce bouton, vous avez juste a le placer sur la feuille 
(la fenetre de programme). Notez que la plupart des boutons de commande peuvent etre 
actives par la touche entree aussi bien que par la souris. Sous tous les autres aspects, en 
revanche, le bouton est totalement sous votre controle : vous decidez du nom ou de 
l'image qui doit y apparaitre, de sa taille, de sa couleur, etc. Ce sont des proprietes 
modifiables, bien que Visual Basic y assigne des valeurs par defaut. Ce sont ces proprietes 
qui distinguent un bouton de commande d'un autre. 
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__i — | En tant qu'elles definissent Vapparence et le comportement des controles, 
\t\V> les proprietes permettent de les differencier. Ces proprietes prennent diver- 
' ses valeurs : couleur, etiquette texte, taille, emplacement sur lafeuille. En 

disposant un contrdle sur lafeuille, vous lui attribuez les proprietes qui font 

son "identite". 



La Figure 1.10 montre une fenetre contenant de nombreux boutons de commande. Si, 
pour aucun de ces boutons, le code ne specifiait un comportement precis, ils reagiraient 
tous de la meme maniere aux clics de la souris : s'enfoncer (visuellement) et declencher 
un evenement Windows "clic". C'est pourquoi Ton affecte a chacun des proprietes 
particulieres, quant a la legende, a la taille, a la couleur, etc. 



Figure 1.10 
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Une fois que vous avez place les controles sur la feuille et que vous leur avez specifie des 
proprietes individuelles, vous etes pret a ecrire le code qui repondra aux evenements 
declenches par ces controles. Un meme controle peut declencher plusieurs types d' evene- 
ments. Par exemple, a un meme bouton de commande peut correspondre un evenement 
clic ou un evenement double-clic, selon ce que fait l'utilisateur. Vous ecrivez le code pour 
determiner lequel de ces evenements doit etre ignore, lequel doit etre gere, et comment. 



Si vous ecrivez du code pour un evenement particulier, le programme repon- 
dra a cet evenement des qu'il se produira dans le cours de V execution. Si 
toutefois vous n'affectez pas de code a V evenement, et qu'il se produise, 
votre programme ignorera V information transmise par Windows pour cet 
evenement . 
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Le code "derriere" la feuille de programme ne fonctionne pas comme un long listing 
textuel, mais plutot comme une serie de courtes sections de code, chacune chargee de 
repondre aux evenements des controles de la feuille. Chacune de ces sections se tourne 
les pouces jusqu'a ce que "son" evenement se produise ; lorsque l'evenement se produit, 
le programme execute le code correspondant. Par exemple, pour qu'un clic du bouton 
droit sur un objet (bouton de commande, etc.) declenche remission d'un bip et l'affi- 
chage d'un avertissement, vous devez ecrire le code pour ce bip et ce message. Et le 
code en question ne sera execute que si l'utilisateur clique du bouton droit sur l'objet. 

Un objet est un element de programme Visual Basic, tel qu'un contrdle, une 
feuille ou un module de code contenant des instructions. 



Comment tous ces fragments fonctionnent-ils ensemble ? La reponse viendra, disons, 
dans une vingtaine de chapitres. Pour la lecon de demain, vous commencerez par 
apprendre a specifier les proprietes des controles, ainsi qu'a gerer ces controles lorsque 
vous creez votre toute premiere application de zero, sans l'aide de l'assistant Creation 
d' applications. La theorie seule n'est pas suffisante — il faut se mettre au clavier et 
commencer a placer les controles, a en definir les proprietes, et a ecrire le code des 
evenements correspondants. 

En resume 

Vous voila bien en route vers la maitrise de Visual Basic. Vous avez appris dans ce 
chapitre les bases de la programmation. Une fois assimile le processus de program- 
mation, vous etes equipe pour commencer l'utilisation de Visual Basic, l'un des environ- 
nements de programmation les plus performants d'aujourd'hui. 

Cette lecon vous a enseigne a concevoir et a ecrire un programme. Visual Basic a boule- 
verse les methodes de conception des programmeurs, par la facilite avec laquelle on 
peut prototyper le concept du programme et passer de ce prototype au produit fini. En 
programmation, il faut toujours revenir sur son ouvrage. II est rare qu'un programme 
fonctionne parfaitement du premier coup ; mais, comme nous l'avons vu, l'environne- 
ment interactif de Visual Basic vous epargne beaucoup de travail — et done beaucoup 
d'erreurs. 

L'assistant Creation d' applications genere un squelette de programme que vous enri- 
chissez par la suite pour en faire une application autonome, fonctionnelle et conforme a 
vos besoins. Enrichir signifie ajouter des controles, definir leurs proprietes, et ecrire le 
code qui permettra au programme de reagir et d'interagir correctement avec ces contro- 
les. Dans les chapitres qui suivent, vous apprendrez a maitriser ces details pour aboutir a 
un programme efficace. 
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Questions-reponses 

Q Faut-il suivre les etapes du processus de programmation (conception, creation 
des elements visuels, etc.) pour tous les programmes Visual Basic, ou seulement 
pour les petits programmes ? 

R Plus le programme est important, plus il est important de suivre cette procedure ; et 
le programme se complexifie rapidement, a mesure que vous l'enrichissez de 
nouvelles fonctionnalites. Telle fonctionnalite peut affecter telle autre ; aussi, plus 
vous etes prevoyant, plus vous planifiez, et moins vous aurez a retravailler et a 
corriger par la suite. Heureusement, l'environnement Visual Basic facilite la modifi- 
cation des programmes, meme quand des changements majeurs dans la structure 
sont impliques. Quand vous utilisez l'assistant Creation d' applications, bien sur, la 
conception est la deuxieme etape. A mesure que vous progresserez dans ce livre, 
vous apprendrez a ecrire et a concevoir efficacement vos programmes. 

Q L'assistant Creation d'applications genere-t-il du code ? 

R L'assistant Creation d'applications genere du code, mais pas beaucoup. Chaque 
instruction a pour but de faire executer au programme une tache specifique : effec- 
tuer un calcul, etc. En tant que programmeur, c'est votre boulot que de produire le 
code specifique. 

Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris . II convient de compren- 
dre les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous 
trouverez ces reponses a 1' Annexe A. 

Quiz 

1 . Sur quel langage Microsoft s'est-il fonde pour elaborer Visual Basic ? 

2. Pourquoi Visual Basic est-il adapte aux debutants comme aux programmeurs 
confrrmes ? 

3. Qu'est-ce qui est le plus important pour les novices en Visual Basic : le langage de 
programmation ou 1' interface visuelle ? 

4. Quelle est la difference entre une fenetre defeuille est une fenetre d 'application ? 
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5 . Que signifient les termes bogue et deboguer ? 

6. Qu'est-ce qui s'execute le plus vite : un programme ecrit dans un langage interprets 
ou un programme ecrit dans un langage compile ? 

7. Qu'est-ce qui est plus facile a deboguer : un programme ecrit dans un langage 
nteprete ou un programme ecrit dans un langage compile ? 

8. Quelle est la difference entre un Ecran de presentation au demarrage et un ecran 
Astuce du jour ? 

9. Quelle est la difference entre un controle et la valeur de propriete d'un controle ? 

10. Les controles contiennent le code qui leur permet de reagir aux actions de l'utilisateur. 
Vrai ou faux ? 

Exercice 

En vous servant de l'assistant Creation d' applications, creez une application qui inclut, 
en plus des diverses options que vous avez choisies pour l'exemple de ce chapitre, un 
navigateur Internet et un Ecran de presentation au demarrage. Executez 1' application 
pour voir le fonctionnement de l'acces Internet. Si vous ne disposez pas d'une 
connexion Internet, vous obtiendrez un message d'erreur en essayant de lancer la fene- 
tre de navigation. Mais creez le projet quand meme, pour la pratique. 
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L'environnement 

et les outils Visual Basic 

Maintenant que vous avez pu voir combien 1' assistant Creation d' applications est simple 
d'utilisation, vous etes pret a faire le plongeon : creer un programme a partir de zero. 
II n'est pas tres difficile de creer une application sans l'aide de l'assistant Creation 
d' applications, mais vous devez neanmoins comprendre l'environnement Visual Basic 
avant de vous atteler a l'ecriture. Au terme de ce chapitre, vous devriez etre capable de 
vous reperer dans l'environnement Visual Basic pour creer vos programmes comme un 
pro : "a la main". 

Voici ce que nous etudierons aujourd'hui : 

• les elements de l'environnement Visual Basic ; 

• le placement des controles sur une feuille ; 
l'enregistrement du projet et des fichiers associes ; 
la fenetre Proprietes et ses composants ; 

• l'acces a la fenetre Code. 
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L' environnement Visual Basic 

Au cours de ces vingt et un jours d'apprentissage, c'est dans 1' environnement Visual Basic 
que vous etudierez et construirez des programmes. Plus vite vous vous familiariserez avec 
cet environnement, dont le principe reside essentiellement dans le jeu des diverses 
fenetres, plus vite vous maitriserez la programmation Visual Basic. La Figure 2.1 presente 
un ecran Visual Basic dont les principaux composants sont designes. 



Figure 2.1 
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La fenetre Nouveau projet 

Comme nous l'avons vu lors de la lecon precedente, la fenetre Nouveau projet s'affiche 
au lancement de Visual Basic ou lorsque vous choisissez la commande Fichier, Nouveau 
projet. Dans le cadre de votre apprentissage, c'est depuis la fenetre Nouveau projet que 
vous commencerez la plupart de vos applications. 

Quand vous ne vous servirez pas de l'assistant Creation d'applications pour defmir une 
structure d' application, comme nous l'avons fait dans la lecon d'hier, c'est l'icone EXE 
standard que vous choisirez pour creer un programme autonome. Cette icone est nominee 
ainsi d'apres l'extension que portera le programme une fois compile : . EXE, pour execu- 



> 34 



Chapitre 2 : L'environnement et les outils Visual Basic 



table. Meme si vous ne compilerez pas tout de suite vos applications, c'est l'icone EXE 
standard que vous selectionnerez le plus souvent dans votre apprentissage de Visual 

Une application EXE standard est une application qui peut etre compilee ou 
executee defacon interpretee . 



Vous verrez dans lafenetre Nouveau projet de nombreuses icones portant le 
nom d' ActiveX. ActiveX est le nom donne aux controles que vous creez vous- 
meme. Ces controles portent V extension de noms defichiers . OCX, et peuvent 
etre integres a l'environnement Visual Basic de sorte qu'ils demeurent dans 
votre fenetre Boite a outils. Vous pouvez ecrire des applications qui devien- 
dront des controles et pourront ainsi servir a des projets ulterieurs. En fait, 
ActiveX est une designation assez large qui s' applique egalement a d'autres 
domaines informatiques. 

Souvenez-vous que Visual Basic n'est rien d' autre qu'un programme Windows, 
certes vaste, qui vous permet de creer de nouveaux programmes Windows. Les 
barres d'outils, menus, boites de dialogue et fenetres de l'environnement 
Visual Basic fonctionnent d'une facon tout a fait semblable aux autres appli- 
cations Windows. Vous ne devriez. done pas avoir de mal a vous y familiariser. 

La barre d'outils 

Selon votre utilisation de Visual Basic, la barre d'outils situee sous la barre de menus se 
modifie. En tout, quatre barres d'outils sont disponibles : 

• Debogage. S'affiche lorsque vous employez les outils de debogage pour corriger votre 
programme. 

• Edition. Facilite l'edition du code Visual Basic. 

Editeur de code de feuille. Aide a la disposition des objets sur la feuille. 

Standard. Barre d'outils par defaut, affichee sous la barre de menus. 

L'affichage de ces barres d'outils peut etre active et desactive depuis le menu Affichage, 
Barres d'outils. Chaque barre d'outils presente une multitude de boutons, grace 
auxquels vous pouvez acceder aux fonctionnalites courantes sans passer par une succes- 
sion de commandes de menus. Dans le cours de vos developpements Visual Basic, vous 
rencontrerez de nombreux boutons tres utiles, alors que d'autres ne vous seront jamais 
d'aucun usage. Nous signalerons, dans ces lecons, des boutons de barres d'outils 



Basic. 
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susceptibles d'accelerer le developpement de vos programmes, mais nous ne saurions 
en aucun cas fournir une reference exhaustive des boutons disponibles, tous n'etant pas 
d'une egale utilite pour notre propos. 

Faire 

Quand vous ne reconnaissez pas un bouton, maintenez-y un instant le 
curseur de la souris : une info-bulle s 'affiche, qui indique la fonction du 
bouton. 

Ne pas faire 

N'essayez pas de memoriser tous les boutons de toutes les barres d'outils. 

Chaque barre d'outils peut etre ancree ou desancree. C'est-a-dire que 
vous pouvez faire glisser une barre d'outils depuis sa position, sous la 
barre de menus, pour former une barre d'outils flottante. II est ainsi 
possible de placer une barre d'outils pres de V element auquel elle s' applique, 
afin que les boutons requis soient rapidement accessibles. Libre a vous de 
replacer, par la suite, la barre d'outils a sa position initiale, en la faisant 
glisser sous la barre de menus, oil elle restera jusqu'au prochain changement. 

La Boite a outils 

La fenetre Boite a outils n'est pas une barre d'outils. Comme son nom l'indique, il 
s'agit d'une collection d'outils grace auxquels vous disposez les controles sur la feuille. 
En progressant dans ces lecons, vous apprendrez a ajouter et a retirer les boutons de la 
Boite a outils. La Figure 2.2 montre un jeu des outils les plus communs. 

Avec la Boite a outils, vous ne serez jamais a court d'outils. Si votre application requiert 
plus d'un bouton de commande, l'outil CommandButton de la Boite a outils vous les 
fournira. Les boutons de la Boite a outils generent les outils a votre feuille a mesure que 
vous les demandez. C'est ce que nous verrons a la derniere section de cette lecon, ou 
nous creerons une application ex nihila. 

La fenetre Feuille 

C'est dans la fenetre Feuille que vous effectuerez la plupart de vos operations. Toutes 
les feuilles de vos programmes, qui formeront l'arriere-plan visible de l'application, 
seront creees dans la zone centrale d'edition ou s'affiche la fenetre Feuille. Vous pouvez 
ajuster la fenetre Feuille de facon a donner aux fenetres creees a l'interieur les dimen- 
sions voulues. (Les barres de defilement vous permettent de faire defiler le contenu de la 
fenetre Feuille pour qu'apparaissent les elements masques.) 
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Figure 2.2 
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Gardez a l'esprit qu'une application contient une multitude de feuilles. Chacune de ces 
feuilles peut etre affichee dans sa propre zone d'edition de la fenetre Feuille ; c'est ce 
que montre la Figure 2.3. La feuille active est celle dont la barre de titre est en 
surbrillance. Pour activer une feuille, on clique n'importe oil a l'interieur ou sur la barre 
de titre. 



La fenetre Presentation des feuilles 

La fenetre Presentation des feuilles est une petite fenetre intimement liee a la fenetre 
Feuille. Cette fenetre a cela de tres utile, qu'elle donne un apercu de la disposition 
des feuilles. Quand la fenetre Feuille contient plusieurs feuilles, la fenetre Presentation des 
feuilles affiche un schema miniature de chacune de ces feuilles. La fenetre vous 
permet de visualiser l'organisation des feuilles sur l'ecran, tel que l'utilisateur le 
verra, ainsi que leur evolution au gre de 1' utilisation du programme. 

La fenetre Presentation des feuilles ne se contente pas de dormer un apercu du positionne- 
ment des feuilles sur l'ecran final. Elle vous permet egalement de deplacer ces feuilles en 
les faisant simplement glisser vers une nouvelle position. Si, par exemple, vous souhaitez 
qu'une feuille apparaisse au centre de l'ecran, il suffit de la faire glisser la, dans la fenetre 
Presentation des feuilles ; et c'est ce que l'utilisateur verra lorsqu'il executera le 
programme. 
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Figure 2.3 
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Lorsque vous en saurez assez sur le langage de programmation Visual Basic, 
vous serez, en mesure de specifier dans le code seul la position exacte d'une 
feuille sur Vecran. Vous pouvez egalement indiquer a Visual Basic de centrer 
automatiquement la feuille des que la forme est creee, et independamment de 
ce qu'affiche lafenetre Presentation des feuilles au cours du developpement. 

Beaucoup de programmeurs ferment lafenetre Presentation des feuilles afin 
de liberer de la place pour d'autres fenetres. 



La fenetre Projet 

Dans la fenetre Projet, vous gerez les composants de votre application. Comme le 
montre la Figure 2.4, la fenetre Projet peut devenir passablement encombree. Un 
programme Windows, que nous devrions appeler, comme l'a enseigne la le§on prece- 
dente, une application, peut recouvrir plusieurs fichiers . Avant que le programme ne 
soit compile, les fichiers lies a Visual Basic peuvent devenir encore plus nombreux. La 
fenetre Projet vous permet de gerer tous ces composants et d'amener dans la zone 
d'edition celui sur lequel vous souhaitez travailler. 
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Figure 2.4 
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La fenetre Projet est egalement appelee Explorateur de projets, en raison de 
son interface semblable a celle de V explorateur Windows, et dans laquelle 
onpeut etendre et reduire les groupes d'objets. 

Dans la fenetre Projet, la liste des composants est presentee comme une structure arbo- 
rescente. Les objets correles sont affiches ensemble. Les signes moins (-) et plus (+) 
vis-a-vis des groupes d'objets permettent respectivement de reduire ou d'etendre l'affi- 
chage des details. Si, par exemple, vous cliquez sur le signe plus de I'objet Feuilles, la liste 
des projets en cours s'affiche. Quand vous double-cliquez sur l'une des feuilles, la fenetre 
correspondante s'affiche dans la zone d' edition de la fenetre Feuille. 

Chaque element de la fenetre Projet porte a la fois un nom de projet et un nom de fichier. 
En Visual Basic, on assigne des noms aux objets tels que feuilles ou modules. Chaque 
element est aussi enregistre sur le disque dans un fichier separe. Le nom de fichier qui, 
pour un meme element, differe du nom de projet (par exemple, seuls les noms de 
fichiers portent une extension) apparait entre parentheses a cote de l'element. La fenetre 
Projet affiche done le nom de fichier et le nom de projet de chacun des fichiers de votre 
projet, et il suffit de double-cliquer sur un objet pour l'activer. 



Lafenetre Projet inclut une barre d' outils qui n' affiche que trois boutons. Le 
bouton Fenetre Code affiche la fenetre Code pour I'objet selectionne, de 
sorte que vous puissiez en modifier le code. (Lafenetre Code n'apparaissait 
pas sur la Figure 2.1 ; elle vous sera presentee a la derniere section de cette 
lecon, alors que vous ajouterez du code a V application .) Le bouton Afficher 
I'objet affiche lafenetre d'objet pour I'objet selectionne . Beaucoup d'objets 
se voient associer a la fois une fenetre d'objet et une fenetre Code. A chaque 
feuille, par exemple, correspondent un module de code et une fenetre 
Feuille. Les boutons Fenetre Code et Afficher I'objet vous permettent done 
de basculer du code d'un objet a ses elements visuels. Le bouton Basculer 
les dossiers groupe et degroupe les elements de la fenetre Projet selon une 
interface de type Explorateur. 
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Voici les types d'objets qui apparaissent dans la fenetre Projet : 

• Projets. Une application peut etre constitute de plusieurs projets, notamment lors- 
que vous employez des controles ActiveX. Les projets portent toujours l'extension 
.VBP. 

• Feuilles. La fenetre projet affiche la liste des feuilles de votre projet. Les feuilles 
portent toujours l'extension . FRM. 

• Modules. Les modules de votre projet contiennent des routines (ensembles 
d' instructions Visual Basic) generales et reutilisables. Un module peut ainsi etre 
utilise par plusieurs programmes. Les modules portent toujours l'extension . BAS. 

• Modules de classes. Les modules de classes sont des modules speciaux qui definissent 
les objets concus pour un projet. Les modules de classes portent toujours l'extension 
.CLS. 

• Controles utilisateur. Les controles utilisateur sont les controles ActiveX que vous 
avez ajoutes au projet. Les fichiers des controles ActiveX portent toujours l'exten- 
sion .OCX. 

• Documents utilisateur. Les documents utilisateur sont des objets document qui 
decrivent les parties de votre projet. Les fichiers de documents utilisateur portent 
toujours l'extension .DOB. 

• Page de proprietes. Les pages de proprietes (comme celles que Ton trouve dans les 
boites de dialogue a onglets) apparaissent dans un fichier de projet pour decrire un 
controle particulier. Les fichiers de pages de proprietes portent toujours l'extension 
.PAG. 




D'autres elements apparaissent parfois dans la fenetre Projet, tels que les 
ressources et autres documentations que vous adjoignez au projet. 



Pour la plus grande partie du developpement d' applications Visual Basic, et notamment 
lors de ces vingt et un premiers jours, vous travaillerez uniquement sur les feuilles et les 
modules. 

La fenetre Proprietes 

Une feuille peut contenir plusieurs controles. Amesure que vous en ajoutez, vous 
pouvez selectionner les controles, simplement en cliquant dessus. Lorsqu'un controle 
est selectionne, la fenetre Proprietes affiche toutes les proprietes qui lui sont liees. 
Comme vous le verrez dans la derniere section de cette lecon, Visual Basic definit auto- 
matiquement les valeurs de proprietes initiales du controle des que vous 1' ajoutez. En 
affichant la fenetre Proprietes d'un controle, vous pouvez modifier ces valeurs. 
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La Figure 2.5 montre une fenetre Proprietes qui affiche quelques-unes des proprietes 
d'un controle Label. Vous pouvez constater que les informations affichees dans la fene- 
tre Proprietes quant au nom, au type et a la description, refletent le controle selectionne. 
Pour affecter une valeur a une propriete, selectionnez la propriete et entrez la nouvelle 
valeur. Quand vous pouvez choisir parmi plusieurs valeurs etablies, une liste deroulante 
s' affiche. 



Figure 2.5 

La fenetre 
Proprietes decrit 
chaque propriete du 
controle selectionne. 



Nom de I'objet Type de I'objet 




Nom de la proprieteD — 



Appf 
AutoRedraw 
BackColor 
BorderStyle 
Caption 
ClipControls 
ControlBox 
DrawMode 
DrawStyle 
DrawWidth 
Enabled 
FillColor 
FillStyle 



FontTransparent 
ForeColor 
HasDC 
Height 

HelpContextID 
Icon 

KeyPreview 
Left 



False 

□ &H800U000F& 
3 - Fixed Dialog 
A propos de Projetl 
False 
True 

13 - Copy Pen 

0 - Solid 
1 

True 

■ &H00u0u000& 

1 - Transparent 
MS Sans Serif 
True 

■ &H80u0uO128i 
True 

4290 



(Icon) 



(Name) 

Renvoie le norn utilise dans le co le pour identifier un objet. 



Description deD 
la proprieteD 
□ 



-Valeur de la proprieteD 



Chaque propriete porte un nom qui la distingue ; et chaque propriete a une valeur que 
vous ou Visual Basic lui assignez. Par exemple, Visual Basic nomme toujours Commandl 
le premier bouton de commande que vous ajoutez a un projet. La propriete Name de ce 
premier bouton aura done pour valeur Commandl . II convient naturellement de donner au 
bouton de commande un nom plus significatif afin de bien documenter 1' application. 
Vous pouvez, par exemple, nommer cmdReportPrint un bouton qui declenche l'impres- 
sion d'un rapport. 

A chaque nom d'objet doit etre inclus un prefixe de trois lettres qui decrit la fonction de 
I'objet. Ainsi, lorsque vous consulterez la liste des objets, vous connaitrez de chacun non 
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seulement le nom, mais aussi le type (bouton de commande, zone de texte, feuille, etc.). 
Le Tableau 2.1 propose une liste de prefixes couramment utilises dans les noms d'objets 
Visual Basic. Vous pourrez vous y referer lorsqu'il vous faudra nommer des objets, dans 
les jours et les lecons qui vont suivre. Quand un projet contient plusieurs controles, ces 
noms vous aident a en determiner le type et la fonction. 



Tableau 2.1 : 


: Prefixes courants a placer en tete des noms d'objets 


Prefixe 


Type d'objet 


cbo 


Zone de liste deroulante modifiable (ComboBox) 


chk 


Case a cocher 


cmd 


Bouton de commande 


dir 


Zone de liste des dossiers 


drv 


Zone de liste des lecteurs 


fil 


Zone de liste des fichiers 


f ra 


Frame 


f rm 


Feuille 


grd 


Grille 


hsb 


Barre de defilement horizontale 


img 


Image 


lbl 


Label 


lin 


Ligne 


1st 


Zone de liste 


mnu 


Menu 


mod 


Module 


ole 


OLE 


opt 


Bouton d'option 


pic 


Zone d' image 
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Tableau 2.1 : Prefixes courants a placer en tete des noms d'objets (suite) 



Prefixe 


Type d'objet 


res 


Ressource 


shp 


Forme 


tmr 


Timer 


txt 


Zone de texte 


typ 


Types de donnees definis par l'utilisateur 


vsb 


Barre de defilement verticale 



Faire 

N'employez pas de prefixe dans les noms defichiers attribues aux objets. Les 
prefixes de noms d'objets Visual Basic doivent toujour s etres saisis en 
minuscules . 



Ne pas faire 

Souvenez-vous que vous pouvez deplacer, redimensionner etfermer chaque 
fenetre Visual Basic. Selon ce que vous souhaitez, voir du contenu d'une 
fenetre, vous pouvez I'ajuster pour faire de la place a d' autres fenetres . 

Obtenir de l'aide 

Visual Basic propose toute une serie d'outils en ligne destines a vous aider. Avant de 
creer votre application, comme la derniere section de ce Chapitre vous invite a le faire, 
vous devez vous familiariser avec les diverses options d'aide et apprendre a y acceder. 

L'aide locale 

Dans la plupart des cas, l'environnement Visual Basic vous offre toute l'aide necessaire 
sans qu'il vous soit besoin d'aller voir ailleurs (sauf dans ce livre, bien sur !). La 
premiere option du menu Aide, Sommaire, afhche une fenetre d'aide Windows a base de 
HTML ; cet ecran est reproduit en Figure 2.6. Le panneau gauche de la fenetre liste les 
differents manuels en ligne que vous pouvez ouvrir et lire. Le panneau de droite propose 
un tour des rubriques d'aide, avec pour guide un certain Dr Gui (GUI est le sigle de 
graphical user interface, interface utilisateur graphique). 
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__i — ) Le systeme d'aide Visual Basic estfonde sur Books Online, base de donnees 
ypSo de reference fournie avec les produits Microsoft plus anciens. Les CD-ROM 
' MSDN sont necessaires pour acceder a I'aide en ligne. 



MSDN signifie Microsoft Developer's Network (reseau des developpeurs 
Microsoft) , et recouvre un ensemble d 'articles en ligne, de CD-ROM et de 
lettres d' information, diffuses aupres des programmeurs depuis quelques 
annees. L'aide Visual Basic fait maintenant partie de MSDN. Les ecrans 
MSDN ne sont disponibles qu'une fois I'abonnement souscrit. Pour vous 
abonner a 1' information en ligne MSDN, cliquez sur le menu ?, sur 
Sommaire, puis choisissez MSDN Online. 

U aspect du systeme d'aide chez vous peut etre legerement different, selon la 
date de distribution de votre logiciel Visual Basic 6. Les ecrans d'aide 
varient parfois d'une edition a V autre des produits Microsoft. 



Figure 2.6 

L'aide Visual Basic 
est la pour vous sortir 
du petrin. 



ft MSDN Library Visual Studio 



F 



Sommaire | Indei | Recherche | Favoris | 



J Edition Visual Studio 6.0 de MSDN Librar 
^ MSDN Library 
^ Documentation Visual Studio 
^ Documentation Visual Basic 
^ Visual C++ Documentation 
^ C'Cicumentation Visual FoxPro 
^ Documentation Visual InterOev 
^ Docutnerrtstion Visual J** 
^ Documentation Visual SourceSafe 
^ OuHb et technologies 
^ Microsoft Office Development 
% SDK Plattorm 
^ SDK Documentation 
^ DDK Documentation 
^ Vdndows Resource Kits 
^ Specifications 
^ Knowledge Base 
^ Technical Articles 
A Backgrounders 
^ Books 
% Partial Books 
^ Periodicals 
^ Conference Papers 



o ei a 

ftiietei M'Tliialnei F'jge d'accupil 



Version Visual Studio 6.0 de 
MSDN Library 

La bibliotheque MSDN Library constitue la 
reference essentielle des developpeurs. Avec plus 
d'un giga-octet d'informations techniques sur la 
prog rammat ion, notamment des exemples de 
code, de la documentation, des articles 
techniques, la base da connaissances 
Microsoft Developer et bien plus encore, elle se 
revele indispensable au developpement de 
solutions utilisant les technologies Microsoft. 

La bibliotheque MSDN Library fait partie de la 
famille visual Studio 6.0 des produits de 
developpement qui comprend : 



'■■■'iv i.'il FoxPro 
Visual InterDev 



La bolte de dialogue Aide propose differente options d' assistance en ligne ou immediate : 

• Sommaire. Cette option propose une aide organisee en livres, tels que "Documen- 
tation Visual Basic", "Outils et technologies", etc. 

• Index. Cette option permet de rechercher de l'aide a partir d'un ensemble de mots 
cles indexes sur les references de l'option Sommaire. 
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• Rechercher. Cette option permet de rechercher une chaine de caracteres precise 
dans un article. 

• Favoris. Cette option vous permet de stocker les rubriques d'aide que vous avez 
jugees particulierement utiles. 

Vous etes-vous jamais demande pourquoi un systeme de developpement aussi vaste que 
Visual Basic n'est pas livre avec un epais et pesant manuel ? En fait, Visual Basic est bel 
et bien livre avec un manuel, plusieurs meme ; mais il s'agit d'une documentation en 
ligne, comme le systeme d'aide MSDN. II suffit de cliquer pour ouvrir l'un des "livres" 
du panneau gauche, et atteindre un chapitre et une page. Cette page s'affiche dans le 
panneau droit de la fenetre d'aide. 

Les ecrans d'aide s'affichent dans une fenetre independante de la fenetre 
Visual Basic. Vous pouvez done garder les deux ouvertes, et basculer de Visual 
Basic a la rubrique d'aide en appuyant sur Alt-Tab, ou en cliquant sur les 
boutons correspondants de la Barre de tache. 

Le systeme d'aide offre des references sur Visual Basic, les connexions aux bases de 
donnees, la programmation ActiveX, et d'autres questions techniques a propos 
desquelles vous aurez besoin d'information fiable dans le cours de vos travaux. II faut se 
figurer le systeme d'aide comme un jeu complet d'ouvrages de reference coflteux qui, 
s'ils etaient livres sous la forme papier avec Visual Basic, augmenteraient considerable- 
ment le prix du logiciel, tout en rendant malaisee la recherche de sujets specifiques. 

A propos de Microsoft Visual Basic est une autre entree du menu Aide, qui affiche une 
boite de dialogue A propos classique indiquant le numero de version de Visual Basic, le 
numero de serie et le nom d'enregistrement. Lorsque vous cliquez sur le bouton Infos 
systeme, le programme analyse votre systeme puis affiche la boite de dialogue reproduite 
en Figure 2.7. Ces informations systeme concernent aussi bien le materiel que le logiciel. 

Au Chapitre 20, vous apprendrez a ajouter une aide en ligne a vos applications. 

Le support technique 

En selectionnant l'option Support technique du menu Aide, vous affichez une boite de 
dialogue qui explique comment contacter le support technique de Microsoft pour une 
assistance plus personnalisee. II se peut en effet que le systeme d'aide en ligne ne 
reponde pas assez a un probleme precis. Si, par exemple, vous constatez un comporte- 
ment etrange de Visual Basic, revelant un bogue dans le logiciel lui-meme, il faut en 
referer a Microsoft directement. (Pour ce type de probleme, toutefois, commencez 
toujours par reinstaller Visual Basic arm de voir si le dysfonctionnement persiste. C'est 
sans doute le conseil qu'ils vous donneront, et vous gagnerez ainsi du temps.) 
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— 1 Pourquoi ce type d' information est-il necessaire pour contacter le support 
technique ? Apres tout, tout ce dont vous avez besoin, e'est d'un numero de 
telephone et des horaires d'ouverture. II se trouve que Microsoft offre 
plusieurs niveaux de support technique, du service gratuit et limite a I'ahon- 
nement annuel ; lafenetre d'aide vous donne un resume des options disponi- 
bles. Du reste, les coordonnees du support technique ne sont naturellement 
pas les memes d'un pays a I'autre. 



L'aide en ligne 

La commande Microsoft sur le Web du menu Aide vous permet de choisir entre diverses 
options de support en ligne. (Toutes requierent evidemment un acces Internet.) L' option 
Support technique charge la page Web Microsoft dediee a Visual Basic. Cette page, soit 
dit en passant, gagne a etre souvent visitee, meme si vous ne recherchez pas d'aide 
precise. Vous y trouverez un nombre appreciable d' informations de mise a jour, de 
corrections de bogues, d'astuces et de solutions, des exemples de code, ainsi qu'une 
selection de liens actualises. La commande Microsoft sur le Web permet egalement 
d'acceder a la page d'accueil de Microsoft, d'effectuer une recherche sur le reseau, et 
meme d'envoyer a Microsoft des commentaires ou des conseils a propos de Visual 
Basic. 

' Visitez souvent le site Forum aux questions ; vous y trouverez. une liste de 

reponses aux questions les plus courantes liees a la programmation Visual 
Basic. 
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Apprivoiser I'ecran 



Avant de terminer votre premiere journee d'apprentissage, vous avez cree une appli- 
cation Visual Basic autonome et fonctionnelle. Pour etre plus precis : vous avez cree une 
application avec l'aide de l'assistant Creation d' applications, qui a fait tout le boulot. II 
s'agit maintenant d'aller plus loin et de creer une application complete a partir de zero. 

Vous comprenez mieux qu'auparavant l'environnement Visual Basic, et vous etes en 
mesure de trouver de l'aide si necessaire. Avant de suivre les etapes de la section 
suivante pour creer une nouvelle application, prenez le temps de charger une application 
existante depuis l'un des fichiers exemples livres avec Visual Basic. Vous pourez ainsi 
vous familiariser avec les fenetres qui s'affichent. Procedez comme suit : 

1 . Lancez Visual Basic. 

2. Inserez dans le lecteur le CD-ROM 1 de MSDN. 

3. Cliquez sur l'onglet Existant et accedez au dossier Samples\Vb98\Controls via la 
boite de dialogue Ouvrir un projet. 

4. Double-cliquez sur l'icone Controls pour ouvrir le projet nomme Controls. Selon 
vos parametres d'afhchage Windows, 1' extension . VBP peut ne pas apparaitre dans la 
boite de dialogue Ouvrir un projet. Dans tous les cas, que vous voyiez ou non 
l'extension dans les boites de dialogue, vous pouvez distinguer les types de fichiers 
d'apres l'icone qui se trouve a gauche de leur nom. La boite de dialogue Ouvrir un 
projet n'afhche que les fichiers de projets (a moins que vous ne modifiez la selection 
dans la liste deroulante Type de fichier). L'icone que vous voyez vis-a-vis du projet 
Controls est l'icone qui represente tous les fichiers de projets Visual Basic. 

5. Une fois le projet Controls ouvert, une boite de dialogue s'affiche et demande si 
vous souhaitez ajouter au projet quelque chose du nom de SourceSafe. Pour tous les 
exercices de ce livre, vous repondrez non a cette question. Deux autres boites de 
dialogue reliees a SourceSafe apparaissent ensuite ; cliquez sur OK pour les fermer. 



SourceSafe est un outil de Visual Studio (disponible pour tous les langages 
de la suite) qui permet de garder la trace des differentes versions de vos 
programmes sources. 




Le programme source est V ensemble du code et des elements visuels qui 
constituent V application que vous ecrivez. Ce programme source n'est pas 
distribue, car il n'est que votre modele de travail. Seule V application finali- 
see et compilee doit etre distribute. 
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6. L'ouverture du projet Controls ne change pas grand-chose a l'ecran Visual Basic. 
L' application Controls ne s'execute pas, car vous n'avez fait que charger le projet 
depuis le disque. Pour lancer 1' application (de facon interpretee), choisissez Execu- 
tion, Executer ; le resultat est montre en Figure 2.8. 



Figure 2.8 

Le programme 
Controls s 'execute 
dans I ' environnement 
Visual Basic. 



4j 



Flchier Edition Affichage Prolet Format Debogage Execution Requete Schema Outils Complements Fenetie 



- Controls (CONTROIS.VBP) 

bj Fj Feuilles 

CV frmButton (button 
Cl frmcheck (check.frm) 
B frmlmages (images, FrnV 

5 frmMain (main.frm) 

Cl frmOptlons (options, frn 
B frmText (text.ftm) 

6 frmWotdWrap (wwdwn 




La fenetre du programme Controls 



Lorsque vous executez une application inter pretativement, la fenetre du 
programme demeure dans V environnement Visual Basic actif, de sorte que 
vous pouvez lui apporter des modifications ou corriger des erreurs en corns 
de route. Une fois compile, le programme s'execute directement dans 
Windows, hors de V environnement Visual Basic. 

Plutot que de passer par la commande menu Execution, Executer, vous 
pouvez lancer le programme en appuyant sur F5 ou en cliquant sur le 
bouton de barre d' outils Executer. 

7. Le programme Controls offre une demonstration de plusieurs des contoles disponi- 
bles dans la Boite a outils Visual Basic. Cliquez sur un bouton, puis testez les 
options qui apparaissent. 
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8. Apres avoir essaye les diverses options du programme, cliquez sur le bouton Arret 
pour interrompre l'execution du programme et pour fermer la fenetre. Vous voila de 
retour dans l'environnement Visual Basic. Ace point, le programme Controls est 
toujours charge dans l'environnement, mais l'application elle-meme n'est pas 
active. Vous etes maintenant libre d'etudier les diverses fenetres Visual Basic. 

9. Jetez un ceil a la fenetre Projet. Vous constatez que le programme Controls est 
constitue de feuilles uniquement. Le code existe bel et bien (cliquez sur le bouton 
Code pour afficher la fenetre Projet ; cliquez de nouveau sur la fenetre Afficher 
l'objet pour revenir a la liste des feuilles), mais il reside dans chacun des sept 
fichiers de feuilles qui accompagnent le projet. 

10. Dans la fenetre Projet, cliquez sur le nom d'une feuille pour la faire apparaitre dans 
la zone d'edition de la fenetre Feuilles. La feuille est semblable a ce qui apparaissait 
lors de l'execution du programme. Consultez la fenetre Presentation des feuilles (si 
vous ne la voyez pas, selectionnez Affichage, Fenetre Presentation des feuilles) pour 
connaitre la position de la feuille sur l'ecran tel qu'il apparaitra lors de l'execution. 

11. Faites glisser l'icone miniature de la feuille depuis la fenetre Presentation des 
feuilles jusqu'a un emplacement different. Si vous lancez le programme, la fenetre 
de la feuille en question apparaitra la ou vous l'avez fait glisser. 

12. Examinez la fenetre Proprietes, qui affiche les valeurs de proprietes du controle 
selectionne. Gardez a l'esprit que le contenu de la fenetre Proprietes ne concerne que le 
controle individuel selectionne dans la fenetre Feuilles. Sur la Figure 2.9, la fenetre 
Proprietes affiche les proprietes du bouton d' option selectionne (entoure de huit 
poignees de redimensionnement). 

13. Faites de filer les valeurs de proprietes pour visualiser toutes les proprietes du 
controle selectionne. 

14. Cliquez sur un autre controle de la feuille et examinez la fenetre Proprietes mise a 
jour. Lorsque vous selectionnez un controle en cliquant dessus, des poignees de 
redimensionnement apparaissent tout autour, et la fenetre Proprietes est mise a jour 
pour refleter les proprietes dudit controle. 

Laissez le projet ouvert pour la prochaine section. En revanche, vous pouvez fermer les 
barres d'outils Edition et Editeur de code de feuille (si elles sont affichees), car nous 
n'en aurons pas besoin. Maintenant que vous avez fait connaissance de l'environnement 
Visual Basic, vous etes pret a y echafauder vos propres creations. 
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Figure 2.9 
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Creer une application a partir de zero 

Cette section conclut le chapitre en vous guidant dans la creation d'une application. 
Vous ne comprendrez peut-etre pas tout ce qui va se passer ; mais vous allez tout de 
meme au bout de l'exercice, vous n'en serez que mieux pare pour la suite. Cette 
premiere application est simple, mais elle illustre bien la facilite avec laquelle on cree 
les programmes Visual Basic. C'est dans la suite de cet apprentissage que vous appro- 
fondirez les details de ce que nous ne faisons que presenter aujourd'hui. 

Configurer la feuille 

Notre premiere application se contentera d'afficher une image et un bouton de 
commande. Le programme modifie l'image lorsqu'on clique sur le bouton. Pour creer 
cette simplissime application, suivez ces etapes : 

1. Selectionnez Fichier, Nouveau projet pour afficher la boite de dialogue Nouveau 
projet. Si une application est deja ouverte, Visual Basic demande si vous souhaitez 
enregistrer les modifications. Cliquez sur Non. 
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2. Cliquez sur l'icone EXE standard. L'environnement Visual Basic ne contient, alors, 
qu'une seule feuille nominee Forml (ce qu'indique la barre de titre). La feuille 
s'affiche sur l'arriere-plan de la zone d'edition, blanche, de la fenetre Feuilles. 

3. Cliquez sur le bouton Agrandir pour donner a la zone d'edition de la fenetre Feuilles 
(c'est-a-dire l'arriere-plan blanc, et non la feuille grise elle-meme) sa taille maxi- 
male. Ce qui libere assez d'espace pour agrandir la feuille. 



— 1 Des poignees de redimensionnement apparaissent autour de lafemlle parce 
que la feuille est le seul objet present dans la zone d'edition de la fenetre 
Feuilles. Vous pouvez remarquer que la fenetre Proprietes affiche les 
proprietes de la feuille. Comme tout objet, chaque feuille a des valeurs de 
proprietes parametrables . 



4. Faites glisser vers le coin inferieur droit de l'ecran la poignee de redimensionnement 
situee en bas a droite de la feuille. Au fur et a mesure, vous pouvez voir, a droite de 
la barre d' outils, les dimensions de la feuille se modifier. Agrandissez la feuille 
jusqu'a une taille d'environ 7400 twips sur 5200. Cette operation definit l'arriere- 
plan du programme ; la Figure 2.10 montre le resultat. (La fenetre Presentation des 
feuilles peut apparaitre sous la fenetre Proprietes.) 



Figure 2.10 
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Le twip est une mesure d'affichage. On peut se representer le twip comme un 
point de l'ecran ; mais differents moniteurs et cartes video donnent differen- 
tes resolutions , done un nombre different de points. Le twip est une unite qui 
mesure, de facon independante de la resolution reelle, un point imaginaire 
de Vecran (point plus petit que ne le permettent les resolutions les plus 
hautes). En consequence, une feuille mesurant 7400 twips n'occupera pas 
7400 points reels de Vecran (ou pixels). 



En positionnant et en dimensionnant les fenetres Feuilles, verifiez les coor- 
donnees correspondantes a droite de la barre d'outils. Ces valeurs sont affi- 
chees par paires. La premiere valeur des coordonnees de position equivaut 
au nombre de twips entre le bord gauche de Vecran et le cote de lafenetre. 
La seconde valeur equivaut au nombre de twips entre le bord superieur de 
Vecran et le haut de la fenetre. La seconde paire de valeurs, les coordonnees 
de taille, equivalent au nombre de twips que lafenetre occupe, en largeur et 
en hauteur respectivement. Les proprietes correspondant aux coordonnees 
de position sont nommees Left et Top. Les proprietes correspondant aux 
coordonnees de taille sont nommees Width et Height. Visual Basic met auto- 
matiquement a jour ces valeurs dans la fenetre Proprietes lorsque vous 
deplacez ou redimensionnez la feuille dans la zone d' edition de lafenetre 
Feuilles. 



5. Selectionnez Affichage, Fenetre Presentation des feuilles pour afficher la fenetre. 
Dans la fenetre Presentation des feuilles, centrez l'ecran miniature de sorte que la 
fenetre d' application se place au milieu de l'ecran lorsque le programme demarre. 
Bien que la fenetre Presentation des feuilles elle-meme ne change pas, les coor- 
donnees de position refleteront la modification. 

6. Fermez la fenetre Presentation des feuilles afin de laisser de la place aux autres 
fenetres. 



1 I Les points qui constellent la feuille forment la grille. L 'affichage de cette 

pgJBJP® grille peut etre active ou desactive : choisissez Outils, Options, cliquez sur 
I 'onglet General, puis cochez ou decochez la case Afficher la grille. La grille 
n'apparaitra pas lors de V execution du programme ; elle n'est la que pour 
vous aider a placer et a dimensionner les contrdles sur la feuille. 



•0 s 



La grille est la trame de points qui constitue V arriere-plan de la fenetre 
Feuilles. La densite de points de la grille peut etre parametree par la 
commande Outils, Options. 
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7. Attribuez a la feuille un nom plus parlant que Forml . Cette operation vous permettra 
au passage de travailler dans la fenetre Proprietes. Le nom de la feuille selectionnee 
est defini dans la propriete (Name), qui est mis entre parentheses afin de maintenir le 
nom au sommet de la liste alphabetique des proprietes. (A partir de maintenant, nous 
ferons abstraction de ces parentheses.) Si la propriete Name n'est pas encore visible, 
faites denier la fenetre Proprietes ; notez que la valeur de Name est actuellement 
Forml . 

8. Selectionnez la propriete Name de la feuille et tapez f rmMyFirst. Le nouveau nom 
s'affiche aussitot a droite de la propriete Name, ainsi que sur la barre de titre de Visual 
Basic. 

Vous modifierez, et attribuerez les differentes valeur s de la fenetre Proprietes 
de la meme maniere que vous venez de changer le nom de la feuille. Faites 
defiler la fenetre jusqu'd la propriete desiree, selectionnez-la, puis saisissez 
la nouvelle valeur ( ou Men choisissez parmi les options proposees dans les 
listes deroulantes). 

9. Modifiez la barre de titre de la feuille : selectionnez la propriete Caption et tapez 
Bonne Journee. La propriete Caption definit ce qui s'affiche dans la barre de titre 
de la feuille lorsque l'utilisateur lance le programme. Le nouveau nom apparait a la 
fois dans la fenetre Proprietes et sur la barre de titre de la feuille. 

10. Avant d'aller plus loin, il est prudent d'enregistrer la feuille sur le disque. Choisissez 
Fichier, Enregistrer le projet. Cette commande enregistre tous les fichiers inclus 
dans le projet en cours (lequel ne contient pour l'instant qu'une seule feuille), ainsi 
que les fichiers de description du projet sous extension .VBP. Visual Basic demande 
d'abord le nom de fichier qui doit etre attribue a la feuille. La valeur de la propriete 
Name de la feuille sert de nom par defaut. Si vous acceptez ce nom par defaut, ce que 
nous vous invitons a faire, Visual Basic y ajoute l'extension . FRM. (Si votre projet 
contenait plusieurs feuilles, modules ou autres types d'objets stockes dans des 
fichiers, vous auriez eu a specifier un nom pour chacun.) Visual Basic s'enquiert 
ensuite du nom de projet pour le fichier de description. Nommez le projet HappyApp, 
puis enregistrez. S'il vous est propose d'ajouter le projet a la bibliotheque Source- 
Safe, repondez Non. 

Le fichier de description de projet est ce que vous chargerez pour travailler 
sur V application par la suite. Lorsque vous ouvrez, ce fichier de description, 
Visual Basic charge tous les fichiers associes au projet, et en affiche les noms 
dans la fenetre Projet. 
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Ajouter les details 

Maintenant que l'arriere-plan de l'application est cree, il vous reste a ajouter les details, 
c'est-a-dire a disposer les controles sur la feuille. Ce qui se fait generalement de la 
maniere suivante : 

1 . Selectionnez le controle dans la Boite a outils. 

2. Placez le controle a la position voulue. 

3. Dimensionnez le controle. 

4. Definissez les valeurs de proprietes du controle. 

5. Activez le controle a l'aide de code Visual Basic, si necessaire. 

Les etapes suivantes vous enseignent a selectionner les controles dans la Boite a outils et a 
les disposer sur la feuille. Dans la plupart des cas, vous procederez de l'une de ces deux 
manieres : 

• Double-cliquez sur l'icone du controle dans la Boite a outils. Visual Basic place 
alors ce controle au centre de la feuille. Vous pouvez ensuite l'affecter a la position 
choisie, et le redimensionner en faisant glisser les poignees de redimensionnement. 

• Cliquez sur l'icone du controle dans la Boite a outils, puis deplacez vers l'emplacement 
voulu le curseur cruciforme qui apparait. La, cliquez, puis maintenez le bouton en 
deplacant la souris ; vous dimensionnez le controle. Lorsque le controle a la position et 
la taille souhaitees, lachez le bouton de la souris. 

Les etapes qui suivent enrichissent 1' application creee a la section precedente : 

1. Double-cliquez sur le controle Label pour placer un label au centre de votre feuille. 
Sur le controle Label figure la lettre A, comme nous l'avons vu a la section sur la barre 
d'outils. (Rappelez-vous que les info-bulles vous indique la fonction des icones que 
vous ne reconnaissez pas.) Le label est maintenant l'outil selectionne dans la zone 
d'edition de la fenetre Feuilles, et des poignees de redimensionnement apparaissent 
tout autour. La fenetre Proprietes, quant a elle, s'actualise pour afficher les proprietes 
du label ; sur la barre d'outils, les coordonnees de position et de taille refletent les 
nouvelles mesures du controle. 

On se sert d'un label pour afficher du texte sur une feuille. Dans ce cas precis, le 
label constituera une zone de titre pour l'application. 

2. Faites glisser le label sur la feuille jusqu'a ce qu'il se situe environ a 1320 twips du 
bord gauche de la fenetre Feuilles et 120 twips du bord superieur. Guidez-vous a 
l'aide des coordonnees affichees sur la barre d'outils. 
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A moins que vous ne modifiez V option Aligner les controles sur la grille 
(onglet General de la boite de dialogue Outils, Options), Visual Basic aligne 
automatiquement les controles sur les points les plus proches, afin que 
V ensemble soit proprement ordonne. 

3. Double-cliquez sur le controle Bouton de commande de la Boite a outils, afin de 
placer un bouton de commande au centre de la feuille. 

4. Cherchez sur la Boite a outils le controle Image, puis faites un simple clic sur son 
icone (un double clic centrerait automatiquement le controle) . Placez le curseur sur 
la feuille et dessinez le controle Image, en essayant de l'ancrer environ a 2520 twips 
du bord gauche et 2880 twips du bord superieur. Donnez a l'image une taille 
approximative de 2175 twips en largeur et 1825 twips en hauteur. Si vous ne 
deplacez pas les poignees trop rapidement, une info-bulle s'affiche pour vous indi- 
quer les coordonnees de l'image. Lorsque l'objet a atteint la taille voulue, relachez 
le bouton de la souris. La Figure 2.11 montre l'ecran a cette etape. Lorsque vous 
executerez le programme, le controle affichera une image. 



Figure 2.11 
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En suivant les etapes qui precedent, vous placez le contrdle Image approxi- 
mativement a la position demandee. Pour lui affecter les coordonnees de 
position et de taille exactes, il suffit de donner les valeurs specifiees aux 
proprietes correspondantes : Left = 2520, Top = 2880, Width = 2175 et 
Height = 1825. A Vavenir, c'est par une notation de ce type que nous vous 
indiquerons les valeurs de proprietes. Vous savez maintenant que, pour 
assigner de nouvelles valeurs, il suffit de cliquer sur le nom de la propriete 
concernee et de saisir directement . 

Les coordonnees de position et de taille sont toujours specifiees en twips, et 
par paires. Vous les verrez souvent enoncees entre parentheses , a la maniere 
de points cartesiens : (2520, 2880) . 

Meme si vous ne comprenez pas encore chacune des proprietes, vous etes en mesure 
de leur attribuer des valeurs. II s'agit, a present, de definir de nouvelles valeurs de 
proprietes pour la feuille et ses controles afin de finaliser l'aspect de 1' application. 
Lorsque cela sera fait, il restera a ajouter le code propre a connecter les divers 
composants et a les faire fonctionner ensemble. 

Le Tableau 2.2 presente une liste des valeurs de proprietes qu'il faut maintenant 
definir pour les trois controles et la feuille elle-meme. Rappelez-vous qu'il faut 
selectionner la feuille ou le controle specifique avant de pouvoir en modifier les 
valeurs de proprietes. Pour selectionner une feuille, cliquez n'importe oil a l'inte- 
rieur ou sur la barre de titre — , mais pas sur l'un des controles. La fenetre Proprietes 
s'actualise pour renvoyer les nouvelles valeurs. Cliquez d'abord sur le label, le 
bouton de commande ou l'image pour selectionner un controle, et modifiez-le en 
selectionnant une propriete, puis en saisissant la nouvelle valeur. 



Au premier abord, le parametrage des informations de police pour un 
contrdle peut sembler confus. Lorsque vous selectionnez. la propriete Font 
d'un contrdle, des points de suspension apparaissent apres la valeur. Ces 
points de suspension indiquent que vous pouvez attribuer a cette propriete 
plus d'une valeur ; en cliquant sur les points, vous ajfichez la boite de 
dialogue reproduite en Figure 2.12. Unefois que vous avez defini les valeurs 
dans cette boite de dialogue et valide par OK, les valeurs de diverses 
proprietes liees a la police se modifient en consequence. 
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Figure 2.12 
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Tableau 2.2 : Affectez les valeurs de proprietes suivantes a la feuille 
et aux controles de l'application 



Controles 


Proprietes 


Valeurs de proprietes 


Feuille 


Max Button 


False (ouvrez la liste deroulante pour afficher les 
valeurs) 


Label 


Alignment 


Center (ouvrez la liste deroulante pour afficher 
les valeurs) 


Label 


Name 


lblHappy 


Label 


Caption 


Bonne journee! 


Label 


Font 


Courier New 


Label 


Font style 


Bold 


Label 


Size 


36 


Label 


Left 


1320 


Label 


Height 


1695 


Label 


Top 


120 
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Tableau 2.2 : Affectez les valeurs de proprietes suivantes a la feuille 
et aux controles de l'application (suite) 



Contrdles 


Proprietes 


Valeurs de proprietes 


Label 


Width 


4695 


Image 


Name 


imgHappy 


Image 


Stretch 


True 


Bouton de commande 


Name 


cmdHappy 


Bouton de commande 


Caption 


Cliquez ici 



' Vous pouvez, dans le cours meme de I'ecriture, executer l'application pour 

voir un peu ce que ca donne. Si, par exemple, vous appuyez maintenant sur 
F5 (raccourci pour la commande Executer), Visual Basic analyse le 
programme et affiche une fenetre d' application active incluant un bouton de 
commande sur lequel vous pouvez cliquer. Rien ne se passe lorsque vous 
cliquez sur le bouton, sinon que le bouton s'anime pour figurer le die. Par 
ailleurs, le contrdle Image que nous avons place ne contient pour V instant 
rien du tout. Nous reglerons ces deux problemes mineurs dans la section 
suivante. Pour quitter le programme, cliquez sur le bouton de fermeture de 
la fenetre d' application . La prochaine lecon vous apprendra a ajouter des 
"partes de sorties" plus commodes . 



Finaliser par le code 

Grace aux instructions Visual Basic que nous allons maintenant ajouter, votre appli- 
cation va devenir tout a fait fonctionnelle, quoique simple. Cette procedure peut vous 
sembler etrange, car il s'agit de taper des codes quelque peu esoteriques dans une fene- 
tre Code qui s' affiche de facon impromptue. Observez les quelques etapes qui suivent ; 
les prochains chapitres vous apprendront plus de subtilites sur la question. 

1. Double-cliquez sur la forme, soit quelque part sur la grille dans la fenetre Feuilles. 
La feuille disparait et la fenetre Code s' affiche avec ces deux lignes : 

Private Sub Form_Load() 
End Sub 
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Ces lignes font partie des quatre lignes indispensables au code d'une feuille. 
La fenetre Feuilles fonctionne comme un petit traitement de texte dans lequel vous 
pouvez inserer, supprimer et modifier les differentes instructions contenues dans le 
programme. 

Le code apparait sous forme de procedures ; chaque procedure necessite 
une ligne de debut et une ligne de fin, qui en designent les points de depart 
et d'arret. Pour la plupart des procedures, Visual Basic ajoute automati- 
quement ces deux lignes. 




Une procedure est une section de code Visual Basic qui contient des instruc- 
tions chargees d'une tdche precise ; par exemple, centrer une fenetre 




1. Vous allez maintenant saisir vos premieres lignes de code. Inserez trois espaces au 
debut de chaque ligne, de sorte qu'elles soient legerement decalees par rapport 
aux lignes de debut et de fin. Cet ensemble de renfoncements, que les program- 
meurs nomment indentation, permettent de circonscrire chaque procedure a 
l'interieur d'une longue succession. Le code qui suit contraint la fenetre d'applica- 
tion a s'afficher au centre de l'ecran, quelle que soit la resolution utilisee. 

frmMyFirst.Left = (Screen .Width - frmMyFirst .Width) / 2 
frmMyFirst. Top = (Screen .Width - frmMyFirst . Height ) / 2 

A peine avez-vous commence de taper la premiere ligne que Visual Basic affiche un 
complement automatique d' instructions (voir Figure 2.13). Lorsque Visual Basic 
"pressent" que vous allez specifier des valeurs de proprietes, il propose sous forme 
de liste deroulante les differentes options disponibles pour le controle ; vous pouvez 
ainsi choisir dans la liste plutot que de saisir le nom de la propriete en entier. Des 
que vous avez selectionne une propriete et valide en appuyant sur la barre d'espace, 
Visual Basic insere le nom complet, et vous pouvez poursuivre votre saisie. 

3 . Dans la fenetre Projet, cliquez sur le bouton Afficher l'objet afin de revenir a la fenetre 
Feuilles. 

4. Double-cliquez sur le bouton de commande pour ouvrir la fenetre Code de nouveau. 
Au code initial vient s'ajouter un nouvel ensemble d' instructions de debut et de fin ; 
il s'agit d'une nouvelle procedure destinee a gerer le bouton de commande. Entre 
ces deux nouvelles lignes, tapez le code suivant, toujours precede de trois espaces : 

imgHappy = LoadPicture( " \Program FilesVMicrosoft Visual Studio\ 
Common \Graphics \Bitmaps\Assorted\Happy.bmp" ) 
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Figure 2.13 

Visual Basic accelere 
la saisie du code. 
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Alors que vous tapez la parenthese ouvrante apres LoadPicture, Visual Basic 
propose une aide contextuelle semblable au Complement automatique d' instructions 
que nous avons deja vu. Certaines instructions Visual Basic, notamment celles que 
Ton ecrit entre parentheses, requierent que vous saisissiez une ou plusieurs valeurs. 
Visual Basic proposant automatiquement le format de ces valeurs, vous saurez 
toujours combien il en faut. A mesure que vous progresserez dans votre connais- 
sance du langage, vous comprendrez mieux la necessite de ces valeurs. Dans un 
langage aussi complet que Visual Basic, l'aide contextuelle proposee s'avere d'une 
grande utilite. 

5. Executez le programme et cliquez sur le bouton de commande : une image apparait (voir 
Figure 2.14). Bravo ! Vous avez reussi a creer une application complete sans recourir a 
l'assistant Creation d' applications. Cette application affiche une image lorsqu'on clique 
sur un bouton ; elle contient du code, et vous en avez parametre chacun des controles. 

6. Cliquez sur le bouton de fermeture pour quitter le programme. Assurez-vous de bien 
sauvegarder votre projet avant de quitter Visual Basic. 
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Figure 2.14 

Votre application 
affiche une image 
lorsqu 'on clique 
sur le bouton. 



m Bonne Journie 



Bonne 
journee ! 




En resume 

Si, dans ce chapitre, nous nous sommes attache a decrire l'environnement Visual Basic, 
c'est que vous ne deviendrez un programmeur Visual Basic efficace qu'apres avoir 
compris le jeu des diverses fenetres et interfaces. Visual Basic propose plusieurs niveaux 
d'aide, incluant Taide en ligne, le support Web et un support technique personnalise 
disponible en plusieurs formules. Vous avez ainsi une assistance precieuse a portee de 
main, au cas oil un aspect de l'interface ou du langage Visual Basic vous poserait un 
probleme. 

Pour creer une application, il faut creer un nouveau projet, ajouter des controles dans la 
fenetre Feuilles, definir les valeurs de proprietes de la feuille et des controles, et activer 
ces controles a l'aide du code. Le projet d'aujourd'hui etait exceptionnellement simple, 
en raison notamment du peu de lignes de code requises : trois . 

La lecon de demain repondra a quelques questions que vous vous posez a propos des 
controles et de leurs proprietes. 
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Questions-reponses 

Q Quelles doivent etre les dimensions de ma fenetre Feuilles ? 

R C'est la finalite de l'application qui doit decider de la grandeur de la fenetre Feuilles 
et du nombre de feuilles requis. Pour des programmes simples, une feuille est gene- 
ralement suffisante ; la taille de la feuille, quant a elle, depend du nombre de controles 
qu'elle doit recevoir, et de la nature du programme. 

Nous aurions pu, dans ce chapitre, creer une feuille de taille maximale ; mais, avec 
seulement trois controles, c'eflt ete tout a fait demesure. 

Q A quoi exactement sert le code que nous avons ecrit ? 

R Le code est necessaire au bon fonctionnement de l'application. La ligne contenant 
le mot cle LoadPicture est indispensable, car c'est elle qui lance le chargement de 
1' image lorsqu'on clique sur le bouton de commande. Les deux autres lignes, que 
nous avons ajoutees apres avoir double-clique sur la fenetre Feuilles pour ouvrir la 
fenetre Code, servent a centrer la forme quelles que soient la taille et la resolution 
de l'ecran utilise. 

Q Si c'est le code qui centre la fenetre Feuilles, etait-il necessaire d'utiliser la fene- 
tre Presentation des feuilles ? 

R Quelque position que vous donniez a la feuille dans la fenetre Presentation des 
feuilles, les deux lignes de la procedure centrent automatiquement la feuille au 
lancement du programme. 

La fenetre Presentation des feuilles est une ebauche qui vous donne une idee de 
l'emplacement de la fenetre Feuilles lorsque la feuille est chargee. Pour un controle 
plus serre, et notamment si vous n'etes pas certain de la taille de l'ecran sur lequel 
sera execute le programme, la feuille doit etre positionnee a l'aide du code. 

Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices grace 
auxquels vous mettrez en pratique ce que vous avez appris. II convient de comprendre 
les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trouverez 
ces reponses a 1' Annexe A. 
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Quiz 

1 . Quelle est la difference entre la Boite a outils et la barre d'outils ? 

2. Quel est le nom du service d'aide fourni sur abonnement aux programmeurs 
Microsoft ? 

3. La fenetre Feuilles ne peut contenir qu'une feuille a la fois. Vrai ou faux ? 

4. Que se passe-t-il lorsqu'on clique sur un controle de la Boite a outils ? 

5. Que se passe-t-il lorsqu'on double-clique sur un controle de la Boite a outils ? 

6. C'est depuis la fenetre Boite a outils que Ton definit les proprietes d'un controle. Vrai 
ou faux ? 

7. Comment Visual Basic determine-t-il de quel controle les proprietes doivent etre 
affichees dans la fenetre Proprietes ? 

8. Que signifient les points de suspension dans une valeur de la fenetre Proprietes ? 

9. Quel est le nom de la propriete qui specifie le titre d'un bouton de commande ? 

10. Pourquoi faut-il changer le nom par defaut des controles ? 

Exercice 

Chargez 1' application creee aujourd'hui pour pouvoir la modifier. Ajoutez un peu de 
couleur en appliquant du bleu a l'arriere-plan de la feuille. Placez egalement sur la 
feuille un nouveau bouton de commande, labelise Quitter, et specifiez une propriete 
Name adequate pour ce controle. Dans la nouvelle procedure qui s'affiche dans la fenetre 
Code, ajoutez la ligne suivante, qui gere le nouveau bouton : 

End 

Executez 1' application, puis cliquez sur le bouton Quitter. N'est-ce pas une facon plus 
elegante de prendre conge d'une application ? 
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Maintenant que vous avez cree deux applications, l'une avec l'assistant Creation d'appli- 
cations et l'autre a la force de votre poignet (facon de parler), il est temps d'etudier le 
fonctionnement interne de Visual Basic. Les travaux pratiques des deux premiers chapitres 
ont demon tre la facilite avec laquelle on peut creer des programmes, et ils vous ont donne 
un apercu de l'environnement Visual Basic. A partir d'aujourd'hui, vous allez commencer 
a comprendre de quelle facon les composants fonctionnent ensemble — notamment les 
controles et leurs proprietes. 

Voici ce que nous decouvrirons aujourd'hui : 

• les proprietes des controles courants ; 

• pourquoi les controles ont autant de proprietes ; 
les outils communs de la Boite a outils ; 

l comment les touches de raccourcis accelerent la saisie des donnees ; 
comment le focus aide l'utilisateur a selectionner les controles ; 

• le fonctionnement des procedures. 
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Etude des controles 

La Boite a outils contient un ensemble de controles dont vous vous servez dans vos 
applications. Dans la Boite a outils, les controles sont en nombre illimite : vous pouvez 
double-cliquer sur le controle Image autant de fois que votre application le necessite ; 
chaque fois, un nouveau controle est cree sur la feuille. 

La variete des controles (ou outils) disponibles dans la Boite a outils depend des 
exigences de votre application. Dans le cadre de votre apprentissage, la Boite a outils 
contiendra, en general, le meme jeu d'outils que nous avons vu dans la lecon d'hier. II 
s'agit des controles standards que Visual Basic charge lorsque vous creez une nouvelle 
application. 
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Un controle n'est pas accessible a votre application tant qu'il n'apparait pas 
dans la Boite a outils. Vous ne pouvez done pas, par exemple, ajouter sur votre 
feuille un controle de navigation Internet si ce controle n'est pas propose par 
la Boite a outils. Si vous utilisez I'assistant Creation d 'applications , il ajou- 
tera a la Boite a outils tous les controles requis pour generer le projet. 



Si, dans une des lecons de ce livre, il est fait reference a un controle absent de 
la Boite a outils standard, nous vous expliquerons comment vous le procurer. 



Comme le montre la Figure 3.1 , la Boite a outils peut devenir passablement encombree 
a partir d'un certain nombre de controles. Une telle Boite a outils accapare beaucoup 
d'espace dans votre fenetre. Pour liberer de l'espace a gauche de votre ecran, vous 
pouvez deplacer la Boite a outils en en faisant glisser la barre de titre vers une nouvelle 
position. La fenetre Boite a outils peut egalement etre redimensionnee. 



— 1 ) Ne pas faire 

Evitez de donner a la Boite a outils une taille si reduite qu 'elle en devienne 
invisible. Si la Boite a outils est si petite que des controles ne puissent plus 
etre vus, aucune barre de defilement ne s'affichera. Pour utiliser les outils 
situes au-dela des limites de la fenetre, ilfaut etendre la fenetre jusqu'a ce 
qu'ils redeviennent accessibles . 

— ' I Les puristes Visual Basic appliquent aux jeux de controles disponibles une 
terminologie plus stride. Les controles qui apparaissent en premier dans la 
Boite a outils sont nommes controles intrinseques . Les controles ActiveX, 
d' extension .OCX, sont des controles externes qui peuvent etre ajoutes a la 
Boite a outils. Les controles insurables sont des controles crees dans des 
applications externes, telles que Microsoft Excel. 
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Figure 3.1 
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Les proprietes sont les memes pour la plupart des controles. Le Tableau 3.1 liste les 
proprietes les plus courantes. Vous comprendrez sans doute pourquoi ces proprietes 
s'appliquent a tant de controles. Tous les controles doivent avoir une position sur l'ecran 
(definie par les proprietes Left et Top), et la plupart ont des couleurs de premier et 
d'arriere-plan, ainsi que des proprietes de police, pour ceux qui incluent du texte. 



Tableau 3.1 : 


Proprietes communes a plusieurs controles Visual Basic 


Proprietes 


Description 


Alignment 


Determine si le texte du controle, tel qu'un label ou un bouton de commande, 




apparatt comme aligne a gauche, centre ou aligne a droite. 


BackColor 


Specifie la couleur de l'arriere-plan du controle. Vous choisissez cette couleur 




dans une palette en ouvrant la liste deroulante de la propriete. 


BorderStyle 


Determine si le controle est entoure d'une bordure. 


Caption 


Contient le texte affiche sur le controle. 


Enabled 


Definie via une liste deroulante, cette propriete sera True (vraie) si le controle 




doit etre accessible a l'utilisateur, et False (fausse) si le controle ne doit pas etre 




accessible. Cette propriete permet d'activer et de desactiver les controles selon 




qu'on les veut ou non disponibles lors de l'execution du programme. 
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Tableau 3.1 : Proprietes communes a plusieurs controles Visual Basic (suite) 



Proprietes 


Description 


Font 


Affiche une boite de dialogue dans laquelle vous parametrez pour le texte d'un 




controle divers attributs de police, tels que la taille ou le style. 


ForeColor 


Specifie la couleur de premier plan du controle. Vous choisissez cette couleur 




dans une palette en ouvrant la liste deroulante de la propriete. 


Height 


Specifie la hauteur en twips du controle. 


Left 


Definit, a partir du bord gauche de la feuille, l'origine horizontale du controle. 




Pour une feuille, la propriete Left definit la distance (en twips) au bord 




gauche de l'ecran. 


MousePointer 


Determine la forme que prend le curseur lorsque l'utilisateur deplace la souris 




sur le controle. 


Name 


Specifie le nom du controle. Come nous l'avons vu dans la lecon d'hier, la 




fenetre Proprietes affiche la propriete Name entre parentheses afin qu'elle 




apparaisse en premier dans la liste. 


ToolTipText 


Contient le texte qui apparait lorsque l'utilisateur maintient le curseur sur un 






Top 


Definit, a partir du bord superieur de la feuille, l'origine verticale du controle. 




Pour une feuille, la propriete Left definit la distance (en twips) au bord 




superieur de l'ecran. 


Visible 


Definie via une liste deroulante, cette propriete sera True (vraie) si le controle 




doit etre visible sur la feuille, et False (fausse) si le controle doit etre masque. 


Width 


Specifie la largeur en twips du controle. 



Rappelez-vous que les valeurs de proprietes sont definies pour chaque controle avant 
meme que vous ne les modifiiez. Des que vous placez un controle, Visual Basic lui 
applique un jeu de valeurs de proprietes predetermine (les valeurs les plus courantes) . 
Visual Basic affecte egalement aux controles des noms et libelles, par defaut, que vous 
souhaiterez sans doute modifier. Les valeurs par defaut fonctionnent tres bien dans la 
plupart des cas. Vous n'aurez jamais a changer toutes les valeurs de proprietes par defaut 
d'un controle. 

Comme nous l'avons vu, les proprietes des controles peuvent etre parametrees lors de 
l'ecriture du programme. Mais vous pouvez egalement definir et modifier les valeurs 
de proprietes dans le cours meme de l'execution du programme. Par exemple, la 
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propriete Enabled est souvent modifiee pendant l'execution pour qu'un controle ne soit 
plus accessible a l'utilisateur. Vous pouvez ainsi desactiver un bouton de commande qui 
genere un rapport jusqu'a ce que l'utilisateur ait donne le contenu du rapport. 

La fenetre Proprietes n 'affiche pas toutes les proprietes de tous les contrd- 
les. N'y apparaissent pas les proprietes settlement definissables dans le code 
Visual Basic. 




' Certaines proprietes, telles que Alignment, peuvent sembler etrange, dufait 

que, dans leur liste deroulante, les valeurs sont precedees d'un chiffre. Align - 
ment, par exemple, prend I'une de ces trois valeurs : 0-Left Justify, 1 - 
Right Justify et 2-Center. Vous pouvez selectionner ces valeurs a Vaide de 
la souris sans tenir compte des chiffres ; vous pouvez egalement, apres avoir 
ouvert la liste deroulante d'une propriete, taper le chiffre correspondant a la 
valeur voulue. Ces chiffes sont tout aussi pratiques lorsque vous definissez les 
proprietes d'un controle dans le code Visual Basic : il suffit d'attribuer la 
valeur numerique, au lieu de saisir la valeur entiere (comme 0-Left 
Justify). Ces chiffres constituent des raccourcis utiles lors de I'ecriture du 
code, comme nous le verrons dans les lecons suivantes. 



Les sections suivantes decrivent les controles standards les plus utiles, ainsi que 
plusieurs des proprietes importantes associees a ces controles. Nous ne vous presente- 
rons pas aujourd'hui tous les controles de la Boite a outils, mais seulement ceux que 
vous utiliserez lors de vos premieres experiences en Visual Basic. 

Nous ne donnerons pas non plus un compte rendu exhaustif de toutes les proprietes, 
parce que certaines de ces proprietes ne sont que tres rarement utilisees. Bien des 
programmeurs Visual Basic ne connaissent meme pas toutes les proprietes disponibles 
pour un controle. En general, si vous souhaitez donner a un controle un aspect precis, il 
existe une propriete qui vous permet de le faire. Le tour d'horizon des controles et de 
leurs proprietes que nous vous proposons maintenant vous aidera a mieux comprendre 
la fonction des controles, et les diverses proprietes qui leur sont associees. 



Certains programmeurs preferent que la fenetre Proprietes affiche les 
proprietes par categories . Pour appliquer un tel classement, cliquez sur 
Vonglet Par categories de la fenetre Proprietes (voir Figure 3.2). 
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Figure 3.2 
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Les proprietes de la feuille 

Nombre des proprietes de feuille correspondent aux proprietes de controles presentees 
au Tableau 3.1. La feuille, en revanche, a cela de particulier qu'elle n'apparait pas sur 
une feuille, mais directement sur l'ecran de l'utilisateur. C'est pourquoi les proprietes 
Left, Top, Width et Height de la feuille sont fixees par rapport aux bords de l'ecran, et 
non par rapport au bord d'une fenetre Feuilles. 

Les proprietes de feuille suivantes ont aussi leur importance : 

• Border-Style. Determine la reaction de la fenetre lorsque l'utilisateur cherche a la 
redimensionner. Les valeurs possibles incluent 0-None, qui donne une fenetre sans 
bordure ni barre de titre ; 1 -Fixed Single, qui donne une fenetre non redimension- 
nable (l'utilisateur peut fermer la fenetre, mais ni la redimensionner, ni la reduire, ni 
l'agrandir) ; 2-Sizable, valeur par defaut qui donne une fenetre redimensionnable 
classique, avec boutons Agrandir et Reduire. 

• ControlBox. Les valeurs True et False de cette propriete determinent raffichage du 
menu Systeme de la feuille . 



> 
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Le menu Systeme est le menu qui apparent lorsqu'on clique sur I'icdne 
situee dans le coin superieur gauche de la fenetre. Ce menu propose les 
options classiques de deplacement , redimensionnement , reduction, agran- 
dissement etfermeture. 



• Icon. Specifie un fichier d'icone pour le bouton qui representera l'application sur la 
Barre des taches Windows. 

• MaxButton. Determine l'affichage sur la fenetre d'un bouton actif Agrandir. 

• MinButton. Determine l'affichage sur la fenetre d'un bouton actif Reduire. (Si vous 
donnez la valeur False aux proprietes MaxButton et MinButton, aucun des deux 
boutons n'apparaitra.) 

• Movable. Determine si l'utilisateur est libre de deplacer la feuille ou si cette feuille 
doit rester en place. 

• ShowlnTaskbar. Les valeurs True et False de cette propriete determinent l'affichage 
de l'application sur la barre des taches Windows. 

• StartUpPosition. Offre un moyen rapide de definir la position de depart de la feuille 
sur l'ecran. L'une des valeurs les plus utiles est 2-CenterScreen, qui centre automa- 
tiquement la feuille des sa premiere apparition. 

• WindowState. Determine la taille (normale, agrandie, reduite) de la feuille. Cette 
propriete est utile pour afheher par defaut la feuille reduite. 



L'outil Pointeur 

L'outil pointeur est le seul element de la Boite a outils qui ne soit pas un controle. Le 
pointeur, et e'est en fait sa seule utilite, permet de se debarrasser du curseur cruciforme, 
qui apparait quand vous selectionnez un controle de la Boite a outils. 



Le controle Label 

Le controle Label permet d'afheher du texte. Votre utilisateur ne peut naturellement pas 
changer le texte d'un label. Mais vous pouvez, vous, modifier le label en cours d'execution, 
dans le code. (Voir le Chapitre 5 pour plus de details.) Les programmeurs ont souvent 
recours aux labels pour des titres, des invites ou des descriptions. Si, par exemple, vous 
souhaitez que l'utilisateur saisisse une valeur dans un autre controle, tel qu'une zone de 
texte, vous placez a cote de cette zone de saisie un label decrivant la valeur demandee. 
Sans le label, l'utilisateur ne saurait quelle valeur entrer. 
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AutoSize et Wordwrap sont deux proprietes qui affectent l'affichage du texte sur un label. 
Si vous donnez a AutoSize la valeur True, la taille du label s'ajuste horizontalement 
pour afficher la totalite du texte. Lorsque Wordwrap a la valeur True, Visual Basic 
maintient la largeur du label, mais l'etend verticalement pour afficher autant de lignes 
que necessaire. 

La Figure 3.3 montre trois versions d'un meme label, avec une propriete Caption identi- 
que, mais avec des combinaisons differentes des proprietes AutoSize et Wordwrap. 

Cela peut parattre etonnant, mais, pour que Wordwrap fonctionne, AutoSize 
doit aussi avoir la valeur True. En effet, Visual Basic doit pouvoir etendre le 
label horizontalement, ne serait-ce qu'un petit peu, au cas oil un mime mot 
serait plus large que le label lui-meme. 



Figure 3.3 
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affectent l'affichage 
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Le controle TextBox 

On a recours aux zones de texte (text boxes) lorsque l'utilisateur doit taper quelque chose 
— reponse a une invite ou informations diverses. II est souvent plus facile pour les utili- 
sateurs de se voir proposer une valeur par defaut, ce que Visual Basic vous permet de 
faire. Si, par exemple, vous demandez a l'utilisateur de taper une date, vous pouvez 
afficher par defaut la date du jour, de sorte que l'utilisateur n'aura pas a la ressaisir. 

Les zones de texte ne conviennent pas aux questions appelant des reponses du type 
oui/non. Pour inviter l'utilisateur a choisir entre deux valeurs ou a repondre par oui ou 
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par non, d'autres controles sont plus appropries — comme les controles OptionButton 
(bouton d'option) ou ListBox (zone de liste deroulante) , que nous etudierons de maniere 
plus approfondie aux Chapitres 5 et 6. 

Faire 

A cote du controle TextBox, il est bon d'indiquer dans un label la valeur 
attendue. Pour une demande de nom et adresse, par exemple, placet avant le 
controle TextBox un label du type Entrez votre nom :. Vos utilisateurs 
sauront ainsi precisement ce que Von attend d'eux. 

Vous devez faire le distinguo entre la phase de creation (designtime) et la 
phase d' execution (runtime). La phase de creation est la periode pendant 
laquelle vous ecrivez et maintenez. une application. La phase d'execution est 
celle ou I'utilisateur exploite votre application. La valeur que vous definissez. 
pour la propriete Text d'une zone de texte lors de la phase de creation sera 
la valeur par defaut pour I'utilisateur lors de la phase d'execution. Cet utili- 
sateur pourra alors modifier la valeur de la zone de texte, en la reecrivant ou 
en la modifiant. 

Pour parametrer les zones de texte de votre feuille, vous vous servirez des proprietes 
suivantes : 

• Alignment. Determine l'alignement du texte dans une zone de texte dont la propriete 
MultiLine est definie comme True. La propriete Alignment est sans utilite pour une 
zone de texte qui ne contient qu'une ligne. 

• Locked. Determine si I'utilisateur peut, dans une zone de texte, entrer une nouvelle 
valeur ou modifier la valeur par defaut. Si la valeur de Locked est True, I'utilisateur 
ne peut intervenir sur le texte tant que le programme n'attribue pas, en cours 
d'execution, la valeur False. 

• MaxLength. Specifie le nombre maximal de caracteres que la zone de texte peut 
contenir. La valeur 0 indique une longeur illimitee. 

• MultiLine. Lorsque sa valeur est True, cette propriete specifie que la zone de texte 
peut recevoir plus d'une ligne de texte. Une barre de defilement verticale apparait si 
I'utilisateur entre plus de texte que ne peut en contenir une seule ligne —a moins 
que vous n'ayez desactive les barres de defilement avec la propriete ScrollBars. La 
propriete Alignment, dont la valeur par degaut est 0-Left Justify, determine 
l'alignement du texte. 

• PasswordChar. Designe un caractere, comme l'asterisque, qui apparaitra en lieu et 
place des caracteres tapes par I'utilisateur dans la zone de texte. Ainsi, si I'utilisateur 
entre un mot de passe, seuls des asterisques apparaitront a l'ecran, de sorte qu'aucun 
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indiscret ne puisse le lire par-dessus son epaule. Bien que seuls des asterisques appa- 
raissent, c'est le mot de passe reellement tape par l'utilisation qui sera enregistre. 

• ScrollBars. Determine si des barres de defilement apparaitront dans la zone de texte, 
et combien. Lorsque la valeur est 0-None, aucune barre de defilement ne s'affiche. 1 - 
Horizontal n'autorise que les barres de defilement horizontales. 2-Vertical n'auto- 
rise que les barres de defilement verticales. 3-Both affiche des barres de defilement 
verticales et horizontales. 

Pour que des barres de defilement apparaissent dans la zone de texte, la 
propriete MultiLine doit avoir la valeur True. 



Text. Specifie le texte qui apparait par defaut dans la zone de texte. 

Les zones de texte et les champs de formulaires appellent un curseur special. Votre utili- 
sateur saisit et modifie le texte a l'aide d'un curseur de texte. Lorsqu'on clique sur le 
contenu d'une zone de texte, le curseur de texte s'active pour en permettre la modification. 




Le curseur de texte, egalement nomme point d'insertion, est une barre verti- 
cale pour saisir ou modifier du texte dans des contrdles tels que les zones de 



texte. 

Chargez et executez I' application Controls depuis le dossier Samples \ 
VB98 1 Controls de MSDN. Selectionnez I' option TextBox pour vous entrat- 
ner un peu. L'ecran qui s'affiche est reproduit en Figure 3.4. Vous pourrez 
ainsi vous familiariser avec les zones de texte monolignes et multilignes, 
ainsi qu'avec les curseur s de texte et les barres de defilement. L 'applica- 
tion Controls demontre egalement que I' on peut effectuer dans et depuis 
une zone de texte les operations Windows standards de copier, couper et 
cotter. 

Le controle CommandButton 

Les applications contiennent presque toujours des boutons de commande. Les boutons 
de commande permettent a l'utilisateur d'indiquer qu'une reponse est prete, que 
1'imprimante est rechargee en papier, ou qu'il souhaite quitter le programme. Comme 
nous l'avons vu au chapitre precedent, Visual Basic prend en charge l'animation du 
bouton qui signale graphiquement le clic. 
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Figure 3.4 
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Une touche de raccourci est une touche qui, combinee a la touche Alt, 
declenche une reponse du programme. Par exemple, les options de barre de 
menus ont toutes une touche de raccourci : Alt-F pour le menu Fichier, etc. 
Dans une option de barre de menus ou dans le label d'un bouton de 
commande, la lettre soulignee indique la touche de raccourci corres- 
pondante. 



Les boutons de commande ne servent pas qu'aux dies de souris. Vous 
pouvez assigner au label du bouton de commande une touche de raccourci. 
L'utilisateur pourra ainsi enclencher le bouton de commande en appuyant 
sur la combinaison de touches correspondantes, telle que Alt-R. C'est dans la 
propriete Caption du bouton que la touche de raccourci est definie. Outre 
les touches de raccourci, l'utilisateur peut enclencher le bouton de 
commande en appuyant sur Entree ; ilfaut pour cela que le bouton soit le 
controle selectionne ou que sa propriete Default ait la valeur True (voyez 
la section sur le focus pour plus d' informations). Vous pouvez enfin 
attribuer a un bouton de commande la touche Echap, par exemple pour les 
boutons du type Quitter ou Annuler (dans ce dernier cas, c'est la propriete 
Cancel qui gere la touche Echap). 



Voici quelques proprietes utiles pour la programmation des boutons de commande : 

• Cancel. Determine la reaction du bouton de commande a la touche Echap. Si la 
valeur est True, l'utilisateur peut enclencher le bouton de commande par la touche 
Echap, exactement comme s'il avait clique. Un seul bouton sur la feuille peut avoir la 
propriete Cancel definie comme True. Si vous specifiez cette valeur de propriete 
pour plus d'un bouton, Visual Basic ne retient que le dernier, definissant tous les 
autres comme False. 
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• Caption. Contient le texte qui apparaitra sur le bouton de commande. Pour definir 
une lettre comme touche de raccourci, il suffit de la faire preceder d'une esperluette 
(&). Ainsi, une propriete Caption de valeur &Quitter donnera un bouton comme 
celui qui est represente en Figure 3.5. L'utilisateur pourra, au choix, enclencher ce 
bouton en cliquant dessus ou en appuyant sur Alt-Q. 



Figure 3.5 

On definit une touche de raccourci en placant, dans la valeur de Caption, \ QuittGT 

une esperluette & avant la lettre choisie (la touche de raccourci est '* 

souligne'e sur le bouton). 



• Default. Determine la reaction du bouton de commande a la touche Entree. Si la 
valeur est True, l'utilisateur peut enclencher le bouton en appuyant sur Entree — a 
moins qu'il n'ait mis le focus sur un autre controle (voir section suivante). Si vous 
specifiez cette valeur de propriete pour plus d'un bouton, Visual Basic ne retient que 
le dernier, definissant tous les autres comme False. Le bouton dont la propriete 
Default a pour valeur True est selectionne par defaut a Paffichage de la feuille. 

• Picture. Specifie l'image qui apparaitra sur le bouton a la place d'un libelle. II faut 
pour cela que la propriete Style ait ete prealablement definie comme 1 -Graphical. 

• Style. Cette propriete determine si le bouton doit afficher un libelle (valeur 0-Stan- 
dard) ou une image (valeur 1 -Graphical). 

Prenez garde d'attribuer la mime touche de raccourci a plus d'un controle. 
Si tel etait le cas, Visual Basic ne retiendrait que le premier controle dans 
I'ordre du focus (voir section suivante), et la touche de raccourci devien- 
drait inoperante pour les autres contrdles. 




Le controle Image 

Comme vous avez place une image sur l'application creee au chapitre precedent, 
une breve presentation du controle Image est de rigueur ici. Le controle Image est, avec 
le controle PictureBox, Pun des controles qui affichent des images. Les proprietes de ce 
controle determinent le fichier graphique a utiliser, et specifient si la taille du controle 
doit s'ajuster a celle du fichier, ou si la taille du fichier doit s'ajuster a celle du controle. Vous 
en apprendrez plus sur les controles Image et PictureBox au Chapitre 14. 

Visual Basic propose, bien sur, beaucoup d'autres controles, que vous decouvrirez au fil 
de votre apprentissage. Les sections suivantes decrivent de quelle maniere l'utilisateur 
enclenche un controle par 1' intermediate du clavier. 
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Le focus 

Sur une meme feuille, un seul controle peut avoir le focus a la fois. L'ordre dans lequel 
les controles auront le focus depend de celui dans lequel vous les avez places sur la 
feuille, ou plus exactement dans l'ordre specifie dans la propriete Tablndex de chaque 
controle. Tous les controles ne peuvent pas avoir le focus. C'est un privilege reserve aux 
controles qui appellent une interaction avec l'utilisateur. Ainsi, un controle Label ne 
pourra pas avoir le focus, car l'utilisateur ne peut en aucun cas intervenir sur son 
contenu. 



Le focus, ou focus de controle, designe le controle actuellement selectionne . 
Visual Basic signale le focus en mettant le controle en surbrillance, ou en 
Ventourant d'un cadre pointille. 



— ' ) Notez que la touche de raccourci pour le troisieme bouton est Alt- A, et non 
Alt-M. La touche M etant dejd attribute au bouton du milieu ( sa propriete 
Caption a pour valeur &Moyen), le programmeur a du en attribuer une autre 
au troisieme bouton. 



' Rappelez-vous que le controle pour lequel la propriete Default a pour 

valeur True aura automatiquement le focus a I'affichage de la feuille. Natu- 
rellement, l'utilisateur peut toujour s mettre le focus sur un autre controle. 



Examinez la Figure 3.6. Le bouton de commande du milieu se distingue par le cadre 
pointille qui l'entoure. C'est generalement de cette maniere que Visual Basic signale le 
controle qui a le focus. La, si l'utilisateur appuie sur Entree, le bouton de commande 
central s'enclenche, car il a le focus. L'utilisateur peut aussi bien, en appuyant sur Tab 
ou sur Maj-Tab, mettre le focus sur un autre controle. Si done il appuie sur Tab, le focus 
passe au troisieme bouton, qui peut alors s'enclencher en reaction a la touche Entree. 



Figure 3.6 

Le controle encadre 
est celui qui a 
le focus. L'utilisateur 
peut, aussi bien, 
mettre le focus sur 
un autre controle 
avant d'appuyer 
sur Entree. 



Comment allez-vous ? 



Mojien 



Le cadre pointille indique le focus courant 
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Tous les controles ont une propriete Tablndex. A mesure que vous disposez les controles 
sur la feuille, Visual Basic definit automatiquement la propriete Tablndex comme 0, 1 , etc., 
attribuant un nombre unique et sequentiel a la propriete Tablndex de chaque controle. Meme 
les controles qui, d'ordinaire, n'appellent pas d'interaction avec l'utilisateur, tels que les 
labels, ont une propriete Tablndex. La propriete Tablndex definit l'ordre du focus. 

Vous ne placerez pas toujours les controles en suivant l'ordre des valeurs de Tablndex. 
II vous arrivera notamment de placer un controle entre deux autres. II faudra peut-etre 
modifier l'ordre de Tablndex pour maintenir l'ordre de focus que vous desirez. Par exem- 
ple, vous pouvez choisir de deplacer le focus selon l'alignement vertical des controles, ou 
selon leur alignement horizontal ; en fonction de votre choix, la touche Tab provoquera un 
deplacement du focus de haut en bas ou de gauche a droite. Cet ordre de deplacement du 
focus est specifie par les valeurs de la propriete Tablndex pour chaque controle. 



' Si le prochain controle a recevoir le focus — selon les valeurs de Tablndex 

PS** 0 — est un label, Visual Basic passe le focus au controle suivant. Vous pouvez, 
en consequence , proposer a vos utilisateurs une touche de raccourci pour 
une zone de texte. Examine z la Figure 3.7. Le label Nom : a une propriete 
Tablndex de valeur plus grande que la zone de texte suivante. Nonobstant le 
controle qui a le focus, lorsque l'utilisateur appuie sur Alt-F, Visual Basic 
passe le focus au label, qui le repasse immediatement au controle suivant (la 
zone de texte) parce que les labels ne peuvent avoir le focus. Ainsi, les 
touches de raccourci que vous attribuez aux labels identifient, en fait, les 
zones de texte, et permettent aux utilisateurs d'en modifier le contenu. Pour 
cela, il faut naturellement que les proprietes Tablndex de chaque paire 
label/zone de texte aient des valeurs consecutives . 



Figure 3.7 

L'utilisateur peut 
appuyer sur Alt-N 
pour entrer son nom 
dans la zone de texte. 



Informations client 



Nom | 
Pre nom | 
Adresse 



Zone de texte quiD 
"recevra le nom 



Code Postal 
Ville 
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Les procedures evenementielles 

Les procedures evenementielles sont parfois d'un abord difficile pour le programmeur 
debutant ; pourtant, le principe en est fort simple. Lorsque l'utilisateur appuie sur un 
bouton de commande ou tape dans une zone de texte, quelque chose doit en avertir 
1' application. Comme nous l'avons vu dans le chapitre precedent, Windows recoit des 
evenements de plusieurs sources differentes. La plupart des evenements viennent directe- 
ment de l'utilisateur qui, via le clavier ou la souris, interagit avec une application en 
cours d' execution. 

Si un evenement est declenche et qu'il ne s'agisse pas d'un evenement systeme, tel 
qu'un clic sur le bouton Demarrer, Windows passe l'evenement a 1' application. Si vous 
avez ecrit une procedure evenementielle pour traiter cet evenement precis, 1' application 
y repond. Si vous n'avez pas ecrit une telle procedure evenementielle, l'evenement n'est 
pas traite et, pour ainsi dire, se perd. 

Toutes sortes d'evenements peuvent se produire : clic, double-clic, frappe au 
clavier, etc. En outre, plusieurs controles de la feuille peuvent repondre aux memes 
types d'evenements. Par exemple, un bouton de commande et une zone de texte peuvent 
tous deux recevoir un evenement Click, l'utilisateur pouvant cliquer sur l'un comme sur 
1' autre. II s'ensuit que vous ne devez pas seulement ecrire une procedure evenementielle 
pour un evenement particulier, mais aussi specifier le controle auquel cet evenement 
revient. 



Pour votre comprehension generale de Visual Basic, il est capital de saisir 
cette necessite d' ecrire des procedures evenementielles pour tous les evene- 
ments et tous les contrdles. Combien de procedures evenementielles Click 
faudra-t-il ecrire pour gerer les trois boutons de commande d'une feuille ? II 
faudra en ecrire trois, puisque l'utilisateur peut cliquer sur chacun des trois 
boutons. 

Si vous ecrivez une procedure Click sans I'affecter a un controle particulier, le 
programme ne pourra traiter de facon specifique les differents boutons de 
commande. Une procedure Click separee doit etre ecrite pour chaque bouton 
de commande. Lorsque l'evenement Click est passe a votre programme, 
Windows passe egalement le controle qui a genere cet evenement. Pour que 
votre application puisse repondre a l'evenement, vous devez avoir ecrit une 
procedure evenementielle pour le controle et pour l'evenement. 
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Imaginons que votre application affiche quatre boutons de commande sur une feuille. 
Voici ce qui se passe : 

1. Lorsque l'utilisateur clique sur l'un des boutons, Windows reconnait qu'un evene- 
ment vient de se produire. 

2. Windows analyse cet evenement et constate qu'il releve de votre application. 

3. Windows passe l'environnement et le controle a votre application. 

4. Si votre application dispose d'une procedure pour le controle qui a recu l'evenement, 
le code de cette procedure (que vous aurez ecrit dans la fenetre Code) s'execute. 

' Le code de la procedure evenementielle s'executera si et seulement si 

l'evenement correspondant a lieu. Cette qualite fait de Visual Basic un 
sy steme tres reactif : vous ecrivez toutes sortes de procedures evenementiel- 
les qui attendront sagement qu'un evenement precis les appelle ; c'est a ce 
moment qu 'elle se mettront au travail, independamment de toute autre acti- 
vite du programme. 

Les evenements des controles courants 

Nous vous presentons ici les evenement les plus courants, lies aux controles que vous 
connaissez deja. Les feuilles comme les controles peuvent recevoir des evenements. 
Voici quelques evenements de feuilles susceptibles de se produire lors de l'execution : 

• Activate. Se produit lorsqu'une feuille a le focus. Dans une application qui contient 
plusieurs feuilles, l'evenement Activate a lieu quand l'utilisateur a une feuille diffe- 
rente en cliquant dessus ou en la selectionnant depuis un menu. 

• Click. Se produit lorsque l'utilisateur clique quelque part sur la feuille. Si l'utilisa- 
teur clique sur une feuille partiellement cachee par la feuille qui a le focus, les deux 
evenements, Click et Activate, se produisent. 

Lorsque l'utilisateur clique du bouton droit sur la feuille, c'est egalement un 
evenement Click qui se declenche. En progressant dans votre apprentis- 
sage, vous apprendrez a determiner lequel des deux boutons de la souris a 
ete employe pour le clic. 

• DblClick. Se produit lorsque l'utilisateur double-clique sur la feuille. 

• Deactivate. Se produit lorsque le focus passe a une autre feuille. En fait, lorsque 
l'utilisateur selectionne une autre feuille, il se produit a la fois un evenement Activate 
et un evenement Deactivate. Vous avez le choix d'ecrire une procedure evenemen- 
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tielle pour les deux evenements sur chaque feuille, pour un seul des deux evenements 
sur l'une des deux feuilles, ou une combinaison des deux, selon les besoins de votre 
application. 

• Initialize. Se produit lorsqu'une feuille est generee pour la premiere fois. 

• Load. Se produit au moment precis ou la feuile est chargee dans la memoire active et 
s'affiche a l'ecran. 

• Paint. Se produit lorsque Windows doit, suite a une action de l'utilisateur, redessiner 
la feuille pour faire apparaitre une partie de la feuille qui etait cachee par un autre 
objet, tel qu'une icone. 

Resize. Se produit lorsque l'utilisateur change la taille de la feuille. 

• Unload. Se produit lorsque l'application provoque, par execution d'une partie du 
code, le desaffichage d'une feuille. Lorsqu'une application se termine, toutes les 
feuilles chargees sont dechargees ; vous devrez done ecrire une procedure evene- 
mentielle Unload pour chaque feuille si vous souhaitez que la fermeture de l'applica- 
tion s'accompagne d'une sauvegarde des fichiers et d'un "nettoyage" de la memoire 
et de l'ecran. 

Voici les evenements les plus courants pour les controles TextBox : 
Change. Se produit lorsque l'utilisateur modifie le texte. 

• Click. Se produit lorsque l'utilisateur clique sur la zone de texte. 
DblClick. Se produit lorsque l'utilisateur double-clique sur la zone de texte. 

Rappelez-vous qu'il existe beaucoup plus de contrdles que vous n'en decouvrez 
aujourd'hui. Des evenements disponibles pour la plupart des contrdles, tels 
que les evenements lies a la souris et au clavier, seront traites plus loin dans ce 
livre. Nous nous contentons pour Vinstant des evenements qui vous seront les 
plus utiles lors de vos premiers developpements . 

La plupart de ces evenements de zones de texte s'appliquent egalement aux labels. Mais 
les labels, de par leur nature, declenchent les evenements d'une maniere legerement 
differente. Par exemple, le controle Label supporte l'evenement Change, me me si l'utili- 
sateur ne peut intervenir directement sur un label. C'est que le code Visual Basic peut, 
lui, modifier un label ; et, lorsque cela se produit, un evenement Change a lieu. 

Le controle Image supporte le meme jeu d'evenements que le controle Label. Les deux 
sont en effet tres semblables, a cela pres que le controle Image affiche une image au lieu 
de texte. 
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Le controle CommandButton supporte les memes evenements que le controle TextBox. 
En programmant les evenements de boutons de commande, gardez ceci a l'esprit : 

• Dans le cas ou une feuille contient un seul bouton de commande, la frappe de la 
barre d'espace, lorsque le bouton a le focus , declenche la procedure evenementielle 
dudit bouton. 

• Si la propriete Cancel d'un bouton de commande est definie comme True, la frappe 
de la touche Echap declenche l'evenement Click. 

• La frappe des touches de raccourci peut declencher l'evenement Click d'un bouton 
de commande. 

Tous les evenements d'une application ne viennent pas forcement d'une action 
de Vutilisateur. Les evenements peuvent etre declenches depuis le code Visual 
Basic. Par exemple, vous demandez a Vutilisateur de cliquer sur un bouton de 
commande lorsqu'il est pret a visualiser le resultat d'un calcul. La procedure 
evenementielle Click du bouton de commande provoque le calcul et I'affichage 
de ce resultat. Mais votre code stipule aussi que, au-dela d'un certain temps, le 
meme evenement Click soit automatiquement declenche. L'evenement peut 
done se produire, et le resultat apparaitre, avec ou sans V intervention de Vutili- 
sateur. 

Ecrire des procedures evenementielles 

Les procedures evenementielles sont constituees de code Visual Basic. Plus precisement, 
les procedures evenementielles sont des sections de code chargees de gerer un evenement 
d'un controle particulier. Un meme controle peut avoir plusieurs procedures evenementiel- 
les selon qu'il doive repondre a differents types d' evenements. 

Le nom de la procedure evenementielle permet a Visual Basic de determiner deux 
choses : 

• Quel controle declenchera la procedure. 

• Quel evenement declenchera la procedure. 

Voici le format de tous les noms de procedures evenementielles : 

ControlName_EventName ( ) 

Lunderscore, ou caractere de soulignement, separe le nom du controle de celui de 
l'evenement ; il est indispensable. Toutes les procedures evenementielles sont nominees de 
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cette maniere. Selon, ce format, une procedure nominee cmdExit_DblClick ( ) s'executera 
si et seulement si l'evenement DblClick du bouton de commande cmdExit se produit. 

Pour ce qui est des parentheses, vous apprendrez a y mettre les valeurs adequates en 
progressant dans votre apprentissage. Meme quand elles sont vides, comme dans 
l'application du chapitre precedent, les parentheses sont tout aussi indispensables que 
1' underscore. Elles permettent notamment de distinguer les noms de procedures evene- 
mentielles des noms de controles — meme si elles ne font pas partie du nom lui-meme. 

Le code contenu dans la procedure evenementielle cmdExit_DblClick ( ) ne s'execute 
que si l'utilisateur double-clique sur le bouton de commande cmdExit. Si ce devait etre 
la seule procedure evenementielle que contienne le code, l'application ignorerait tout 
autre evenement que DblClick sur cmdExit. Si, par exemple, l'utilisateur se contente de 
cliquer sur le bouton, rien ne se passe : la procedure evenementielle attend un double- 
die. 

La plupart des procedures evenementielles que vous ecrirez lors de vos premiers pas en 
Visual Basic commenceront par les mots Private Sub. Le mot cle Private est toutefois 
optionnel ; si vous ne le specifiez pas, Visual Basic considere par defaut que la procedure 
est "privee" . 

Visual Basic supports deux types de procedures : les fonctions et les sous-routines. 
Les procedures evenementielles sont toutes des sous-routines. Le corps d'une procedure 
evenementielle peut etre de plusieurs centaines de lignes, quoiqu'il faille toujours ecrire 
aussi court que possible. Si vous en venez a ecrire une procedure exceptionnellement 
longue, essayez de la fractionner en procedures plus petites ; la maintenance du 
programme n'en sera que plus facile. Le Listing 3.1 donne un exemple de ce a quoi 
ressemblerait cmdExit_DblClick ( ) dans une application. 

Ces nombres qui commencent chaque ligne du Listing 3.1, vous les retrou- 
verez toujours dans la suite de Vouvrage. Ces nombres nefont pas partie du 
programme ; il ne s'agit que d'une numerotation de reference qui nous 
permettra, dans les lecons, de vous renvoyer a une ligne precise et immedia- 
tement identifiable . 

Listing 3.1 : Une procedure evenementielle qui s'execute lorsque l'utilisateur 
double-clique sur le bouton de commande 

1 : Private Sub cmdExit_DblClick ( ) 
2: lblTitle. Caption = "Nouvelle page" 
3: intTotal = intCustNum + 1 

4: End Sub 
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__i — | La fonction est un peu comme le lanceur au base-ball : elle ne fait 
ypS° qu'envoyer une valeur, dite valeur renvoyee, vers un autre coin du 

' programme. Le mot cle Function distingue ce type de procedures des sous- 
routines. La sous-routine, indiquee par le mot cle Sub, ne renvoie pas de 
valeur, mais effectue une tdche precise a travers le code. Rappelons-le : les 
procedures evenementielle s sont toutes des sous-routines. Vous saisirez. 
mieux la distinction entre fonctions et sous-routines en progressant dans vos 
exercices. 



La premiere ligne de ce listing en dit beaucoup sur la procedure evenementielle. Elle 
indique d'abord que la procedure est privee, c'est-a-dire uniquement accessible au module 
d'application courant. Elle indique egalement qu'il s'agit d'une sous-routine, et done 
qu'aucune valeur n'en sera renvoyee. D'apres le nom lui-meme, on sait que le controle 
concerne est le bouton de commande (designe par le prefixe cmd) que le programmeur a 
nomme cmdExit. On sait enfin que la procedure evenementielle ne repond qu'aux 
doubles-clics sur ce bouton de commande. 

Le corps de la procedure evenementielle n'occupe que deux lignes. Vous n'avez pas a 
vous en soucier pour l'instant. La derniere ligne du code referme la procedure et vous 
permet, ainsi qu'a Visual Basic, de savoir ou elle finit. (Les fonctions, quant a elles, se 
terminent toutes par l'instruction End Function.) 

C'est dans le fenetre Code que vous tapez tout le code. La fenetre Code fonctionne comme un 
simple traitement de texte. Lorsque vous etes pret a ecrire votre procedure evenementielle, 
vous pouvez acceder a la fenetre Code de plusieurs manieres : en selectionnant le controle 
auquel la procedure est destinee, puis en choisissant Affichage, Code ; en cliquant sur le 
bouton Afficher l'objet de la fenetre Proprietes. Mais la methode la plus simple, c'est de 
double -cliquer sur le controle. Visual Basic ouvre automatiquement la fenetre Code pour cet 
objet, anticipe sur vos intentions en vous proposant les evenements le plus couramment attri- 
bues, et ecrit meme la premiere et la derniere ligne de la procedure pour vous ! C'est precise- 
ment ce qui s'est passe dans l'application du chapitre precedent, lorsque vous avez double- 
clique sur le bouton de commande. Estimant que l'evenement le plus probable pour un tel 
controle est l'evenement Click, Visual Basic a affiche dans la fenetre Code ces deux lignes : 

B Private Sub cmdHappy_Click () 
End Sub 

Visual Basic a meme place le curseur d'insertion entre les deux lignes, de sorte qu'il ne 
vous reste qu'a taper le corps de la procedure. Lorsque vous en avez termine, vous pouvez 
ecrire en dessous une autre procedure evenementielle (auquel cas, vous devrez taper vous- 
meme la premiere et la derniere ligne), ou cliquer de nouveau sur le bouton Afficher l'objet 
de la fenetre Proprietes pour revenir a la fenetre Feuilles. 
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__i — | Si V anticipation de Visual Basic etait fausse, et que vous souhaitiez, ecrire 
yeSo une procedure evenementielle differente de celle qui vous est proposee, il 

' suffit de changer le nom, par exemple pour cmdHappy_DblClick (), et de 

completer le reste. 



La Figure 3 .8 montre une fenetre Code affichant le code de plusieurs procedures evene- 
mentielles. La fenetre Code separe les procedures, et supporte les operations Windows 
standards de copier, couper. En revanche, et contrairement a un vrai traitement de texte, 
la fenetre Code ne genere pas de retours a la ligne automatiques. La raison en est que 
chaque instruction Visual Basic doit constituer une ligne propre. Une ligne extraordinai- 
rement longue peut etre continuee a la ligne suivante, a condition de placer un unders- 
core a la fin de la premiere ligne Ce signe indique a Visual Basic que les deux lignes 
doivent etre traitees comme une seule ; vous, de votre cote, vous pouvez visualiser la 
totalite de l'instruction sans recourir a la barre de defilement. 



Figure 3.8 

La fenetre Code 
fonctionne comme 
un traitement de texte 
pour procedures. 
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Les projets bonus 

Vous avez eu droit a beaucoup de theorie. Si ce chapitre a repondu a certaines de vos 
questions, il en a sans doute souleve de nouvelles. Pour mettre les choses en perspective, 
vous trouverez, entre ce chapitre et le suivant, une section speciale qui propose un projet 
bonus sur les controles, proprietes et evenements. Ce projet vous invite a creer de 
nouveau une application a partir de zero arm de mettre en pratique les enseignements de 
ce chapitre. Vous n'y rencontrerez pas d' instructions aussi detaillees que dans l'applica- 
tion du chapitre precedent, parce que vous etes maintenant familiarise avec le fonction- 
nement de Visual Basic. D'autres projets bonus vous seront proposes, entre certains 
chapitres de ce livre, arm d'affermir les connaissances acquises. Considerez-les comme 
des devoirs a faire pour le jour suivant. 

En resume 

Ce chapitre etait plus theorique que les deux premiers. Vous devriez maintenant etre en 
mesure de mieux comprendre les controles, les proprietes et les evenements. La nature 
des procedures devrait egalement vous apparaitre plus clairement, meme s'il vous reste a 
peu pres tout a apprendre du code Visual Basic. Vous avez retenu qu'une procedure 
evenementielle doit exister pour chacun des controles et des evenements auxquels vous 
souhaiter faire reagir votre programme. Sans procedure evenementielle adequate, 
l'evenement serait ignore. 

Le chapitre suivant vous enseigne a ajouter des menus a votre application afin d'en faci- 
liter l'utilisation. 



Questions et reponses 

Q Pourquoi faut-il indenter le corps des procedures evenementielles ? 

R En fait, vous devez indenter le corps de toutes les procedures. L'indentation n'est 
pas obligatoire en soi, mais elle vous permet de distinguer les evenements les uns 
des autres dans les longues lignes de code. La fenetre Code vous facilite deja la 
tache en separant les procedures par des lignes. Mais, lorsque vous imprimerez un 
listing pour l'etudier, l'indentation vous permettra de reperer les procedures indivi- 
duelles. 
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Q Puis-je inventer des noms de procedures evenementielles ? 

R La seule chose que vous puissiez changer dans le nom d'une procedure evenementielle, 
c'est le nom du controle qui declenche la procedure. Rappelez-vous que le format 
specifique employe dans les noms de procedures evenementielles permet a Visual Basic 
de determiner les controles et les evenements censes declencher la procedure. Vous 
etes libre de nommer comme bon vous semble les autres types de procedures, sous- 
routines ou fonctions, mais vous devrez toujours respecter, pour les procedures 
evenementielles, le modele de noms presente aujourd'hui. 

Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous assure - 
rez votre comprehension des sujets traites dans le chapitre, et des exercices qui vous 
ameneront a mettre en pratique ce que vous avez appris. II convient de comprendre les 
reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trouverez ces 
reponses a 1' Annexe A. 

Quiz 

1. Qu'est-ce qu'une touche de raccourci ? 

2. Les proprietes supportent de multiples evenements. Vrai ou faux ? 

3. Pourquoi affecter l'evenement Cancel a un bouton de commande ? 

4. Comment reconnait-on le controle qui a le focus ? 

5. Comment l'utilisateur deplace-t-il le focus d'un controle a l'autre ? 

6. Quelle propriete definit l'ordre du focus ? 

7. Devinette : LoadPicture () est-ce une sous-routine, une fonction ou une procedure 
evenementielle ? 

8. Lorsque vous double-cliquez sur un controle dans la fenetre Feuilles, Visual Basic 
genere automatiquement la premiere et la derniere ligne de la procedure evene- 
mentielle Click. Vrai ou faux ? 

9. On peut declencher un evenement, tel que DblClick, depuis le code Visual Basic. 
Vrai ou faux ? 

10. A quoi sert la propriete PasswordChar ? 
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Exercices 

1. Ecrivez la premiere ligne de la procedure evenementielle Load pour une feuille 
nominee f rmMyApp. 

2. Chasse au bogue : pourquoi les lignes qui suivent ne forment-elles pas une proce- 
dure evenementielle ? 

Private Function txtGetName_KeyDown () 
' Lancer le rapport 
Call ReportPrint 

lblWarning. Caption = "Tenez-vous pret..." 
End Function 

3. Creez une application contenant trois zones de texte multilignes. Donnez a ces 
zones de texte une hauteur suffisante pour pouvoir afficher trois ou quatre lignes de 
texte. Integrez une barre de defilement horizontale a la premiere zone de texte, une 
barre de defilement verticale a la deuxieme, et les deux types de barres de defilement 
a la troisieme. Pour chacune des trois zones de texte, specifiez le contenu par defaut 
Tapez ici. Ajoutez a votre application un bouton de commande Quitter qui permette 
a l'utilisateur de fermer le programme en appuyant sur Alt-Q. 



> 88 



PB1 



Controles, proprietes 
et evenements 



Intercales ca et la entre les chapitres de ce livre, les sections "Projet bonus" vous aide- 
ront a approfondir et a mettre en pratique les connaissances acquises. Vous y trouverez 
des listings d' applications completes. Prenez le temps de creer ces applications ; elles 
vous familiariseront avec l'environnement Visual Basic et vous feront avancer dans la 
maitrise des techniques de programmation. 

L' application de ce premier projet bonus met en ceuvre la propriete de zones de texte 
PasswordChar. Le programme se sert de cette propriete pour demander et valider un mot 
de passe. Si l'utilisateur entre un mot de passe correct, une image apparait. 

Faites des experiences sur les programmes des projets bonus. Amesure que vous 
progresserez, vous pourrez modifier ces applications pour verifier une supposition ou 
vous exercer a l'ecriture de code. Vous ne comprendrez sans doute pas tout du code a 
saisir pour cette application. Mais rien ne presse, et vous serez bientot a meme de 
1' analyser. 

Le mot de passe pour cette application est SSM. Mais ne le dites a personne. . . 



89 



Partie II 



Les elements visuels 

La Figure PB1.1 montre la fenetre Feuilles de 1' application que vous allez creer. Vous 
savez deja placer des controles sur une feuille. Le Tableau PB1 .1 fournit tous les contro- 
les et les proprietes necessaires. Suivez, pour commencer, les etapes classiques de la 
creation d' application : 

1 . Selectionnez Fichier, Nouveau projet. 

2. Selectionnez l'icone EXE standard. 

3. Donnez aux proprietes de la feuille les valeurs listees dans le Tableau PB1 .1 

4. Placez sur la feuille les controles mentionnes et definissez leurs proprietes. Pour 
toutes les proprietes qui n'apparaissent pas dans le tableau, laissez les valeurs par 
defaut. 



Figure PB1.1 

Cette application 
utilise la propriete 
PasswordChar du 
contrdle zone de texte. 



i Ess cry ez un mot de passe 



]□£] 




Tapez votre mot de 
passe ici 




Vous n'etes pas oblige de definir les proprietes d'un contrdle des qu'il est 
place sur la feuille. Vous pouvez, commencer par placer tous les controles, 
pour ensuite definir les proprietes de chacun. 

Tableau PB1.1 : Controles et proprietes a utiliser pour ("application 



Contrdle 


Propriete 


Valeur 


Feuille 


Name 


f rmPassword 


Feuille 


Caption 


Essayez un mot de passe 
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Tableau PB1.1 : Controles et proprietes a utiliser pour ('application (suite) 



Controle 


Propriete 


Valeur 


Feuille 


Height 


5610 


Feuille 


Width 


8475 


Image 


Name 


imgPassword 


Image 


BorderStyle 


1 -Fixed Single 


Image 


Height 


1890 


Image 


Left 


3000 


Image 


Stretch 


True 


Image 


Top 


2640 


Image 


Width 


2295 


Label 


Name 


lblPrompt 


Label 


BorderStyle 


1 -Fixed Single 


Label 


Caption 


Tapez votre mot de passe ici 


Label 


Font 


MS Sans Serif 


Label 


Font Size 


14 


Label 


Font Style 


Bold 


Label 


Height 


855 


Label 


Left 


2520 


Label 


Top 


600 


Label 


Width 


3375 


Zone de texte 


Name 


txtPassword 


Zone de texte 


Height 


375 


Zone de texte 


Left 


3360 


Zone de texte 


PasswordChar 
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Tableau PB1.1 : Controles et proprietes a utiliser pour ('application (suite) 



Controle 


Propriete 


Valeur 


Zone de texte 


Text 


(Laissez vide en effacant la valeur par defaut) 


Zone de texte 


Top 


1800 


Zone de texte 


Width 


1695 


Bouton de commande 


Name 


cmdTest 


Bouton de commande 


Caption 


&Tester le mot de passe 


Bouton de commande 


Left 


6360 


Bouton de commande 


Top 


3000 


Bouton de commande #2 


Name 


cmdExit 


Bouton de commande #2 


Caption 


E&xit 


Bouton de commande #2 


Left 


6360 


Bouton de commande #2 


Top 


3720 



Ajouter le code 

Une fois creee la fenetre Feuilles, vous etes pret a entrer le code. Le Listing PB1 .1 four- 
nit ce code. Notez l'existence de deux procedures evenementielles : cmdExit_Click( ) et 
cmdTest_Click( ) . Chacune de ces deux procedures repond a l'evenement Click pour un 
bouton particulier. Lorsque l'utilisateur clique sur le bouton de commande cmdExit, 
cmdExit_Click( ) s'execute. Lorsque l'utilisateur clique sur le bouton de commande 
cmdTest, cmdTest_Click( ) s'execute. 



1 Click est l'evenement le plus courant pour un bouton de commande. Vous 

pouvez ouvrir rapidement une procedure evenementielle pour chaque 
bouton de commande et laisser Visual Basic remplir la premiere et la 
derniere ligne. Pour saisir le corps (qui tiendra en une ligne) de la proce- 
dure evenementielle Click du bouton de commande cmdExit, double-cliquez 
sur ce dernier dans la fenetre Feuilles, puis saisissez la ligne de code. Procedez 
de meme pour le bouton de commande cmdTest. 
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Listing PB1.1 : Ce code active la feuille de mot de passe 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 
15 
16 
17 

18 
19 
20 
21 



Private Sub cmdExit_Click( ) 

End 
End Sub 

Private Sub cmdTest_Click( ) 

' Cette procedure evenementielle s 1 execute des que 
1 1 1 utilisateur decide de tester le mot de passe saisi 
If txtPassword.Text = "SSM" Then 
' Mot de passe correct 
Beep 

Beep ' Affiche 1' image 

imgPassword. Picture = LoadPicturef "C: \Program FilesV 

& "Microsoft Visual Studio\Common\Graphics 
\MetaFile\" 
& "Business\coins.wmf " ) 
lblPrompt .Caption = "Aboule le fric !" 
Else 

lblPrompt. Caption = "Mot de passe incorrect - 
Essayez encore " 
txtPassword.Text = Efface le mauvais mot de passe 

txtPassword.SetFocus ' Met le focus sur la zone de texte 
End If 
End Sub 



Analyse 

Naturellement, vous devez encore apprendre a dechiffrer les instructions de programma- 
tion Visual Basic. Mais la petite explication du programme que nous vous proposons ici 
constitue une excellente introduction au Chapitre 5, qui expose les fondements du code. 

Les lignes 1 a 3 constituent la procedure evenementielle Click du bouton cmdExit. 
Lorsque l'utilisateur clique sur le bouton cmdExit, l'instruction End provoque la ferme- 
ture de Implication. L' application reste affichee a l'ecran, meme si l'utilisateur a entre 
le bon mot de passe, et jusqu'a ce qu'il clique sur le bouton de commande cmdExit (ou 
qu'il ferme la fenetre du programme). 

En tapant le code, vous constaterez que Visual Basic utilise des couleurs differentes 
selon le texte. Cette coloration de syntaxe est une fonction utile, notamment pour 
localiser les bogues assez tot dans la phase d'ecriture. Plus vous programmerez, mieux 
vous reconnaitrez les couleurs specifiques. Les mots cles Visual Basic, tels que les 
commandes, sont toujours affiches en bleu. Les objets, tels que controles et proprietes, 
sont toujours affiches en noir. Les autres elements de code apparaisent en vert. Ainsi, si 
un mot cle apparait en vert, c'est que Visual Basic ne le reconnait pas, et vous savez 
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immediatement que vous avez tape quelque chose d'incorrect. Le jeu de couleurs peut 
etre modifie depuis la page Format de l'editeur du menu Outils, Options. 

La syntaxe est l'ensemble des regies d'ecriture d'un langage de programmation. Si vous 
orthographiez mal une commande ou oubliez un signe de ponctuation, une erreur de 
syntaxe est generee. 

Visual Basic repere la plupart des erreurs de syntaxe des que vous validez une ligne par 
Entree. La Figure PB1.2 reproduit la boite de dialogue qui s'affiche lorsqu'une ligne 
incorrecte a ete saisie. (La boite de dialogue ne parle pas toujours d'erreur de syntaxe ; 
le message d'erreur est parfois plus precis et designe l'instruction fautive.) Si vous loca- 
lisez le probleme (dans ce cas, il s'agit d'un signe "egale" en trop), cliquez sur OK et 
corrigez. Si vous hesitez, cliquez sur le bouton Aide pour obtenir plus d' informations. 
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Visual Basic ne repere pas toujours avec justesse le probleme dans une 
instruction fautive . Dans la Figure PB1 .2, le probleme est bien circonscrit ; 
mais il arrive que Visual Basic ne designe pas le probleme exact, peut-etre 
parce qu'il ne s'en est rendu compte que quelques mots cles apres. Auquel 
cas, vous aurez d'abord a verifier vous-meme les dernieres lignes avant de 
remedier au probleme. 



Figure PB1.2 

Visual Basic signale 
les erreurs de syntaxe 
des que vous changez 
de ligne. 



AfFichage ^olet Format Qebogage Execution F(equete Schema Outils Complefnents Feretre 
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Cette procedure evenement-iel 
l'utillaateui: decide de testi 
If txt-Passoord.Text = "SSH" 
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Les lignes 6 et 7 illustrent la premiere facon de documenter votre code. Comme nous 
l'avons vu au premier chapitre, la documentation est importante parce que vous aurez 
surement a revenir sur le programme par la suite ; et plus vous inserez de descriptions 
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detaillees dans le code, plus vite vous comprendrez ce qui y est ecrit. Les lignes 6 et 7 
sont des exemples de commentaires. 

Visual Basic ignore completement toute ligne qui commence par une apostrophe, signe 
indiquant que ce qui suit n'est pas du code. Rappelez-vous que les commentaires sont 
destines aux humains, non aux ordinateurs. 

Un commentaire est une note inseree dans le code et qui en decrit les sections. Un 
commentaire place tout en haut du code permet aussi au programmeur de donner son 
nom et ses coordonnees. De cette facon, quiconque aura a modifier le programme 
pourra, au besoin, se referer a l'auteur. 



— 1 I Faire 

Ajoutez en haut du code une ligne contenant la date et la description de toute 
modification apportee au programme. Cette sorte de journal de maintenance 
permettra, a vous ou a d'autres, d'etablir un suivi precis des changements 
implementes, et facilitera la maintenance. 



Les commentaires, s'ils ne concernent pas directement Visual Basic, doivent accompa- 
gner les instructions. II convient d'emailler le programme de descriptions en langage 
clair, qui permettent de comprendre immediatement la fonction de telle ou telle partie 
du code. Comme le montre la ligne 11, un commentaire peut etre place sur la meme 
ligne qu'une instruction, si du moins elle n'est pas trop longue. Essayez d'agencer le 
code et les commentaires de sorte que Ton n'ait pas a se servir des barres de defilement 
dans la fenetre Code. La modification et le debogage du programme n'en seront que 
facilites. 



Visual Basic dispose d'outils de "complement automatique" . Par exemple, 
lorsqu'd la ligne 8 vous tapez txtPassword . Text Visual Basic affiche les 
proprietes disponibles pour la zone de texte, et cela des que vous avez. tape 
le point. Tapez T puis e, et Visual Basic vous amene directement a la 
propriete Text. II sujfit alors d'appuyer sur la barre d'espace pour que le 
nom Text apparaisse en entier dans le code. Evidemment, dans ce cas precis, 
vous n'economisez. que deux caracteres ; mais le gain de temps sera plus 
appreciable pour des proprietes telles que lblPrompt . Caption. 

Les lignes 12, 13 et 14 constituent, en fait, une seule instruction Visual Basic. L'instruc- 
tion est longue a cause du chemin d'acces du fichier image specifie. Vous pourriez aussi 
bien mettre le tout sur une seule ligne, mais cette ligne excederait alors de loin la largeur 
de la fenetre Code. Visual Basic vous permet de poursuivre une meme ligne logique sur 
plusieurs lignes physiques. Pour ainsi segmenter une instruction, il suffit d'inserer une 
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espace suivie d'un underscore (_). Ce caractere, place a la fin d'une ligne, indique a 
Visual Basic que la ligne suivante n'en est que la continuation. 



0& 



Le chemin d'acces specifie a la ligne 12 suppose que vous avez installe avec 
Visual Basic les fichiers graphiques des exemples. Si tel n'est pas le cas, le 
chemin d'acces ne conduira nulle part. II vous faudra alors rechercher (a 
Vaide de Voutil Windows du mime nom) le fichier Coins. wmf sur vos CD- 
ROM d' installation Visual Basic. Pour installer les images, inserez le 
premier CD-ROM Visual Basic, et selectionnez Ajouterl Modifier une option, 
puis choisissez les fichiers correspondants. 



Lorsque la ligne a fractionner est entre guillemets, la demarche est plus delicate. Vous devez 
placer des guillemets avant l'espace et l'underscore de bout de ligne, puis commencer la 
ligne suivante par une esperluette (&), suivie de nouveaux guillemets, et ainsi de suite pour 
toutes les lignes du commentaire. Vous comprendrez mieux le role de 1' esperluette lorsque 
nous etudierons, au Chapitre 5, les chaines de texte. 



En avancant dans votre connaissance du langage de programmation Visual 
Basic, vous comprendrez. pourquoi certaines instructions du Listing PB1 .1 sont 
plus indentees que d'autres. 



t0& 



Un mot avant de terminer. Vous vous etes peut-etre demande pourquoi l'utilisateur de 
notre application doit cliquer sur un bouton de commande pour "Tester le mot de passe" . 
Pourquoi ne pas le laisser taper son mot de passe puis appuyer sur Entree, au lieu de se 
servir de la souris ? Comme nous le verrons au Chapitre 7, la reaction a certaines 
touches, telle la touche Entree, impliquerait du code supplementaire. Cette application a 
ete voulue aussi simple que possible. Car il vous en reste pas mal a apprendre. . . 
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Creation de menus 



La barre de menus offre un type special de controles qui permettent a l'utilisateur de 
selectionner des options et d'executer des commandes. Une option de menu peut faire 
double emploi avec un controle de la feuille. Par exemple, la fenetre d' application peut 
contenir un bouton Quitter, tout en proposant l'option de menu Fichier, Quitter. Dans les 
deux cas, la commande provoque la fermeture de 1' application. Une option de menu 
reprend egalement la fonction d'un bouton de barre d'outils. Enfin, l'option de menu 
peut etre le seul moyen d'executer une tache precise. Avec Visual Basic, la creation de 
menus est fort simple. 

Voici ce que nous etudierons aujourd'hui : 

les menus generes par l'assistant Creation d' applications ; 

les differents types d'options de menu qui vous sont proposes ; 

• la creation de barre de menus, de menus deroulants et de sous-menus ; 

• les procedures evenementielles de menus ; 

• l'ecriture rapide de procedures evenementielles a l'aide des listes deroulantes Objet 
et Procedure de la fenetre Code. 
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Creer des menus avec I'assistant Creation 
^applications 

Vous avez pu voir, dans le cadre du premier chapitre, I'assistant Creation d' applications 
en action. La Figure 4.1 montre l'ecran de I'assistant Creation d' applications depuis 
lequel vous pouvez creer des barres de menus. 



Figure 4.1 

L 'assistant Creation 
a" applications permet 
de ge'nerer facilement 
des barres et options 
de menu standards. 



g£ Assistant Creation ef applications - Menus 




Souhaitez-vous selectionner les menus et sous-menus que 
✓ous voulez dans votre application? 



Vous pouvez toujours utiliser (e Createur de menus pour 
modifier les menus apres la creation de I'application, 




H [Separator] 
v Enregistrer 
0 Enregistrer &sous. . 
3 Enregistrer &tout 
y| [Separator] 



=: Precedent ; Suive-t : 



Retablir 



Une fois que vous avez fait votre choix parmi les options de menu et sous-menus 
proposes, I'assistant genere I'application et y integre les controles correspondants. 

L'avantage des menus, c'est que la plupart des utilisateurs savent les utili- 
ser. Les utilisateurs manipulent spontanement les options de menu qu'ils 
connaissent . 



^ c6 



Pour peu que vous ayez quelque experience des applications Windows classiques, vous 
reconnaitrez les options de menu proposees par I'assistant Creation d' applications. 
Les menus tels que Fichier, Edition, Fenetre, apparaissent dans de nombreux program- 
mes Windows ; les options de menu disponibles, telles que Fichier, Quitter, sont tout 
aussi traditionnelles. 

Meme si vous ne fournirez sans doute jamais autant d'options de menu et de sous-menu 
que des applications de masse telles que Microsoft Word, il s'agit d'un bon modele pour 
la conception de vos menus. A peu pres tous les programmes Windows incluent une 
option Fichier, Quitter ; de meme pour les options Edition, Copier ou Edition, Couper. 
Bien sflr vos applications repondent a des objectifs specifiques, et n'ont done pas a 
"coller" aux standards Windows. Toutefois, inspirez-vous de ces standards aussi souvent 
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que possible. Les utilisateurs n'en apprivoiseront que plus facilement vos applications. Et 
plus vite ils s'y habitueront, plus ils auront tendance a les utiliser — et plus vous aurez de 
clients fideles. 

L' assistant Creation d' applications facilite considerablement la construction des menus. 
C'est pourquoi vous devriez aussi souvent que possible vous en servir pour les applica- 
tions necessitant un systeme de menus complexe. Les sections qui suivent montrent 
qu'il est facile de creer des menus a l'aide des outils Visual Basic. Mais c'est encore 
plus facile avec l'assistant Creation d'applications : tout ce que vous avez a faire, c'est 
de cliquer sur l'option a inclure dans l'application finale. Meme si vous ne prevoyez pas 
de barre d'outils, ni rien de ce que propose l'assistant Creation d'applications, il vous 
permettra de partir d'une application aux menus tout faits, et pour lesquels il ne restera 
qu'a ajouter les details et les options de menu specifiques requis par votre projet. 

Consultez, dans l'aide en ligne MSDN, le livre The Windows Interface Guide 
to Software Design. Le chapitre "Menus, controls, and toolbars" decrit les 
standards Windows en la matiere. En suivant ces grandes lignes, vous 
vous assurez que votre application sera conforme, et aussi familiere aux 
utilisateurs que possible. 



Introduction aux menus 

Les menus Windows ne vous sont assurement pas inconnus, ne serait-ce que ceux de 
Visual Basic, que vous avez eu a utiliser dans le cadre des chapitres precedents. La 
Figure 4.2 montre le menu Fichier de Visual Basic deroule, et en detaille chacune des 
options. Meme si vous etes rompu aux programmes Windows, prenez le temps d'etudier 
les legendes de la figure ; elles indiquent la terminologie employee par Visual Basic pour 
designer les differentes options. La suite de ce chapitre explique comment inclure ces 
elements dans vos propres menus. 

Si une option de menu de votre application doit afficher une boite de dialo- 
gue, terminez le libelle de l'option par des points de suspension (voir 
Figure 4.2). Lorsque vous creez un menu a sous-menus, Visual Basic se 
charge d'ajouter la petite fleche noire. 

Certaines options de menu donnent sur des menus additionnels. La Figure 4.3 montre le 
menu Affichage de Visual Basic, dans lequel l'option Barres d'outils affiche un sous- 
menu. Notez que, dans ce sous-menu, une option est cochee. Cela indique que l'utilisa- 
teur peut activer et desactiver l'option en la selectionnant. Le Createur de menus permet 
de creer des options de menu classiques ou cochables. 
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Figure 4.2 

Visual Basic 
exploite les standards 
Windows en matiere 
de menus et 
d' options de menu. 



Barre de menus Touche de raccourci 
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Enregistrer le projet si 
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Enregistrer frrnPassword.frm sous., , — 



^ Imprimer,.. Ctrl+P 
0 Confjgurabondel'impression.., 
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Separateur OptionsD AfficheD" Raccourciu" OptionO OptionsD 
desactivees une boTteD clavier selectionnee activees 
de dialogue 



Figure 4.3 

Visual Basic facilite 
la creation de sous- 
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Le Createur de menus 

La Boite a outils ne contient aucun outil qui permet de creer des menus. II faut, pour 
cela, recourir au Createur de menus (voir Figure 4.4). Pour acceder a ce Createur de 
menus depuis la fenetre Feuilles, il suffit d'appuyer sur Ctrl-E (raccourci pour Outils, 
Createur de menus). 



Figure 4.4 

Le Createur de menus 
permet a" organiser 
les menus et sous- 
menus. 
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Le Createur de menus facilite la creation de menus pour vos applications. Le Createur de 
menus fonctionne en quelque sorte comme une fenetre Proprietes pour la barre de menus : 
vous y specifiez le nom des controles ainsi que les libelles qui apparaitront sur le menu, 
ainsi que d'autres informations correlees. Le Createur de menus est disponible dans les 
logiciels de programmation Microsoft depuis plusieurs annees, et n'a que tres peu change 
depuis. Une telle longevite temoigne de la simplicity et de 1'efficacite de cet outil. 

La partie superieure du Createur de menus permet de specifier les proprietes des controles 
correspondant a chaque option de menu. Les options peuvent apparaitre directement sur la 
barre de menus, ou dans un sous-menu que Ton deroule. Dans la partie inferieure, la zone 
de liste affiche l'arborescence de votre systeme de menus a mesure que vous le construisez. 



Fonctionnement du Createur de menus 

Le meilleur moyen d'apprendre a construire des menus a l'aide du Createur de menus, 
c'est sans doute de creer une application simple qui contienne divers menus. Parce que 
vous ne maitrisez pas encore les operations sur fichiers et autres concepts avances de 
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Visual Basic, cette application d'exemple ne sera pas tout a fait conforme aux standards 
Windows. Mais cela n'enleve rien a l'interet de l'exercice : reprendre les differentes 
etapes de la creation de menus, et demontrer la simplicity d'emploi du Createur de menus. 

Voici les objectifs de l'application : 

afficher un label au centre de la feuille ; 

• offrir une option de menu qui permette a l'utilisateur de changer la couleur de fond 
du label ; 

• offrir une option de menu qui permette a l'utilisateur de changer le texte du label ; 

• offrir une option de menu qui permette a l'utilisateur de quitter l'application ; 

Ce programme, vous le voyez, sera fort simple, mais il n'en implique pas moins la crea- 
tion de menus fonctionnels. 

Tout d'abord, ouvrez une nouvelle application EXE standard en choisissant Fichier, 
Nouveau projet. Assignez a la feuille le nom f rmMenu, puis changez la propriete Caption 
pour qu'apparaisse sur la barre de titre Application Menus. Enfin, redimensionnez la feuille 
en donnant a Height la valeur 6030 et a Width la valeur 8415. 

Ajoutez a la feuille un label avec les proprietes suivantes : 



Propriete 


Valeur 


Name 


lblMenu 


Alignment 


2-Center 


BackColor 


Red (cliquez sur l'onglet Palette de BackColor et selectionnez 




le premier rouge) 


BorderStyle 


1 -Fixed Single 


Caption 


Selectionnez une option de menu 


Font Size 


14 


Font Style 


Bold 


Height 


615 


Left 


1800 


Top 


2160 


Width 


4935 
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Votre PC pent afficher de quelques centaines a plus d'un million de 
couleurs. A chaque couleur est associe un code numerique unique. Visual 
Basic utilise pour ces valeurs le systeme de numerotation hexadecimal. De 
votre cote, vous pouvez vous contenter de selectionner les couleurs sur la 
palette, ce qui est quand meme plus simple que de taper une valeur hexade- 
cimale du genre &H000000FF&. 



Le systeme de numerotation hexadecimal, dit aussi base 16, est comme ces 
deux noms I'indiquent un systeme de numerotation en base 16. Dans le 
systeme de numerotation le plus courant, en base 10, il n'y a que dix chiffres : 
de 0 a 9. En base 16, il y en a seize : de 0 a 9, plus A, B, C, D, E et F. Les 
nombres hexadecimaux sont toujours precedes de &H afin d'indiquer a Visual 
Basic (ainsi qu'au programmeur) qu'il ne s'agit pas d'une base decimale. 
Une meme valeur numerique peut etre exprimee en base 10 aussi bien qu'en 
base 16; mais V hexadecimal, permet Vexpression sous une forme plus 
compacte de valeur plus grande. Dans le cas qui nous occupe, plus d'un 
million de combinaisons de couleurs sont possibles. La base 16 permet 
d'exprimer chaque ton par un nombre de chiffres moindre que ne I'autori- 
serait la base 10. 



La Figure 4.5 montre ce a quoi votre ecran devrait ressembler. 



Figure 4.5 

Le label a ete place ; 
on le contrdlera, par 
la suite, avec des 
options de menu. 
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Vous etes maintenant pret a creer le menu de l'application. Cliquez sur la feuille, puis 
faites Ctrl-E pour afficher le Createur de menus. La plupart des champs du Createur de 
menus sont vides ; ils attendent les valeurs que vous specifierez pour chaque option. 

Champs est un terme generique designant V emplacement dans lequel I'utili- 
sateur ou le programmeur saisit des valeurs ; les champs prennent generale- 
ment la forme de zones de texte. Le Createur de menus, comme la plupart 
des boites de dialogue, contient de nombreux champs. 

Voici ce qui doit apparaitre sur la barre de menus que nous allons maintenant creer : 
Fichier ; 
Couleur ; 
Message. 

A ces menus devront etre attribuees des touches de raccourci, de sorte que l'utilisateur 
puisse y acceder via le clavier. Les elements que vous ajoutez dans le Createur de menus 
peuvent apparaitre directement sur la barre de menus, ou bien dans un menu deroulant, 
selon les valeurs que vous specifiez. Suivez ces etapes pour ajouter le menu fichier a la 
barre de menus de l'application : 

1. Tapez &Fichier comme contenu de Caption. Comme dans toutes les autres valeurs 
en Visual Basic, l'esperluette indique que le F pourra etre utilise comme touche de 
raccourci pour ce menu. A mesure que vous tapez le libelle, Visual Basic le repro- 
duit dans la zone de liste en bas du Createur de menus. 

2. Appuyez sur Tab pour passer au champ Name. Tab et Maj-Tab permettent de passer le 
focus d'un champ a un autre. 

3. Tapez mnuFile comme nom du controle. 

Gardez a V esprit que les options de menu sont des controles qui, comme 
tous les controles, ont une propriete Name. 




Faire 

Vous devez. adopter pour V ensemble des menus une convention de 
denomination coherente. Apposez. a tous les noms de menus le prefixe mnu, 
suivi du nom du menu ; ainsi, le nom du controle correspondant au menu 
Fichier serait mnuFile (ou, en code francise, mnuFichier). Dans les noms 
des options de menu, reprenez le prefixe ainsi que le nom du menu ; ainsi, le 
nom du controle correspondant a V option de menu Fichier, Quitter serait 
mnuFileExit (ou, en code francise, mnuFichierQuitter). 
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4. Oubliez les autres champs et cliquez sur le bouton Suivant pour preparer le menu 
suivant (bon appetit). En cliquant sur le bouton Suivant, vous indiquez que la 
premiere option est complete. 

5. Dans le champ Caption de l'option suivante, tapez &Couleur ; tapez mnuColor dans 
le champ Name. 

6. Cliquez sur Suivant. 

7. Tapez &Message comme Caption et mnuMessage comme Name. L'ecran du Createur de 
menus doit ressembler a la Figure 4.6. 



Figure 4.6 
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Tester le menu 

Les menus peuvent etre testes a tout moment durant la creation. Cliquez sur OK pour 
fermer le Createur de menus. La fenetre Feuilles affiche la nouvelle barre de menus. 
Appuyez sur F5 pour executer 1' application. Comme vous n'avez pas encore cree les 
sous-menus ni ecrit les procedures evenementielles, rien ne se passe lorsque vous 
cliquez sur les menus. Mais ces menus sont bien la, attendant la suite des operations. 
Cliquez sur le bouton de fermeture de l'application en cours d'execution (ou cliquez sur 
le bouton Fin de la barre d'outils Visual Basic), puis appuyez sur Ctrl-E pour revenir au 
Createur de menus. 
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Vous pouvez, au choix, creer les menus deroulants lors de la creation de la barre d'outils, 
ou les ajouter plus tard. Toutefois, si vous creez d'abord la barre de menus complete 
(comme nous l'avons fait ici), il faudra inserer les options de menu a leurs emplacements 
respectifs dans l'arborescence. Le bouton Inserer du Createur de menus est la pour ca. 



Le bouton Inserer ajoute un menu ou une option de menu vierges. Avant de 
cliquer sur Inserer, selectionnez. V option de menu situee apres V emplace- 
ment de la nouvelle option. Par exemple, pour ajouter une option au menu 
Fichier, cliquez sur ACouleur dans la zone de liste, puis cliquez sur Inserer. 
Visual Basic ajoute alors une ligne vierge entre &Fichier et &Couleur, dans 
laquelle la nouvelle option viendra prendre place. 



Visual Basic doit, d'une maniere ou d'une autre, etre en mesure de distinguer les menus 
comme tels d'avec les options de menu. Si vous inseriez l'option Quitter apres Fichier 
en utilisant la meme technique que dans les sections precedentes, Visual Basic ajouterait 
cette option entre Fichier et Couleur, sur la barre de menus meme, et non comme une 
option du menu Fichier. 

Avant d' inserer une nouvelle option, cliquez sur le bouton figurant une fleche pointee 
vers la droite. Visual Basic ajoute des points de suspension apres &Fichier, lesquels 
indiquent que l'element en question est une option de menu, et non un menu. Dans le 
champ Caption, tapez &Quitter. Tout en tapant, vous voyez que le Createur de menus 
insere l'option en bas de la zone de liste, indentee par rapport aux autres. Pour un sous- 
menu qui viendrait s'imbriquer dans un menu existant, il faudrait cliquer deux fois sur 
la fleche-droite, ce qui ajouterait deux series de points de suspension. 



Un trop grand nombre de niveaux de sous-menus deviendrait vite confus. 
Tenez-vous a un maximum de deux niveaux — un sous-menu accessible 
depuis un menu, puis eventuellement un autre sous-menu dans le sous-menu. 



Nous avons utilise, comme touche de raccourci de la commande Quitter, la 
lettre Q. Pourquoi celle-la et pas une autre, outre qu'il s'agit de I'initiale ? 
Parce que c 'est la touche de raccourci qu 'utilisent les applications Windows 
standards, et que ces standards doivent etre respectes autant que possible. 

Dans le champ Name de l'option, tapez mnuFileExit. Le menu Fichier et son contenu 
sont maintenant complets. Vous pouvez executer le programme pour verifier le resultat. 
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Naturellement, rien ne se passe lorsque vous selectionnez l'option Quitter, car la proce- 
dure evenementielle requise n'est pas encore ecrite. 



Ajouter trois options a cocher 

Le deuxieme menu, Couleur, proposera trois options : Bleu, Vert et Rouge. Ces couleurs 
s'excluront mutuellement, le label ne pouvant etre de plusieurs couleurs a la fois. II 
s'agit done de candidats ideaux pour des options de menu cochables. 

Une options de menu cochable est une option de menu qui affiche une coche 
lorsqu'elle est active. 



La Figure 4.7 montre le menu deroulant Couleur que nous allons maintenant creer. 
Comme vous pouvez le voir, l'une des options du menu est cochee, les deux autres ne le 
sont pas. En creant le menu Couleur, vous defmirez l'option Rouge comme option 
active par defaut. Le label apparaitra done sur fond rouge jusqu'a ce que l'utilisateur 
selectionne une autre couleur. 



Figure 4.7 

Seule l'option 

de menu cochee est 

active. 



Fichier Lrii.ileur __,;:age 
Bleu 

Une seule couleurd yen 
peut etre cocheeB * Rouge 



a la fois 



Selectionnez une option de men 



En fait, plusieurs options de menu peuvent etre cochees a la fois. C'est par une 
programmation adequate de la procedure evenementielle que vous determinez 
le caractere exclusif de la selection. Ainsi, lorsque l'utilisateur cochera une 
option differente, l'option originate sera automatiquement desactivee. 
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Suivez ces etapes pour ajouter les options du menu Couleur : 

1 . Si vous l'aviez ferme, rouvrez le Createur de menus. 

2. Dans la zone de liste, cliquez sur l'option &Message pour la selectionner. 

3. Cliquez sur le bouton Inserer et sur la fleche-droite trois fois arm d'inserer trois 
lignes vierges pour les options. 

4. Selectionnez la premiere ligne vierge, oil l'option Bleu va prendre place. 

5. Tapez &Bleu dans le champ Caption et mnuColorBlue dans le champ Name. Lorsque 
l'utilisateur executera le programme pour la premiere fois, l'option Bleu ne sera pas 
cochee, indiquant par la qu'elle n'est pas selectionnee. 

6. Cliquez sur Suivant pour inserer la prochaine option. 

7. Tapez &Vert dans le champ Caption et mnuColorGreen dans le champ Name. 

8. Cliquez sur Suivant pour inserer la prochaine. 

9. Tapez &Rouge dans le champ Caption et mnuColorRed dans le champ Name. 

10. L'option Rouge devra etre selectionnee par defaut lorsque l'utilisateur lancera le 
programme pour la premiere fois. A cette fin, cochez la case Checked du Createur de 
menus. 

11. Fermez le Createur de menus et lancez 1' application pour tester le menu Couleur. 
La fenetre devrait ressembler a la Figure 4.7. 

Vous pouvez non seulement proposer des options de menu, mais egalement activer et 
desactiver ces options, dans le Createur de menus, ainsi qu'a l'aide d' instructions Visual 
Basic. La Figure 4.8 montre le menu Debogage de Visual Basic avec plusieurs options 
activees et plusieurs autres desactivees. Les options desactivees s'affichent en gris, de 
sorte que l'utilisateur n'essaie meme pas de les selectionner. 

En cochant la case Enabled du Createur de menus, vous definissez des la phase de 
creation que l'option sera activee par defaut. Selon l'application, vous activerez certai- 
nes options des qu'elles deviennent disponibles, et vous desactiverez celles que l'utilisa- 
teur n'est pas autorise a selectionner. Par exemple, la plupart des traitements de texte 
desactive l'option Coller du menu Edition jusqu'a ce que l'utilisateur copie quelque 
chose dans le Presse-papiers. Un menu d'application n'est, somme toute, qu'un 
ensemble de controles, dont les divers champs du Createur de menus definissent les 
proprietes. Le code Visual Basic peut done modifier la propriete Enabled de n'importe 
quel element de menu pour lui donner la valeur True ou False (e'est ce que nous ferons 
au prochain chapitre), de sorte que l'option soit activee et disponible, ou bien desactivee 
et indisponible jusqu'a ce que l'utilisateur l'active de nouveau. 
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Figure 4.8 

La propriete Enabled 
determine quelles 




Debogage 



Options disponibles 
Options indisponibles 



options seront 
disponibles ou 
indisponibles. 



Effacer tous les points d'arret Ctrl+Maj+F9 




inir I'instruction suivante Ctr[-t-F9 



Notez que le menu Debogage, a l'instar de la plupart des autres menus, affiche les raccour- 
cis clavier a droite des options de menu. F8 est le raccourci du mode Pas a pas detaille, 
Maj-F8 celui du mode Pas a pas principal. (Dans le cas des combinaisons de touches qui 
lancent une option de menu, comme Ctrl-C pour Edition, Coller, on parle de raccourcis 
clavier plutot que de touches de raccourci.) Pour affecter un raccourci clavier a vos 
options de menu, faites votre choix dans la liste deroulante Shortcut. Pour la plupart des 
raccourcis clavier, on utilise la touche Ctrl, comme dans Ctrl-C. 



Vous pouvez remarquer que sept des options du menu Debogage (dont 
certaines sont desactivees) presentent a leur gauche une icone. Ces icones 
renvoient au bouton correspondant de la barre d' outils. Ainsi, il existe sur la 
barre d 'outils Debogage un bouton pour V option Pas a pas detaille. Les 
icones permettent aux utilisateurs de reperer les boutons qui correspondent 
a telle ou telle option de menu. Malheureusement, Visual Basic ne donne 
aucun moyen d'adjoindre des icones a vos propres options de menu (mais 
des contrdles externes sont disponibles a cet effet). 



Le menu Message proposera trois options, dont une seule pourra etre selectionnee a la fois 
(comme dans le menu Couleur). L' option cochee determinera le message affiche dans le 
label. A titre d'exercice, vous allez formater le menu Message selon une maniere differente 
de la methode classique. Le menu Message devra ressembler a la Figure 4.9. 

Notez dans le menu Message la barre separatrice. Les barres separatrices permettent de 
grouper les options. Lutilisateur ne peut selectionner une barre separatrice. Lorsque, 
dans un menu deroule, l'utilisateur se deplace a l'aide de la touche fleche-bas, la selec- 
tion ne tient pas compte des barres separatrices. 



Ajouter le menu Message 
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Figure 4.9 

La barre 
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les options de menu 



Option activee 




Fichiei Coult 



Manage 
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Selectionnez une option de menu 



Suivez ces etapes pour ajouter le menu Message et y inclure une barre separatrice : 

1 . Appuyez sur Ctrl-E pour afficher le Createur de menus . 

2. Dans la liste deroulante, cliquez sur la ligne situee en dessous de &Message, oil 
1' option suivante va prendre place. 

3. Cliquez sur la fleche-droite pour imbriquer l'option de menu dans le menu Message. 

4. Tapez &Message initial dans le champ Caption et mnuMessagelnitial dans le 
champ Name. 

5. Cochez la case Checked pour que l'option soit selectionnee par defaut au demarrage 
du programme. 

6. Cliquez sur Suivant. Notez que Visual Basic decale automatiquement le nouvel 
element suivant en fonction de 1' indentation de T element precedent. (Pour suppri- 
mer cette indentation et faire de l'option un menu a part entiere, cliquez sur la 
fleche-gauche ; pour faire remonter ou redescendre l'element dans l'arborescence 
et l'imbriquer dans un autre menu ou sous-menu, cliquez sur la fleche-haut ou sur 
la fleche-bas.) 

7. Dans le champ Caption de l'element suivant, tapez un tiret simple (-). C'est le petit 
nom de la barre separatrice. Lorsqu'un element a pour Caption un tiret simple, 
Visual Basic le transforme en barre separatrice. 

8. Dans le champ Name de la barre separatrice, tapez mnuMessageSepl . Les barres 
separatrices sont des objets a part entiere et, a ce titre, requierent un nom unique. 
Les barres separatrices suivantes du menu message pourront etre nominees 
mnuMessageSep2, mnuMessageSep3, etc. 
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Les barres separatrices ne peuvent etre cochees ni desactivees, ni avoir de 
raccourcis clavier. 



9. Cliquez sur Suivant. 

10. Tapez &VB, c'est simple ! dans le champ Caption et mnuMessageSimple dans le 
champ Name, puis cliquez sur suivant. 

11. Pour l'option suivante, tapez &La programmation, c'est le pied ! dans le champ 
Caption et mnuMessageProgramming dans le champ. 

L'ecran de votre Createur de menus devrait ressembler a la Figure 4.10. Fermez-le, puis 
executez l'application pour tester le menu. Nous avons presque fini. II ne reste qu'a 
ajouter le code qui rendra le menu operant. 



Figure 4.10 
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' L 'assistant Creation d' applications vous permet d 'ajouter des barres sepa- 

ratrices aux menus qu'il genere. II suffit pour cela de selectionner l'option 
[Separator] . 

Finaliser le menu a I'aide du code 

Pour que le menu que nous venons de creer soit operant, il reste a lui affecter les proce- 
dures evenementielles adequates. Pas plus que dans les chapitres precedents, vous ne 
devez vous inquieter des details du code presente ici. II s'agit, pour l'instant, de bien 
comprendre les grandes lignes. Les menus et leurs options ne sont que des controles 
qui declenchent des evenements a l'execution. Les utilisateurs interagiront avec votre 
application par l'intermediaire des menus. Chaque fois qu'un utilisateur selectionne un 



111 < 



menu, un evenement Click est declenche, et la procedure evenementielle correspondante 
s' execute. 

Comme nous l'avons vu au chapitre precedent, le controle correspondant a l'option de 
menu mnuFileExit requiert, pour repondre a l'evenement Click, une procedure evene- 
mentielle mnuFileExit_Click (). Et ainsi des autres options. Le Listing 4.1 fournit le 
code complet necessaire a notre application. Ce code peut etre entre de plusieurs 
manieres : 

• Vous pouvez ecrire une procedure evenementielle a la fois. Dans la fenetre Feuilles, 
selectionnez l'option de menu a laquelle vous souhaitez affecter le code. Visual 
Basic ouvre la fenetre Code et insere automatiquement les lignes d 'encadrement de 
la procedure. II ne reste qu'a taper le corps. Lorsque vous en avez termine, fermez la 
fenetre Code, puis cliquez sur la prochaine option de menu a programmer ; et ainsi 
de suite. 
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Les lignes d' encadrement, "wrappers" en anglais, sont la premiere et la 
derniere ligne d'une procedure. Le chapitre precedent vous avait presente le 
format de ces lignes d' encadrement , et avait explique leur necessite. 



Apres avoir entre la premiere procedure evenementielle selon cette methode, vous 
pouvez selectionner l'option de menu suivante directement depuis la fenetre Code. 
Vous pouvez voir, tout en haut de cette fenetre, deux listes deroulantes : la liste Objet et 
la liste Procedure. La Figure 4.11 montre une liste Objet ouverte. Dans la liste Objet, 
selectionnez la prochaine option de menu pour laquelle une procedure evenemen- 
tielle doit etre ecrite. Visual Basic insere les lignes d'encadrement de cette proce- 
dure juste en dessous de la precedente. Tapez le corps. Continuez ainsi jusqu'a ce 
que toutes les procedures evenementielles des options de menu soient programmers. 

Dans cette application, tous les objets, hormis le label, sont des controles 
de menu. Les controles de menu ne supportent que les evenements 
Click ; aussi la liste Procedure n'affiche-t-elle que l'evenement Click. 
Lorsque vous manipulez des controles supportant d 'autres types d' evene- 
ments, la liste Procedure est naturellement plus riche. Par exemple, si 
vous selectionniez le controle du label dans la liste Objet, puis que vous 
ouvriez. la liste Procedure, les noms d' evenements proposes seraient bien 
plus nombreux, parce que le controle Label supporte plusieurs types 
d' evenements. 



• Vous pouvez enfin ouvrir la fenetre Code et saisir le code du debut a la fin. Cette 
methode est un peu plus longue, car vous devez taper vous-meme les lignes d'enca- 
drement. 
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Figure 4.11 

Les lignes 
d'encadreinent de 
la nouvelle procedure 
peuvent etre appelees 
depuis lafenetre 
Code. 



Liste Procedure 
I 



IV Projet t - frmMenu (Code) 




Form 
IblMenu 
mnuColoi 
mn tiColoi Blue 
mnuColoiGteen 
mnuColoi Red 
mnuFile 
mnuFileExit 
mnuMessage 
mnuMe»s.igelnrtinl 
muuMess.igePi ogi .imming 



Liste Objet 



Les listes Objet et procedure de lafenetre Code sont aussi utiles pour loca- 
liser du code que vous avez dejd entre, mais que vous souhaitez consulter ou 
modifier. Imaginons, par exemple, une application qui contient de multiples 
procedures evenementielles pour plusieurs types de contrdles. Vous voulez 
atteindre la procedure DblClick d'un bouton de commande specifique. 
Selectionnez, dans la liste Objet, le controle correspondant , puis choisissez 
I'evenement DblClick dans la liste Procedure : Visual Basic affiche le code 
de cette procedure dans lafenetre Code. Magique ! 



Listing 4.1 : Le code du menu controle la couleur et le contenu du label 

1: Private Sub mnuColorBlue_Click( ) 

2: ' Colore le label en bleu et coche l'option de menu 

3: 1 Bleu. S'assure que les options Vert 

4: 1 et Rouge sont toutes les deux desactivees. 

5: lblMenu.BackColor = vbBlue 

6: mnuColorBlue. Checked = True 

7: mnuColorGreen. Checked = False 

8: mnuColorRed. Checked = False 

9: End Sub 

10: 

11: Private Sub mnuColorGreen_Click( ) 
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Listing 4.1 : Le code du menu controle la couleur et le contenu du label (suite) 

12: 1 Colore le label en vert et coche l'option de menu 

13: 1 Vert. S'assure que les options Bleu 

14: 1 et Rouge sont toutes les deux desactivees. 

15: lblMenu.BackColor = vbGreen 

16: mnuColorBlue. Checked = False 

17: mnuColorGreen. Checked = True 

18: mnuColorRed. Checked = False 

19: End Sub 

20: 

21: Private Sub mnuColorRed_Click( ) 

22: ' Colore le label en rouge et coche l'option de menu 

23: 1 Rouge. S'assure que les options Bleu 

24: ' et Vert sont toutes les deux desactivees. 

25: lblMenu.BackColor = vbRed 
, 26: mnuColorBlue. Checked = Fasle 

27: mnuColorGreen. Checked = False 
i 28: mnuColorRed. Checked = True 

29: End Sub 

30: 

31: Private Sub mnuFileExit_Click( ) 

32: ' Termine le programme 
33: End 

, 34: End Sub 

j 35: 

, 36: Private Sub mnuMessageInitial_Click( ) 

37: ' Restaure le texte initial du label et 

38: ' coche l'option de menu correspondante. 

39: ' S'assure que les autres options sont desactivees. 
40: lblMenu. Caption = "Selectionnez une option de menu" 
41: mnuMessagelnitial. Checked = True 
42: mnuMessageProgramming. Checked = False 
43: mnuMessageSimple. Checked = False 

44: End Sub 
45: 

46: Private Sub mnuMessageProgramming_Click( ) 

47: ' Change le texte du label et coche 

48: ' l'option de menu correspondante. 

49: ' S'assure que les autres options sont desactivees. 
50: lblMenu. Caption = "La programmation, c'est le pied !" 
51: mnuMessagelnitial. Checked = False 
52: mnuMessageProgramming. Checked = True 
53: mnuMessageSimple. Checked = False 

54: End Sub 
I 55: 

56: Private Sub mnuMessageSimple_Click( ) 

57: ' Change le texte du label et coche 

I 58: ' l'option de menu correspondante. 

59: ' S'assure que les autres options sont desactivees. 
60: lblMenu. Caption = "VB, c'est simple !" 
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61 
62 
63 
64 



mnuMessagelnitial. Checked = False 
mnuMessageProgramming. Checked = False 
mnuMessageSimple. Checked = True 
End Sub 



Encore une fois, ne vous souciez pas des details du code. Mais assurez-vous de bien 
saisir le fonctionnement des procedures avant d'aller plus loin. A partir du chapitre 
suivant, vous commencerez a comprendre les subtilites du langage Visual Basic ; et une 
bonne comprehension des procedures evenementielles vous sera alors indispensable. 

Executez le programme et testez-le. Selectionnez a plusieurs reprises les diverses 
options des menus Couleur et Message afin de verifier que les coches suivent bien vos 
selections et que le label reflete bien les changements. Vous pouvez changer la couleur 
et le texte dans n'importe quel ordre. 



En resume 

Ce chapitre vous a presente le fonctionnement des menus Visual Basic. Le Createur de 
menus fonctionne un peu comme la fenetre Proprietes, et vous permet de definir facile- 
ment les proprietes des controles du menu. Le Createur de menus vous permet 
egalement de gerer les proprietes Checked et Visible, ainsi que d'attribuer des raccour- 
cis clavier aux diverses options de menu. 

Le chapitre suivant vous invite a plonger dans les profondeurs du langage de program- 
mation Visual Basic. Vous decouvrirez de quelle maniere Visual Basic reconnait et 
stocke les donnees, et apprendrez a definir les valeurs de proprietes lors de l'execution a 
l'aide du code. 



Questions-reponses 

Q Pourquoi la barre de menus ne genere-t-elle pas d'evenements Click ? 

R En fait, c'est ce qu'elle fera si aucun contenu deroulant n'est defini pour le menu 
selectionne. Si l'utilisateur selectionne un menu qui ne contient ni options ni sous- 
menus, un evenement Click est genere. Si, par contre, le menu se deroule pour 
afficher des options ou des sous-menus, cette action prend le pas sur l'evenement 
Click. 
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Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris . II convient de compren- 
dre les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trouve- 
rez ces reponses a l'Annexe A. 

Quiz 

1 . Comment s'appelle la boite de dialogue qui vous aide dans la creation des menus ? 

2. Les options de menu sont des controles. Vrai ou faux ? 

3. Quel est l'evenement que toutes les options de menu supportent ? 

4. Dans quel contexte utilise-t-on l'expression raccourci clavier ? 

5. A quoi servent les raccourcis clavier dans l'utilisation des menus ? 

6. Quel evenement les options de menu generent-elles si l'utilisateur y accede par un 
raccourci clavier ? 

7. Le Createur de menus vous aide a concevoir le systeme de menu et a creer les proce- 
dures evenementielles Click des options de menu. Vrai ou faux ? 

8. Quel est l'effet de la propriete Checked pour une option de menu ? 

9. Plusieurs options de menu peuvent etre cochees en meme temps. Vrai ou faux ? 

10. Dans le Listing 4.1, a quoi servent les lignes 57, 58 et 59 ? 

Exercices 

1 . Expliquez la difference entre ces deux operations du Createur de menus : entrer un 
menu comme tel et entrer une option de menu. 

2. Chasse au bogue. Manuel a des problemes avec ses menus : les options restent 
cochees meme lorsque l'utilisateur en selectionne d'autres. Quel conseil donneriez- 
vous au pauvre Manuel ? (Vous n'avez pas a ecrire de code.) 

3. Attribuez des raccourcis clavier a chacune des options de menu creees aujourd'hui. 
Assurez-vous que ces raccourcis clavier soient bien tous uniques. 



> 



116 



Chapitre 



Analyse des donnees 



Ici commence votre voyage au cceur du langage de programmation Visual Basic. Au lieu 
de manipuler des objets graphiques tels que les boutons de commande, vous allez main- 
tenant taper les lignes de code qui feront de vos programmes des applications fonction- 
nelles et "intelligentes". Nous commencerons par etudier les donnees Visual Basic. 
Dans le chapitre suivant, vous apprendrez a travailler sur ces donnees a l'aide des 
commandes et des controles de la feuille. 

Voici ce que nous etudierons aujourd'hui : 

• l'utilisation avancee de la fenetre Code ; 

• les types de donnees qui peuvent etre declares ; 
la distinction entre les types de donnees ; 

les conditions de stockage des donnees Visual Basic ; 

• comment declarer et assigner des valeurs aux variables ; 

• l'ordre de preseance des operateurs de calcul. 
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Avant d'entrer dans le vif du code, quelques considerations preliminaires s'imposent. 
Vous devez comprendre de facon plus approfondie les rapports qu'entretiennent le code 
et les divers controles et feuilles d'une application. Tout d'abord, rappelez-vous que la 
fenetre Projet permet d'afficher et de gerer l'ensemble des fichiers associes a votre 
application. Les procedures evenementielles que vous ecrivez dans la fenetre Code ne 
necessitent pas de fichiers propres. Elles sont stockees a meme leurs controles respec- 
tifs. Les projets que nous avons etudies jusqu'ici ne contenaient chaque fois qu'une 
seule feuille, laquelle incluait les divers controles et procedures evenementielles corres- 
pondantes. Comme vous allez le voir, les feuilles ne contiennent pas que des procedures 
evenementielles, mais egalement du code "general". 

Nous avons vu au chapitre precedent que le code se presente sous la forme de procedu- 
res, et que Visual Basic supporte deux types de procedures : les sous-routines et les 
fonctions. Les procedures evenementielles tombent dans la categorie des sous-routines. 
Vous apprendrez bientot a ecrire des procedures de type fonctions. Quand une procedure 
n'est pas une procedure evenementielle affectee a un controle particulier, le code prend 
la forme separee d'un module. La fenetre Projet affiche les modules du projet en cours 
(quand il en contient) . 

Un module est un fichier contenant du code de procedures. Le fichier qui 
contient la feuille et son code est un module de feuille. Vous avez done, sans 
le savoir, dejd travaille avec des modules. 



Un projet qui contient plusieurs feuilles contient plusieurs modules de feuilles. En effet, 
les controles de chaque feuille devant repondre a des evenements precis, chaque feuille 
a son propre code stocke dans un module de feuille. Lorsque vous incluez plusieurs 
feuilles a un projet, vous devez d'abord determiner la feuille qui apparaitra en premier 
au demarrage de Implication. La premiere feuille creee est la feuille de demarrage par 
defaut, mais vous pouvez en designer une autre en selectionnant, dans le menu Projet, la 
commande Proprietes de [projet] , ou [projet] est le nom du projet en cours. Visual Basic 
affiche alors la boite de dialogue Proprietes du projet (voir Figure 5.1). Vous apprendrez 
bientot a programmer 1' application de sorte qu'une feuille secondaire s' affiche au 
moment voulu. 
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Figure 5.1 

Dans la boite de 
dialogue Proprietes 
du projet, vous 
specifiez lafeuille 
de demarrage. 



Projet 1 ■ Proprietes du projet 



General | Creer | Compilation] Composant] Debogage | 
Type du projet: Objet de demarrage; 



1 ,11 1,1,— 


■HI "J |Forml 




Nom du projet: 






|projeti 






Nom du fichier d'aide: 




ID de contexte 
d'aide du projet: 


1 |o 


Description du rjrojet; 





I Mode d'execution autonome 

P Mettre a niveau les controles ActiveX 

r Demander le n° de licence 
r Conserve en memoire 



□ 



Modele de thread 

f 3 

*"* Thread par objet 

Nb'maxde threads [l3 threads 



Nom de la feuilleD 
"de demarrage 



Le contenu de la fenetre Code 

Les notions deja acquises en matiere de procedures evenementielles vont maintenant 
vous servir a etudier les fondements du langage de programmation Visual Basic. Avant 
d'aller plus loin, toutefois, vous devez comprendre que les modules de feuilles ne 
contiennent pas seulement des procedures evenementielles, mais aussi des sections de 
declarations . 

Les sections de declarations reservent de Vespace et attribuent un nom 
aux zones de donnees utilisees dans le reste du module. Les controles n'ont 
pas a etre declarees dans ces sections. Mais vous aurez souvent, en revan- 
che, a declarer les autres zones de donnees Visual Basic. 

Les sections de declarations apparaissent toujours en haut de chacun des modules qui 
contiennent le code. Elles apparaissent done avant toute procedure evenementielle. Tout 
code entre avant la premiere procedure evenementielle d'un module est considere 
general, plutot que lie a un controle specifique. Pour commencer, vous declarerez des 
donnees dans cette zone, traitant ainsi la zone entiere comme une section de decla- 
rations. Lorsque vous serez plus avance, vous y ecrirez egalement des procedure 
generales. 

La fenetre Code reproduite en Figure 5.2 devrait vous aider a mettre tout ga en perspective. 
Les details ne sont pas importants pour l'instant ; seule compte l'idee generale. Dans le 
texte selectionne, la section de declarations s'ouvre sur l'instruction Option Explicit. 
Notez le contenu affiche des listes Objet et procedure de la fenetre Code : (General) et 




(Declarations) . Grace aux indications de ces deux listes, vous savez toujours dans quelle 
categorie de programmation tombe une ligne de code. 



Figure 5.2 

Lafenetre Code 
contient plusieurs 
sections. 



Procedures^ 
generalistes 

Debut desD 
proceduresB— 
evenementielles 




Private Sub Update_Count ( ) 

1 Procedure generaliste qui calcule le to' 
— intTotalCount = intTotalCount + 1 
End Sub 



Private Sub Update_Total | ) 

' Procedure general is te qui ajoute lea resul 

, sngValueTctal = sngValueTctal * sngRateFac 

End Sub 

Private Sub Form_Load() 

'Reataure la position initiale de la feuille 
Me. Hove 0, (Screen. Height - He. Height) / 2 
He . Shou 
Do Event a 

End Sub 



ite Sub Form_Pstint (] 



De 



1' 



Lquette de deb o gage 



| n Projetl - Form! (Code) 






| (General) 


t | j(Decl-iintions) 


d 



\ 



Les deux procedures suivantes ne sont pas des procedures evenementielles. Ce qui se 
voit a leur nom : rappelez-vous que le nom des procedures evenementielles doit toujours 
contenir un underscore qui separe le nom du controle de celui de l'evenement. Si vous 
cliquiez dans la procedure Update_Count ( ) , la liste Objet afficherait encore (General) , 
parce que le code fait partie de la section generale du module. La liste Procedure, en 
revanche, afficherait Update_Count, le nom de la procedure selectionnee. 

Voila pour le tableau general. Nous entrons maintenant dans le vif du sujet. 



Les donnees en Visual Basic 

Les calculs peuvent impliquer differents types de donnees. Par exemple, vous pouvez 
travailler sur des noms, des actresses, des sommes d'argent, de grands et de petits 
nombres, et des donnees logiques du type vrai/faux, oui/non, etc. Afin de repondre a tous 
les besoins des differents programmes, Visual Basic supporte plusieurs types de 
donnees. 

Comme la plupart des langages de programmation, Visual Basic est assez tatillon sur la 
question des donnees. Vous devez done vous plier a ses exigences en la matiere. II est 
notamment obligatoire, avant de manipuler des donnees, d'en specifier la nature exacte. 
Apprendre a programmer en Visual Basic, e'est avant tout s'initier aux differents types 
de donnees. Visual Basic en reconnait douze. 
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Les donnees numeriques 

En regie generale, les donnees numeriques relevent d'une de ces deux categories : 

• Entiers. Nombres entiers sans decimale, tels que 614, 0, -934 ou 3 918 938. Les 
entiers peuvent exprimer un age, un numeral, un nombre d'annees, etc. En anglais, 
"entier" se dit integer. 

• Decimaux. Nombres decimaux pouvant exprimer une valeur fractionnaire, tels que 
8.709, 0.005 ou -402.35534. Les decimaux peuvent exprimer une temperature, une 
somme d'argent, un taux d'interet, etc. Les decimaux exigent la virgule, meme si la 
partie decimale, situee apres la virgule, est zero. 

Les valeurs numeriques d'exemple sont appelees litteraux, ou parfois constantes, parce 
qu'ils ne changent jamais. La valeur 614 sera toujours 614. Dans une section ulterieure sur 
les variables, vous apprendrez a declarer les valeurs changeantes. 



Visual Basic stocke et traite differemment les entiers et les decimaux, meme 
si la difference n'est pas toujours evidente pour nous autres humains. Par 
exemple, -8 n'est pas la meme chose, pour Visual Basic, que -8. 00. 

Certains types de donnees consomment plus de memoire et sont moins efficaces, tandis 
que d' autres consomment moins de memoire et sont plus rapides a calculer. On ne peut 
jamais juger "a l'ceil" du poids en memoire d'un nombre. Le nombre 29 999 occupe 
autant de memoire que le nombre 701 . 



En vous initiant aux types de donnees supportes par Visual Basic, vous 
apprendrez aussi combien de memoire requiert chacun des types. Bien que 
les questions de memoire ne soient pas aujourd'hui moins problematiques 
qu'auparavant, le programmeur souhaite toujours que son application 
s' execute le plus rapidement possible. Si done vous avez le choix entre 
plusieurs types de donnees pour une valeur, privilegiez. le moins couteux en 
memoire. 

Le Tableau 5.1 decrit les huit types de donnees numeriques supportes par Visual Basic, le 
poids en memoire de chacun, et la plage de valeurs couverte. C'est en fonction de ces 
deux derniers criteres qu'il convient d'operer ses choix. Si, par exemple, vous devez 
exprimer un nombre negatif , le type Byte est exclu. En revanche, pour exprimer des ages 
de personnes, le type Byte sera le plus approprie. 



En anglais, byte signifie "octet", une unite de stockage en memoire volant 
huit bits. 
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Certaines valeurs du Tableau 5.1 sont exprimees en notation scientifique. 



La notation scientifique permet d'exprimer de facon abregee (et approxima- 
tive) des valeurs decimales tres petites ou tres grandes. he E signifie exposant. 
On utilise alors le type de donnees Single, pour "precision simple". La nota- 
tion scientifique de haute precision emploie un D, pour "precision double " ; le 
type de donnees sera alors Double. Le E et le D peuvent aussi bien etre ecrits 
en minuscules . Pour obtenir V equivalent numerique d'une valeur en notation 
scientifique, on multiplie le nombre situe a gauche du E ou du D par 10 a la 
puissance du nombre de droite. Si Vexposant est negatif (le E ou le D est suivi 
d'un signe moins), on divise le nombre situe a gauche du E ou du D par 10 
a. la puissance du nombre de droite. Par exemple, 5.83E+5 egale 5.83 x 1 0 5 , 
soit 5.83 x 100 000, soit une valeur Single de 583 000. Dans ce cas precis, 
evidemment, on ne gagne pas grand-chose a utiliser la notation scientifique. 
Mais, dans le cas d'une valeur de 5.83E+125 (583 suivi de 123 zeros), 
I'avantage est evident. Le nombre -3.2D-6 egale -3.2/1 000 000, 
soit . 0000032 dans une zone de stockage Double. 



Tableau 5.1 : Les huit types de donnees numeriques supportes par Visual Basic 



Type 


Stockage 


Plage 


Byte 


1 octet 


De 0 a 255 


Integer 


2 octets 


De -32 768 a 32 767 


Long 


4 octets 


De -2 147 483 648 a 2 147 483 647 


Single 


4 octets 


De -3 . 402823E+38 a -1 . 401 298E-45 pour les valeurs negatives ; de 
1 . 401 298E-45 a 3 . 402823E+38 pour les valeurs positives. 


Double 


8 octets 


De -1 . 7976931 3486232E+308 a -4 . 94065645841 247E-324 
pour les valeurs negatives ; de 4. 94065645841 247E-324 a 
1 . 7976931 3486232E+308 pour les valeurs positives. 


Currency 


8 octets 


De -922 337 203 685 477.5808 a 922 337 203 685 477.5807 
(cette extreme precision garantit 1' exactitude a deux decimales pres 
des calculs comptables et financiers). 


Decimal 


12 octets 


+ /-79 228 162 514 264 337 593 543 950 335 sans decimale ; 



+ 1-7. 92281 6251 4264337593543950335 avec jusqu'a 28 decimales 
apres la virgule. (Le type de donnees Decimal n'est pas encore 
completement supporte par Visual Basic, mais il assure la 
compatibilite avec des versions ulterieures.) 
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Si la question des types de donnees vous semble obscure ou secondaire, c'est que nous 
n'avons pas encore etudie les zones de stockage des donnees ; ce sera l'objet de la 
section sur les variables. Lorsque vous tapez la valeur litterale -8.3 dans un programme, 
il n'est pas necessaire de specifier que ce litteral est de type Single. Ce dont vous devez 
vous soucier, en revanche, c'est du type de zone memoire utilise pour stocker cette valeur. 
Vous ne pouvez stocker -8.3 comme un en tier et esperer que Visual Basic traite la 
valeur adequatement. 

II peut etre utile, quand vous utilisez un litteral, de specifier le type de donnees corres- 
pondant. Imaginons, par exemple, que la valeur -8.3 est incluse dans un calcul 
mathematique de haute precision, combinee a des valeurs Double. Si Visual Basic 
suppose que -8.3 est de type Single, le resultat pourrait ne pas presenter autant de 
decimales que l'exige la precision souhaitee. La solution est d'adjoindre a la valeur un 
suffixe specifique qui indique a Visual Basic de traiter le litteral selon son type propre. 
Ainsi, si vous tapez -8.3#, Visual Basic traitera dans le calcul cette valeur comme 
Double, et donnera au resultat la plus grande precision decimale possible. 



Tableau 5.2 


Suffixes Visual Basic designant les types des litteraux 


Suffixe 


Type de donnees 


& 


Long 


! Single 


# 


Double 


@ Currency 



0* 



Le E et le D de la notation scientifique representent respectivement les types 
Single et Double. II est done inutile d'adjoindre des suffixes de types de 
donnees aux litteraux exprimes sous cette forme . 



Enfin une bonne nouvelle. En depit de la lourdeur theorique de cette section, 
vous n'avez. pas vraiment a vous inquieter des types de donnees lorsque vous 
travaillez, sur des valeurs litterales. Si vous devez attribuer un nombre a la 
propriete d'un controle, allez-y franco. C'est seulement dans des cas 
speciaux, tels que des calculs mathematique s ou scientifiques pour lesquels 
une tres haute precision est requise, que vous aurez a vous soucier du type 
des litteraux employes. 
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Autres types de donnees 



Les types de donnees non numeriques sont plus faciles a comprendre que les types nume- 
riques, surtout si vous n'etes pas specialement fort en maths. Si le BASIC et ses avatars 
sont restes dans la course depuis tant d'annees, malgre la proliferation de langages 
pretendument "plus puissants", c'est sans doute en raison de sa capacite a traiter effica- 
cement le texte. Le BASIC, et done aussi Visual Basic, laisse tous les autres langages loin 
derriere lui quand il s'agit de traiter les chaines de texte. 



0fi 



Une chaine est une serie de caracteres (une chaine de zero caractere est 
encore une chaine). Si ces caracteres peuvent etre des chiffres, le contenu 
d'une chaine ne pent jamais etre utilise dans un calcul. En revanche, il est 
possible de se servir des chaines pour des noms, des adresses, des codes, des 
numeros de securite sociale, etc. En fait, on y met a pen pres tout. Les types 
de donnees numeriques, quant a eux, ne sont utiles qu 'a des fins de calcul, 
ou dans les cas d' informations numeriques strides, telles que des sommes 
d' argent. 



Outre les donnees de chaine, Visual Basic supporte plusieurs autres types de donnees, 
tels que les dates, les variables booleennes, etc. 



On appelle booleennes , d'apres le nom du mathematicien George Boole, les 
variables qui ne prennent que deux valeurs, exclusives Vune de V autre. Ces 
valeurs sont souvent representees comme "vrai" et "faux", bien que Von 
puisse aussi bien parler de "oui" et "non". 



Tableau 5.3 : Types de donnees non numeriques supportes par Visual Basic 



Type de donnees 


Stockage 


Plage 


String (longueur fixe) 


Longueur de la chaine 


De 1 a environ 65 400 caracteres 


String (longueur variable) 


Longueur +10 octets 


De 0 a 2 milliards de caracteres 


Date 


8 octets 


Du l er janvier 100 au 31 decembre 9999 


Boolean 


2 octets 


True ou False 


Object 


4 octets 


Tout objet incorpore 


Variant (numerique) 


16 octets 


Toute valeur aussi grande qu'une Double 


Variant (texte) 


Longueur + 22 octets 


Comme les String a longueur variable 
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Les litteraux de chaines doivent toujours etre ecrits entre guillemets. Les chaines peuvent 
contenir n'importe quels caracteres. Les litteraux suivants sont tous des chaines valides : 

"Hilare or de cymbale a des poings irrites" 
"44-51-54-48" 
"666, rue de la Bete" 



Tout ce qui est entre guillemets est une chaine, meme la chaine nulle de la derniere ligne. 

Une chaine nulle est une chaine d'une longueur de zero octet, dont on se sert 
parfois pour reinitialiser le contenu d'une chaine (lui donner la valeur 
zero). La valeur speciale Null represente ce type de chaines. Visual Basic 
supporte aussi une valeur de chaine speciale dite chaine vide, representee 
par le mot cle Empty. Les chaines vides sont semblables aux chaines nulles, 
mais sont traitees d'une maniere un peu dijferente : une propriete de 
contrdle qui contient le mot cle Empty sera interpretee comme n'ayant 
encore jamais ete initialisee par quelque valeur que ce soit, pas meme une 
chaine nulle. 



La difference entre les chaines de longueur fixe et les chaines de longueur variable 
deviendra de plus en plus cruciale a mesure que vous approfondirez les methodes Visual 
Basic de stockage des donnees. 

Les litteraux, comme une date ou une heure, doivent etre precedes de deux dieses (#). 
Visual Basic autorise a peu pres tous les formats de date et d'heure. Ces formats 
dependent des parametres internationaux definis sur votre PC. Les litteraux suivants 
constituent tous des dates et des heures valides : 

#4 juillet 1 776# 
#7:11 pm# 
#19:11 :22# 
#1-2-2003# 
#5-Dec-99# 

Le type de donnees Boolean est approprie aux valeurs de proprietes qui ne peuvent 
recevoir que les valeurs mutuellement exclusives True et False ; par exemple, une 
valeur de propriete Enabled. 

Le type de donnees Variant est employe pour toutes sortes de donnees, a l'exception 
des chaines de longueur fixe. Le type Variant est utile a divers titres, notamment 
lorsqu'une zone de stockage doit recevoir des donnees de types differents. Une zone de 
stockage Variant peut ainsi servir de zone de stockage temporaire pour des donnees qui 
seront ulterieurement placees dans une zone de stockage plus specifique. 



125 



__i — ) Vous ne pouvez pas ne pas avoir entendu parler du fameux bogue de Van 
\v>o 2000. Afin d'economiser de I'espace memoire, les programmeurs ont, 

' pendant de nombreuses annees, enregistre les dates sous un format a deux 

chiffres. Pour les programmes concus de cette facon, des problemes sont 
susceptibles de se produire lorsque Vannee a deux chiffres passera de 99 a... 
00. Rassurez-vous, Visual Basic passera le cap de Van 2000 ; son format de 
representation interne des dates tient compte du millesime. Vos programmes 
Visual Basic ne devraient done souffrir d'aucun dysfonctionnement a minuit, 
le 31 decembre 1999. 

Neanmoins , certains programmeurs Visual Basic recourant a des bidouil- 
lages destines a epargner du temps et de I'espace memoire, certains codes 
peuvent cesser de fonctionner a cette date. En tant que nouveau venu dans le 
domaine de la programmation, gardez. a V esprit ce probleme, et travaillez. 
toujours sur des annees a quatre chiffres. 



Les variables 



Les variables recoivent differentes valeurs. Si ses valeurs peuvent changer, e'est que la 
variable n'est rien de plus qu'une zone de stockage, une sorte de boite capable de contenir 
une seule valeur a la fois. Lorsque vous affectez a une variable une nouvelle valeur, la 
valeur precedente est remplacee. La valeur du litteral 54 ne changera jamais ; mais si vous 
stockez ce litteral dans une variable, la valeur 54 ne s'y maintiendra que tant que 
vous n' affectez pas une nouvelle valeur. 

Une variable est une zone de stockage temporaire en memoire, designee par 
un nom unique. Les variables regoivent les valeurs et les calculs inter- 
mediates attribues aux controles de lafeuille et generes par eux. 

Vous seul decidez du nom des variables de votre code. Deux variables differentes ne 
peuvent prendre le meme nom dans une meme procedure, car Visual Basic ne saurait 
alors les distinguer. Ala difference des proprietes de controles, deja nominees dans le 
langage, les variables ont pour seul nom celui que vous leur donnez. Avant de pouvoir 
utiliser une variable, il faut la declarer, e'est-a-dire indiquer a Visual Basic son nom et 
le type de donnees qu'elle contiendra. Les variables ne peuvent contenir que le type de 
donnees pour lequel elles ont ete declarees. Ainsi, une variable declaree comme Byte 
ne pourra pas contenir une valeur de chaine. (Les variables declarees comme Variant 
font toutefois exception a cette regie.) 
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Declaration des variables 

On declare les variables avec l'instruction Dim, qui en definit le nom et le type de 
donnees. Pour chaque variable utilisee, il doit y avoir une instruction Dim. On peut, en 
fait, deroger a cette regie, mais il en resulte alors des programmes bacles susceptibles 
de generer des erreurs. On affiche, via le menu Outils, Option de Visual Basic, la boite de 
dialogue obtenue par la commande de menu Outils, Options de Visual Basic, dans 
l'onglet Editeur, l'option Declaration des variables obligatoire engage Visual Basic a 
exiger la declaration initiale. La section de declarations du code inclut par defaut 
l'instruction suivante : 



Option Explicit 

Cette instruction indique a Visual Basic que la suite du code contient les declarations de 
toutes les variables du module courant. Par exemple, si vous orthographiez mal un nom 
de variable dans le code, Visual Basic s'en avisera aussitot. Si vous n'exigez pas la 
declaration explicite des variables, Visual Basic traitera simplement les variables fautives 
comme non initialisees, et les calculs impliquant ces variables renverront des resultats 
errones. 



Si vous n'exigez pas la declaration explicite des variables, Visual Basic 
considere toute variable non declaree comme de type Variant. 



Voici le format de l'instruction Dim 



Dim VarName As DataType 

VarName est le nom assigne a la variable ; DataType est l'un des types de donnees presen- 
ted aux Tableaux 5.1 et 5.3. Si vous declarez une variable a l'interieur d'une procedure 
(qu'il s'agisse ou non d'une procedure evenementielle), ce doit etre tout de suite apres 
la premiere ligne d'encadrement. La variable est alors disponible pour toute la proce- 
dure, et seulement pour cette procedure. Les autres procedures n'ont aucun acces a la 
variable, qui ainsi reste locale, c'est-a-dire valable uniquement pour la procedure qui la 
contient. Si, en revanche, vous declarez une variable dans la section de declarations du 
module, cette variable sera disponible pour toutes les procedures du module. La variable 
est alors globale pour le module. Toutefois, aucun autre module de l'application n'y 
aura acces. II est possible de declarer des variables globales pour un projet entier ; mais 
plus vos variables seront locales, moins vous risquez d'utiliser une meme variable pour 
deux emplois differents. 
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Deux variables peuvent porter le meme nom tout en etant bien distinctes, 
pour autant qu 'elles soient declarees localement dans des procedures diffe- 
rentes. En outre, deux procedures peuvent se partager une variable declaree 
localement pour une seule des procedures . C'est au Chapitre 8 que vous 
apprendrez. a partager les variables locales. 

Si vous restez maitre de vos variables, il convient neanmoins de respecter certaines 
regies de denomination : 

• Tous les noms de variables doivent commencer par une lettre de l'alphabet. 
Les noms doivent contenir des lettres ou des chiffres. 

Les noms ne doivent pas depasser 255 caracteres. 

• Employez pour les noms un jeu limite de caracteres speciaux. Le plus sur est de s'en 
tenir a l'underscore (_). En n'utilisant que des chiffres, des lettres et l'underscore, 
vous n'avez pas a vous soucier des caracteres speciaux non autorises. Notamment, les 
noms de variables ne doivent pas contenir d'espaces. 

Voici maintenant, en matiere de denomination, les conventions generales eprouvees et 
approuvees par la communaute des programmeurs : 

• Incluez dans les noms de variables un pre fixe designant le type de donnees. Cela 
vous epargnera de consulter la section de declarations du programme pour dete- 
rminer le type de donnees d'une variable, et ainsi vous risquerez moins de vous 
tromper. Le Tableau 5 .4 presente les prefixes de noms de variables couramment 
utilises. 



' I On peut stacker des valeurs d'un certain type dans des variables declarees 

pour un type different, a condition que les deux types soient compatibles, 
notamment en taille. Par exemple, vous pouvez stocker une valeur de type 
Byte dans une variable de type Integer, parce que ce dernier type couvre une 
plage de valeurs plus grande que le type Byte. 

• Employez des noms explicites, tels que curTotal, plutot que des noms ambigus tels 
que a ou curxi . La documentation du code n'en sera que facilitee. 

• Servez-vous des lettres capitales pour separer les parties du nom. (Dans cet ouvrage, 
nous n'utiliserons pour les noms de variables que les lettres et les chiffres ; certains 
programmeurs preferent toutefois recourir a l'underscore, comme dans curTotal 
_General.) 
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Tableau 5.4 : Prefixes decrivant le type de donnees d'une variable 



Prefixe 


Type de donnees 


Exemple 


bin 


Boolean 


blnBoutonEnabled 


byt 


Byte 


bytLength 


cur 


Currency 


curSales98 


dte 


Date 


dteOverdue 


dbl 


Double 


dblScientif icAmt 


int 


Integer 


intYear1998 


lng 


Long 


IngWeatherDistance 


obj 


Object 


objWorksheetAcct99 


sng 


Single 


sngSalesI stQte 


str 


String 


strFirstName 


vnt 


Variant 


vntvalue 



Voici quelques declarations de variables possibles : 

Dim intTotal As Integer 
Dim curSales99 As Currency 
Dim dteFinal As Date 
Dim strName As String 
Dim blnlsChecked As Boolean 

Le nom des variables de type Boolean doit evoquer une question a laquelle on repon- 
drait par oui ou non (ou par vrai ou faux, True ou False), comme pour l'exemple blnls- 
Checked (blnEstCoche en francais). 

Vous pouvez egalement, en les separant par des virgules, declarer plusieurs variables 
dans une meme declaration Dim ; mais il faut alors inclure la clause As DataType pour 
chaque variable : 

Dim intTotal As Integer, curSales99 As Currency 

En l'absence de clause As DataType, Visual Basic declare lui-meme la variable comme 
Variant. Ainsi, ces deux instructions sont equivalentes : 



B 



Dim vntControlVal As Variant 
Dim vntControlVal 
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Mime si vous declarez une variable Variant, specifiez toujours la clause As 
Variant afin de clarifier vos intentions. 



Declaration des chaines 

La declaration des variables est un peu subtile, car le type de donnees String est appli- 
cable a deux sortes de chaines : longueur fixe et longueur variable. Les chaines a 
longeur variable sont les plus courantes. Elles sont aussi plus faciles a declarer en ce 
qu'elle suivent le meme format de declaration Dim que les autres. Voici deux exemples 
de declarations de variables a longueur variable : 

B Dim strCityName As String 
Dim strStateName As String 

Les variables strCityName et strStateName peuvent toutes deux contenir des chaines de 
n'importe quelle longueur. Si, dans strCityName, vous stockez d'abord "Paris", et que 
y vous stockiez par la suite "Iekaterinenbourg", la chaine s'ajustera aux differentes 
valeurs. C'est sur des chaines a longueur variable que vous travaillerez le plus souvent. 
Aussi ce livre ne s'attardera-t-il pas sur les chaines a longueur fixe, a moins que la 
longueur ne soit importante, comme c'est notamment le cas avec les fichiers. Vous 
pouvez aussi limiter le nombre de caracteres susceptibles d'apparaitre sur un label, ou 
sur tout autre controle, en y assignant une chaine de longueur fixe. 




Les guillemets ne font pas partie de la chaine, mais servent uniquement a 
delimiter le contenu litter al. 



Voici le format des instructions Dim par lesquelles on declare les chaines a longueur 
fixe : 

Dim VarName As String * Length 

L' option * Length indique a Visual Basic que la chaine declaree ne devra jamais occuper 
plus de caracteres que ne le specifie Length (longueur). Voici la declaration section de 
declaration d'une variable dont on veut limiter la chaine a un maximum de cinq 
caracteres : 

Dim strZipcode As String * 5 

Si vous tentez de stocker plus de caracteres que ne le permet une chaine a longueur fixe, 
Visual Basic ne retiendra que le nombre specifie de caracteres, et le reste se perdra dans 
le neant numerique. De tels bogues sont souvent difficiles a retracer. 
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Stockage des donnees 

Une fois la variable declaree, vous pouvez y stocker des donnees. Les instructions 
d' affectation sont le moyen le plus simple de stocker les donnees dans des variables. 
Voici le format d'une instruction d' affectation : 

ItemName = Expression 

itemName (nom de l'element) peut designer une variable declaree (ce cera generalement 
le cas dans ce chapitre), mais egalement une valeur de propriete. Expression peut etre : 

une expression mathematique ; 

• un litteral ; 
une variable ; 

• une expression logique ou de chaine ; 

• une valeur de propriete (les proprietes de controles sont de type Variant, mais Visual 
Basic les convertit dans un format precis lorsqu'elles sont stockees dans des variables) ; 

• une expression mathematique, logique ou de chaine, qui contient une combinaison 
de litteraux, de variables et de valeurs de proprietes. 

Le concept d'expression peut vous sembler obscur a ce point ; disons qu'est expression 
tout ce qui peut devenir une valeur. Voici quelques exemples destructions d' affectation 
valides : 

curSales = 5712.75 
strFirstName = "Idulphe" 
blnPassedTest = True 
blnlsEnabled = lblTitle. Enabled 
dblValue = 45. 1# 
intCount = intNumber 
! dteOld = #4-1 -92# 

sng01d97Total = sngNew98Total - 1000.00 

La premiere instruction d'affectation est assez revelatrice. La valeur 5712.75 est 
stockee dans une variable nommee curSales. Un suffixe peut etre ajoute apres un 
litteral, comme dans la cinquieme affectation, afin de specifier le type de donnees pour 
les cotes de l'expression. Dans ce cas, en revanche, 45.1 est plus petit qu'un type 
Double ; si vous omettiez le suffixe, Visual Basic ferait automatiquement la conversion. 
Aux variables declarees comme Boolean ne sont affectees que les valeurs True ou 
False, ou une valeur de propriete contenant True ou False. Notez, a la derniere affec- 
tation, la presence du signe moins. La prochaine section vous apprendra a ecrire les 
expressions mathematiques. 
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Visual Basic supporte encore un ancien format d' instructions d' affectation 
qui commence par le mot cle Let. Les instructions suivantes ont exactement 
le mime effet : 

Let intCount = 1 
intCount = 1 



Dans les quatre premiers chapitres, vous avez appris a stocker des valeurs de proprietes 
a l'aide du code Visual Basic. C'est egalement ce a quoi servent les instructions d'affec- 
tation. Les instructions suivantes changent la valeur affichee par un label lblTitle : 

lblTitle. Caption = "La tache est terminee" 

Tous les controles ont des proprietes par defaut ; c'est a ces proprietes par defaut que 
Visual Basic affectera automatiquement les valeurs pour lesquelles vous ne specifez pas 
de propriete. La propriete par defaut d'un controle Label est Caption ; aussi l'affectation 
suivante est-elle equivalente a la precedente : 



lblTitle 



La tache est terminee 



Les affectations aux proprietes par defaut demandent moins d'ecriture. Mais, 
encore une fois, plus votre code est explicite, plus la documentation sera 
facile, et plus il sera clair pour les lecteurs eventuels. Specifiez toujours le 
nom de la propriete concerne par l'affectation, mime s'il s'agit de la propriete 
par defaut. De cette facon, les instructions ne priteront a aucune ambigui'te. 



Des qu'une instruction affecte une valeur a un controle, ce controle est mis a jour sur la 
feuille. Ainsi, si vous affectez une nouvelle valeur a un label, le label affiche automa- 
tiquement le nouveau contenu. 



Les operateurs Visual Basic 

Visual Basic supporte de nombreux operateurs mathematiques et de chaines. Le 
Tableau 5.5 presente les plus courants. Ces operateurs vous serviront dans les expressions 
impliquees dans des calculs, ainsi que pour le traitement des donnees. 

Les operateurs traitent les donnees en calculant ou en combinant des resul- 
tats. La plupart des operateurs sont des symboles, tandis que d'autres, tel 
Mod, ressemblent plus a des commandes Visual Basic. 
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Tableau 5.5 : Operateur s courants utilises pour le calcul et le traitement 
des donnees 



Operateur 


Signification 


Exemple 


Resultat 




Puissance 


2 A 3 


8 




Multiplication 


2*3 


6 


/ 


Division 


6 / 2 


3 


+ 


Addition 


2 + 3 


5 




Soustraction 


6-3 


3 


Mod 


Modulo 


11 Mod 3 


2 


\ 


Division entiere 


11 \ 3 


3 


+ ou & 


Concatenation de chaines 


"Bon" & "jour" 


"Bonjour" 



La puissance multiplie un nombre par lui-meme autant de fois que le specifie 
l'exposant. Ainsi, 2 * 3, 2 a la puissance 3, est egal a 2 x 2 x 2, c'est-a-dire 8. Le 
calcul exponentiel peut etre applique aux valeurs fractionnaires . L'exposant peut etre 
negatif ; on obtient alors la n e puissance du nombre. Le fonctionnement des opera- 
teurs de multiplication et de division va de soi : l'expression 10/2 donne 5, tandis 
que 10*3 donne 30. 

L' operateur Mod renvoie le reste d'une division entiere. Seules des valeurs de type Integer 
apparaissent de chaque cote de Mod. Si vous entrez des valeurs de types differents, Visual 
Basic la convertira et l'arrondira en nombre entier avant de traiter l'operation. Par exem- 
ple, 1 1 Mod 3 renvoie 2, puisque 1 1 divise par 3 egale 3, reste 2. L operateur de division 
entiere, \ (notez qu'il s'agit de la barre oblique inverse, ou backslash, et non d'un slash), 
renvoie le quotient d'une division, ignorant le reste. Ainsi, 11 \ 3 donne 3, puisque 
1 1 divise par 3 egale 3, reste 2. (Avec 1' operateur /, 11 divise par 3 donnerait une valeur 
fractionnaire du genre 3,666.) 

L' operateur de l'addition est un operateur surcharge, c'est-a-dire capable effectuer deux 
operations differentes selon les donnees qui l'entourent. Lorsque ce sont des chaines que 
vous placez de chaque cote des signes + ou &, Visual Basic met bout a bout les deux 
chaines, et traite le tout comme une seule et meme chaine ; cela s'appelle la concatena- 
tion. Visual Basic n'ajoute rien entre les chaines concatenees ; si done vous voulez une 
espace, il faut l'inclure comme troisieme chaine entre les deux autres. 



133 < 



Un operateur surcharge est un operateur qui permet des operations differen- 
tes, selon le contexte. 



La concatenation est la mise bout a bout de plusieurs chaines en une mime 
chaine. 



L' affectation suivante concatene les valeurs de deux labels en une seule chaine variable, 
et place une espace au milieu. 

strCompleteName = lblFirst .Caption & " " & lblLast. Caption 

Afin d'eviter toute confusion avec V operateur d'addition lors de la mainte- 
nance du code, n'utilisez V operateur & que pour des concatenations de chaines. 



L'ordre des operateurs 

Visual Basic effectue les calculs selon un ordre strict predefini, illustre dans le 
Tableau 5.6. La puissance passe en premier, puis vient la multiplication, puis la division, 
et ensuite seulement l'addition et la soustraction, a moins que des parentheses ne vien- 
nent modifier cet ordre. 



Tableau 5.6 : Visual Basic respecte l'ordre des operateurs dans les calculs 



Priorite 


Operateur 


Exemple 


Resultat 


1 


Parentheses ( ) 


(2 + 3) * 7 


35 


2 




2*3 + 1 


9 


3 


*, /, \, Mod 


2 + 3*7 


23 


4 


+ , - 


10 - 4 * 2 + 1 


3 



Sauf parentheses, les resultats intermediates des multiplications ou des divisions d'une 
expression sont toujours calcules avant les additions ou les soustractions. La puissance a 
preseance sur toutes les autres operations. 

Si une meme expression contient a la fois une multiplication et une division, Visual 
Basic les traite de gauche a droite, sauf s'il y a des parentheses. Ainsi, l'expression 10 / 
2*3 renvoie le resultat 15 : Visual Basic divise d'abord 10 par 2, ce qui donne 5, puis 
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multiplie par 3 ce resultat, ce qui donne 15. De meme, dans une expression sans autres 
operateurs ni parentheses, les additions et les soustractions sont calculees de gauche a 
droite. 

En cas de parentheses imbriquees, Visual Basic traite d'abord les parentheses interieures. 
Ainsi,dans l'expression (10 + 2- (8-3)) + 1 , Visual Basic commence par calculer (8 - 3) . 



En resume 

Ce chapitre vous a donne quelques notions preliminaries des subtilites du code Visual 
Basic. Vous avez d'abord etudie comment les sections de declarations s'inscrivent dans 
le code general de l'application, avant d'approfondir votre connaissance du langage, 
notamment en ce qui concerne les types de donnees. 

Comme nous l'avons vu, Visual Basic supporte plusieurs types de donnees. Vous devez 
non seulement apprendre a les distinguer, mais aussi a declarer convenablement les 
divers types de donnees sur lesquels vous travaillerez. Les variables servent a stocker 
provisoirement des donnees lors de l'execution d'un programme. Mais avant d'utiliser 
une variable, il faut la nommer et la declarer. Les differents operateurs Visual Basic vous 
permettent d'effectuer des calculs mathematiques, dont les resultats pourront etre 
stockes dans des variables. 

Le prochain chapitre vous emmene un peu plus loin dans les profondeurs de Visual Basic. 
Vous y decouvrirez une nouvelle serie d'operateurs, qui permettent de comparer les 
donnees. Vous etudierez egalement les nouveaux controles et instructions qui exploitent ces 
operateurs. 

Questions-reponses 

Q Pourquoi Visual Basic ne calcule-t-il pas tous les operateurs de gauche a 
droite ? 

R Visual Basic ne fait que se plier a 1' antique hierarchie des operateurs algebriques. C'est 
la faute des mathematiciens ! Plus serieusement, l'ordre des operateurs permet d'eviter 
toute ambigui'te dans le code. En fait, vous n'avez pas forcement a vous soucier de cette 
hierarchie : vous pouvez imposer votre propre ordre, en utilisant les parentheses meme 
la oil elles ne sont pas necessaires. Par exemple, 1' affectation suivante donne exactement 
le meme resultat avec ou sans les parentheses, lesquelles ne sont la que pour oter toute 
ambigui'te : 

intValue = (8 * 9) + intResult 
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Q Pourquoi faut-il preferer les variables locales aux variables globales ? 

R Vos progres en programmation vous ameneront a mieux comprendre ce probleme. 
La regie de facto veut que les variables locales soient toujours plus claires et plus 
sflres que les variables globales. Les procedures doivent etres aussi epurees que 
possible. Elle ne doivent avoir acces qu'aux variables strictement necessaires. Ce 
cloisonnement permet de se premunir contre les bogues pernicieux, et souvent tres 
difficles a localiser, que les variables globales sont susceptibles d'engendrer. 

En revanche, comme vous l'avez sans doute deja compris, les controles sont globaux 
pour tout le projet. Pour que les controles d'une feuille soient accessibles a tout le code 
d'un projet, il faut que chaque procedure puisse lire ou modifier les valeurs de proprietes 
de ces controles. 



Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris . II convient de compren- 
dre les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trou- 
verez ces reponses a 1' Annexe A. 

Quiz 

1 . Quel type de code contient la section de declarations d'un programme ? 

2. Comment faire en sorte qu'une procedure puisse acceder a une variable locale d'une 
autre procedure ? 

3. La valeur d'un litteral ne change jamais. Vrai ou faux ? 

4. La valeur d'une variable ne change jamais. Vrai ou faux ? 

5. Pourquoi Visual Basic supporte-t-il deux types d'operateurs de division ? 

6. Qu'est-ce qu'un operateur surcharge ? 

7. Quel operateur doit-on de preference utiliser pour concatener des chaines ? 

8 . Quel type de donnees contient tous les autres types de donnees ? 

9. Les prefixes sont obligatoires dans les noms de variables. Vrai ou faux ? 

10. Quelles sont les deux manieres de s'assurer que Visual Basic n'autorise aucune varia- 
ble non declaree ? 
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Exercices 

1 . D'apres vous, que fera Visual Basic de la declaration de variable suivante ? 

Dim intent As Integer, abc, curSales As Currency 

2. Chasse au bogue : Marie essaie de calculer une moyenne a l'aide de l'expression 
suivante. Pouvez-vous l'aider ? 

] sngAvg = sngGradel + sngGrade2 + sngGrade3 / 3 

3 . Quel est le resultat des formules suivantes ? 

a. 1 + 2 * 4 / 2 

b. (1 + 2) * 4 / 2 
C. 1 + 2 * (4 / 2) 

d. 9 \ 2 + 1 

e. (1 + (10 - (2 + 2))) 

4. Ecrivez des instructions d'affectation qui donnent l'equivalent Visual Basic des 
formules suivantes : 

a. 3 + 3 

a = 

4 + 4 

b. x= (a-b) * (a-2) 2 

c. a 1/2 

f= ... 



5. Le programme du premier Projet bonus sur les controles, proprietes et evenements, 
incluait la procedure suivante : 

1: Private Sub cmdTest_Click( ) 

2: ' Cette procedure evenementielle s 1 execute des que 
3: 1 1 ' utilisateur decide de tester le mot de passe saisi 



4: If txtPassword.Text = "SSM" Then 

1 Mot de passe correct 
5: Beep 

6: Beep ' Afficher 1' image 

7: imgPassword. Picture = LoadPicturef "C: \Program Files\" 

8: & "Microsoft Visual Studio\Common\Graphics\MetaFile\ " 

9: & "Business\coins.wmf " ) 

lblPrompt .Caption = "Aboule le fric !" 
10: Else 
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Partie II 



11: lblPrompt. Caption = "Mot de passe incorrect - 

Essayer encore " 
12: txtPassword.Text = Effacer le mauvais mot de 

» passe 

13: txtPassword.SetFocus ' Mettre le focus sur la zone 

de texte 
14: End If 
15: End Sub 

Etudiez cette procedure pour voir les affectations a l'ceuvre. Mais surtout, compre- 
nez-vous maintenant pourquoi les longues instructions fragmentees en plusieurs 
lignes, telles que les lignes 7, 8 et 9, doivent inclure des esperluettes ? 
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PB2 



Variables et expressions 



Le code de ce Projet bonus met en ceuvre des declarations de variables, des instructions 
d' affectation et des expressions. Maintenant que vous etes en mesure de concevoir une 
feuille et d'utiliser divers controles, vous devez vous attaquer aux subtilites du code et 
apprendre a activer les controles de l'application a l'aide d' instructions Visual Basic. 
Cela commence par le traitement des donnees. 

Le Listing PB2.1 illustre les concepts etudies au Chapitre 5. Ann que vous puissiez vous 
concentrer sur le code, aucune feuille visuelle n'y est decrite. Si toutefois vous voulez 
creer une feuille pour tester le code, il suffit de creer une feuille simple contenant trois 
labels, lblGrossPay, lblTaxes et lblNetPay, ainsi qu'un bouton de commande cmdCalc- 
Pay qui declenchera le code. Votre feuille devrait ressembler a la Figure PB2.1. Apres 
avoir effectue quelques calculs, le code affiche les resultats comptables dans les trois 
labels . 

Listing PB2.1 : Ce code met en oeuvre des variables et des instructions 
d 'affectation 

1: Private Sub cmdCalcPay_Click( ) 

2: 1 Calcule les trois variables de la paye. 

3: Dim intHoursWorked As Integer 

4: Dim sngRate As Single, sngTaxRate As Single 

5: Dim curTaxes As Currency, curGrossPay As Currency 

6: Dim curNetPay As Currency 

7: 

8: ' Initialise les variables 

9: ' (En realite, ces donnees viendraient de 



139 



Listing PB2.1 : Ce code met en oeuvre des variables et des instructions 
d 'affectation (suite) 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



' 1 ' utilisateur ou d'un f ichier) . 

intHoursWorked = 40 ' Total des heures travaillees. 

sngRate = 7.8 ' Paye par heure. 

sngTaxRate = 0.42 1 Pourcentage de prelevements. 

' Calcule les sommes 
curGrossPay = intHoursWorked * sngRate 
curTaxes = sngTaxRate * curGrossPay 
curNetPay = curGrossPay - curTaxes 

1 Affiche les resultats dans les labels 
lblGrossPay .Caption = curGrossPay 
lblTaxes .Caption = curTaxes 
lblNetPay .Caption = curNetPay 
End Sub 



Figure PB2.1 

Vous pouvez creer 
unefeuille simple 
pour tester ce code. 



Paye brute 



Paye nette 




Calcule! la paye 



Analyse 



Les lignes 1 et 24 sont les lignes d'encadrement de la procedure evenementielle du 
bouton de commande. Les lignes 2, 8, 15 et 20 sont des commentaires qui facilitent la 
documentation et la maintenance du code. Les lignes 3 a 6 declarent les variables. Trois 
de ces variables sont de type Currency. 

Les lignes 11, 12 et 13 affectent des valeurs aux trois variables. En situation reelle, ces 
donnees comptables seraient fournies par l'utilisateur, voire reprises d'un fichier. Mais 
vous n'avez pas encore etudie les entrees utilisateur ni la manipulation de fichiers ; du 
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reste, les instructions d'affectation se pretent bien a notre exemple. Notez que, lorsqu'un 
litteral est affecte a une variable de type Integer (ligne 11), il n'y a pas de virgule 
decimale. En revanche, les valeurs assignees aux variables Single (lignes 12 et 13) 
contiennent de telles virgules. 

Les lignes 16, 17 et 18 effectuent le calcul de la paye. Les expressions etant courtes, 
l'ordre des operateurs n'a pas d'importance. Vous pouvez constater que ces expressions 
contiennent des types de donnees differents ; toutes ces donnees sont pourtant compatibles 
entre elles. 

Enfin, les lignes 21, 22 et 23 affectent les valeurs de variables aux labels. Une fois les 
valeurs affectees, les controles de la feuille se mettent a jour et les labels affichent les 
resultats. 

L' instruction d'affectation ne fait que "copier" le contenu de V expression 
situee a droite du signe = dans la variable ou le controle situe a gauche. Le 
contenu de V expression n'est pas deplace. Par exemple, une fois que la 
ligne 21 s'est executee, la variable curGrossPay contient toujours sa valeur, 
mais cette valeur est egalement presente dans la propriete Caption du label. 
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Chapitre 



Operateurs et 
instructions de controle 

Ce chapitre traite encore des operateurs Visual Basic, mais les operateurs que vous allez 
etudier ne servent pas aux calculs mathematiques. II s'agit d'operateurs logiques et 
conditionnels destines a comparer les donnees. Vous decouvrirez egalement des instruc- 
tions de controle grace auxquelles vos programmes repeteront une section de code autant 
de fois que necessaire, et interrogeront diverses conditions. 

Voici ce que nous etudierons aujourd'hui : 

les operateurs conditionnels qui permettent d'interroger les donnees ; 

les operateurs logiques qui permettent de combiner les operateurs conditionnels ; 
• 1' instruction If ; 

les boucles et leur utilite ; 

la difference entre les quatre types de boucles Do ; 
la difference entre les boucles For et Do. 
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Les operateurs conditionnels 

Imaginons que vous ayez a ecrire une application comptable. Cette application doit tota- 
liser l'ensemble des sommes dues a chaque fournisseur, puis imprimer le cheque. Mais 
qu'en est-il des fournisseurs avec lesquels la societe n'a pas realise d'affaires depuis la 
derniere session de paiement ? Le programme doit-il imprimer un cheque de 0,00 F ? 
Evidemment non. Toutes les procedures que nous avons etudiees jusqu'ici se conten- 
taient d'executer une instruction apres l'autre. Grace aux operateurs conditionnels et 
aux instructions connexes que nous allons decouvrir, vos programmes pourront modifier 
l'ordre d'execution des instructions selon les donnees en presence. Ainsi, l'application 
comptable n'imprimerait de cheques que pour les fournisseurs auxquels vous devez de 
1' argent. 

Le Tableau 6.1 presente ces nouveaux operateurs Visual Basic. A la difference de ceux 
que nous avons etudies au chapitre precedent, aucun de ces operateurs n'effectuent 
d'operations mathematiques. II s'agit d' operateurs conditionnels qui comparent les 
donnees. Grace a eux, vos programmes Visual Basic seront plus intelligents. En compa- 
rant et en analysant les resultats, le programme peut decider par lui-meme, et sur la 
seule base des donnees qui lui sont fournies, de ce qu'il convient de faire. En incluant a 
vos programmes operateurs et instructions conditionnels, vous laissez Visual Basic 
decider, lors de l'execution, quelles sont les instructions a executer. 

Les operateurs conditionnels permettent de comparer une valeur a une 
autre. Grace aux operateurs conditionnels , vous savez si une valeur est plus 
petite, plus grande qu'une autre ou lui est egale. 

Tableau 6.1 : Visual Basic supporte six operateurs conditionnels 



Operateur 


Description 


Exemple 


Resultat 




Egal a 


7 = 2 


False 


> 


Superieur a 


6 > 3 


True 


< 


Inferieur a 


5 < 11 


True 


>= 


Superieur ou egal a 


23 >= 23 


True 


<= 


Inferieur ou egal a 


4 <= 21 


True 


<> 


Different de 


3 <> 3 


False 
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Remarquez, dans le Tableau 6.1 , la colonne des resultats. Quel est le resultat de 6 > 3 ? 
Est-ce que 6 est plus grand que 3 ? Oui, et le resultat de l'expression conditionnelle est 
done "vrai", True. Comme nous l'avons vu au chapitre precedent, Visual Basic supporte 
le type de donnees Boolean, qui n'accepte que les valeurs True ou False. Les mots cles 
True et False sont utilises dans le code pour affecter des valeurs aux variables booleen- 
nes et aux proprietes de controles. 

Nous avons vu que Voperateur d' addition etait surcharge. C'est egalement le 
cas de Voperateur =. On V utilise dans les instructions pour affecter des 
expressions aux variables et aux controles. On V utilise aussi pour des compa- 
raisons d'egalite. Visual Basic fait la distinction entre les deux en fonction du 
contexte dans lequel Voperateur = apparait. 

Avant d'employer ces operateurs dans votre code, assurez-vous d'en comprendre le 
fonctionnement. L'expression 23 >= 23 est True parce que 23 est superieur ou egal a 23. 
Etudiez la colonne des resultats du Tableau 6.1 pour bien saisir ce concept. 

Les litteraux ne sont pas les seules valeurs qui puissent apparaitre de chaque cote d'un 
operateur conditionnel. C'est aussi le cas des expressions, des variables, des controles et 
des combinaisons de tous ces elements. Visual Basic traite de multiples types de 
donnees, et vos programmes doivent tester et comparer les donnees avant d'executer le 
code le plus approprie. 

La presence d'une valeur Null d'un cote ou de l'autre d'un operateur conditionnel 
constitue un cas particulier. Car Visual Basic ne renvoie alors, comme resultat de la 
condition, ni True ni False, mais... Null. Vous devez etre attentif a ce que l'une des 
valeurs comparees puisse etre Null. Dans ce cas, trois resultats sont possibles : True, 
False et Null. Parce que de tels resultats peuvent etre deroutants, Visual Basic dispose 
d'un outil appele fonctions internes, qui aide a detecter les valeurs Null ; vous etudierez 
cet outil au Chapitre 8, "Sous-routines et fonctions". Notez que les operateurs condi- 
tionnels considerent toute valeur Empty (correspondant a un controle ou a une variable 
qui n'a pas encore ete initialise par quelque valeur que ce soit) comme egale a zero, ou 
comme une chaine nulle si ce sont des chaines que Ton compare. 

Les operateurs conditionnels comparent les chaines exactement de la meme maniere 
que les valeurs numeriques . Les comparaisons de chaines suivent ces regies generates : 

• Les lettres capitales valent moins que les minuscules ; ainsi, "BONJOUR" vient 
avant "bonjour" . 

• Les lettres se comparent selon l'ordre alphabetique ; ainsi, "A" vaut moins que "B", 
et le nom "Walter" passe avant le nom "William" . 

Les nombres valent moins que les lettres ; ainsi, "3" est plus petit que "trois". 
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Si ces regies vous semblent obscures, rassurez-vous : Visual Basic compare la plupart 
des chaines en suivant le meme ordre que votre carnet d'adresses. Cette capacite a 
comparer les chaines permet a vos programmes de classer les noms par ordre alpha- 
betique, de tester les mots de passe, et d'analyser les donnees. 

Une instruction speciale peut apparattre dans la section de declarations 
d'un module : 

Option Compare Text 

Cette instruction, eventuellement associee a V instruction Option Explicit, 
etudiee au chapitre precedent, a pour effet que les capitales et les minuscules 
sont e gales en comparaison. Si vos comparaisons ne doivent pas tenir 
compte du style, incluez V instruction Option Compare Text dans votre 
module. Cependant, un programme qui ne tient pas compte du style dans ses 
comparaisons ne donnera pas, dans la plupart des cas, un classement 
alphabetique fiable . 



— 1 ) Pour la comparaison des chaines, Visual Basic suit V ordre present par la 
table ASCII — a moins que le module ne contienne V instruction Option 
Compare Text. 



0* 



La table ASCII (prononcer "aski") contient la liste de tous les caracteres 
disponibles sur le PC, et attribue un numero unique a chacun de ces carac- 
teres. La valeur ASCII de la lettre "A" est 65, celle de la lettre "B" 66, etc. 
Recherchez 'ASCII" dans V index de I' aide Visual Basic pour obtenir cette table 
(voir Figure 6.1). L Annexe C de cet ouvrage reproduit egalement la 
table ASCII. 



Voici quelques exemples de comparaisons de chaines 



"abedef" > "ABCDEF" 
"Oui ! " < "Oui ?" 
"Bill vous regarde" 
"PC" <> "pc" 
"Merci, Merci, Merci" > 



Bill vous regarde" 
Merci, Merci" 



Chacune de ces comparaisons de chaines renvoie le resultat True. 

Visual Basic supporte un autre operateur conditionnel, Like, qui compare les valeurs sur 
la base de caracteres generiques, ou "jokers". Vous avez sans doute deja eu affaire aux 
jokers * et ? en travaillant sur des fichiers. Ainsi, * symbolise n'importe quel nombre de 
caracteres (zero inclus), tandis que ? symbolise un seul caractere. Like reconnait un 
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Figure 6.1 

Pour la comparaison 
des chaines, Visual 
Basic suit Vordre 
des codes ASCII. 
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troisieme joker, #, qui symbolise tout chiffre. Nous vous donnons ci-dessous quelques 
exemples d'utilisation de Like. Les expressions conditionnelles suivantes renvoient 
toutes le resultat True : 

"Simon & Schuster Macmillan" Like "Si*" 
"Qtr???" Like "QtrOne" 
"Total##" Like "Total98" 
"X" Like "[XYZ]" 

Le dernier exemple releve d'un type special d'expression Like. Lorsque le caractere 
correspond a Tun des caracteres entre crochets, le resultat renvoye est True. Les crochets 
permettent d'interroger une serie de caracteres. Comparees a la chaine 
"Code [12345] Rouge", les valeurs suivantes sont toutes True : "Codel Rouge", "Code2Rouge", 
"Code3Rouge" , "Code4Rouge" , "CodeSRouge". 

En realite, vos programmes Visual Basic compareront des variables et des 
controles dont le contenu est appele a changer dans le cours de V execution. 
Les exemples ne comparent que des litteraux afin d'illustrer le fonction- 
nement des operateurs . 

Pour ces expressions, l'operateur = aurait renvoye la valeur False, car la condition 
d'egalite ne reconnait pas les jokers. 
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Les donnees conditionnelles 

Les valeurs comparees doivent toujours relever de types de donnees compatibles. 
Vous pouvez comparer entre eux des nombres de n'importe quels types de donnees. Vous 
pouvez comparez entre eux des chaines ou des booleens. Mais vous ne devez jamais, 
par exemple, comparer une chaine a un nombre, car le resultat risquerait fort d'etre 
faux. 



Les donnees de types Boolean, Currency, String, Date, et les differents 
entiers ( Byte, Integer et Long) peuvent etre compares entre eux et repondre 
a une condition d'egalite. Ce n'est pas le cas des valeurs a precision simple 
ou double, comme dans sngSales = sngGoal. A cause de la f aeon dont 
Visual Basic stocke les donnees de precision, la comparaison de deux 
valeurs Single peut renvoyer un resultat d'inegalite ; en ejfet, Visual Basic 
arrondit de lui-meme les valeurs, ce qui fausse les resultats. Pour tester 
I'egalite de deux variables de precision, ilfaut soustraire I' une de V autre et 
mesurer la difference. De telles operations s'averent assez fastidieuses , 
aussi vaut-il mieux les eviter. 



Le type de donnees Variant se prete plutot bien aux comparaisons conditionnelles. Vous 
aurez sou vent a comparer la valeur d'un controle (une zone de texte, par exemple) a une 
variable ou a un litteral. Les proprietes de controles se comparent generalement comme 
des donnees Variant. Si un controle ou une variable Variant contiennent une valeur 
numerique, telle que 234.56, et que vous compariez cette valeur a une variable nume- 
rique, Visual Basic precede en convertissant provisoirement la valeur Variant en 
nombre. Si, en revanche, vous comparez un controle ou une variable Variant a une 
chaine, Visual Basic convertit provisoirement la valeur en chaine, de sorte que la compa- 
raison se fasse caractere par caractere, sur la base des codes ASCII. Ainsi, Visual Basic se 
charge des details importuns qui, autrement, rendraient delicates les comparaisons impli- 
quant un type Variant. 

Si vous comparez une valeur numerique a une valeur Variant, et que cette 
derniere ne puisse etre proprement convertie en nombre, Visual Basic gene- 
rera une erreur d 'execution. Faites attention aux donnees utilisees. Les func- 
tions internes, dont nous parlerons au Chapitre 8, permettent d'interroger 
les types de donnees. 
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Combinaison d'operateurs conditionnels 
et logiques 

Techniquement, les six operateurs conditionnels suffisent a interroger n'importe quelle 
condition. Mais on peut considerablement ameliorer leur flexibilite en les combinant 
aux operateurs logiques Visual Basic. Le Tableau 6.2 presente ces operateurs. 

Les operateurs logiques permettent de combiner plusieurs series de compa- 
raisons conditionnelles . A Vinstar de V operateur Mod, les operateurs logiques 
sont des mots cles, et non des symboles. 

Tableau 6.2 : Visual Basic supporte quatre operateurs logiques 



Operateur 


Description 


Exemple 








Resultat 


And 


Chaque terme de l'expression doit etre True 


(2 < 3) 


And 


(4 


< 5) 


True 


Or 


L'un des deux termes doit etre True 


(2 < 3 


Or 


(6 


< 7) 


True 


Xor 


Seul Fun des termes doit etre True 


(2 < 3) 


Xor 


(7 


> 4) 


False 


Not 


Nie l'expression 


Not (3 


= 3) 






False 



Les operateurs And et Or sont, de loin, les plus utilises. L' operateur Xor permet de distin- 
guer deux options s'excluant mutuellement. Ainsi, dans une situation oil une seule 
valeur doit etre True, comme lorsque l'utilisateur doit selectionner son mois de naissance, 
le resultat False d'une condition Xor indique que plus d'une option (ou aucune) a ete 
selectionnee. Enfin, l'operateur Not nie une expression True ou False. Notez que cet 
operateur doit etre utilise avec parcimonie, car il implique que Ton fasse abstraction de 
la logique en ecrivant ou en deboguant le code. 

L'expression suivante combine a des operateurs conditionnels l'operateur logique And : 

(curSales < curMinSales) And (intYrsEmp > 10) 

Si le chiffre de vente courant (curSales) est inferieur au minimum requis (curMinSales) 
et que le nombre d'annees d'anciennete (intYrsEmp) soit superieur a 10, l'expression est 
entierement True (et il y a du licenciement dans l'air !). II serait tout a fait possible de 
tester chaque condition separement, mais l'operateur And permet de regrouper le tout en 
une meme expression. 
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Partie II 




Ne combinez pas trop d' expressions conditionnelles avec des operateurs 
logiques ; votre code deviendrait confus. II convient de fragmenter les 



expressions trop complexes, telles que la suivante : 
(a > 6) And (b < 1) Or Not(1 = c) Xor (d = 4) 

L'ordre des operateurs affecte le placement et l'execution des operateurs conditionnels 
et logiques. Considerez l'expression suivante : 

curSales * sngCommission > curHighSales / 10 

Quelles operations Visual Basic traitera-t-il en premier ? Va-t-il d'abord comparer 
sngCommission a curHighSales pour ensuite multiplier le resultat par curSales, puis 
diviser ce dernier resultat par 10 ? Cela n'aurait aucun sens, puisque l'operateur > ne peut 
renvoyer de resultats que True ou False, et qu'un tel resultat ne peut etre implique dans un 
calcul mathematique. 

Le Tableau 6.3 expose l'ordre des operateurs de facon plus complete que le chapitre 
precedent. II decrit le fonctionnement conjoint des operateurs conditionnels et logiques 
contenus dans une meme expression. 



Tableau 6.3 : Ordre de preseance des operateurs mathematiques, conditionnels 
et logiques 



Priorite 


Operateur 


1 


Parentheses 


2 


3 


*, /, \, Mod 


4 


+ ,- 


5 


Operateurs conditionnels tels que Like 


6 Not 


7 


And 


8 Or 


9 


Xor 
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Afin que vos programmes soient aussi clairs que possible, placez les expres- 
sions entre parentheses ; vous eviterez ainsi toute ambiguite dans I'ordre 
des operations. Selon cette methode, ['expression presentee plus haut 
ressemblerait a ceci : 

(curSales * sngCommission) > (curHighSales / 10) 

Les instructions If 

If est l'une des commandes Visual Basic les plus utilisees. La commande If fait partie 
d'une instruction multiligne, V instruction If, dont voici le format : 

8 If condition Then 
Bloc a" instructions Visual Basic 
End If 

Ici, condition represente toute expression susceptible de renvoyer un resultat True ou 
False. II peut s'agir d'une variable Boolean, d'un controle renvoyant une valeur True 
ou False, ou d'une expression plus longue incluant des operateurs conditionnels et/ou 
logiques. 

Visual Basic supporte toujours Vancien format de If, herite du BASIC, et 
qui s'ecrit sur une seule ligne : 

If condition Then instruction 

Comme les instructions If donnent presque toujours sur plusieurs instruc- 
tions, le format multiligne est plus approprie et plus repandu. Meme dans le 
cas oil le If ne declenche qu'une seule instruction, le format multiligne est 
plus approprie, car des instructions supplementaires pourront plus facile- 
ment etre inserees. 

Faire 

Indentez. le corps de V instruction If, de sorte a reperer d'un simple coup 
d'ceil son debut et sa fin. Pour chaque instruction If, il existe, plus loin dans 
le programme, une instruction End If. Quelle que soit V indentation du 
code, une instruction End If correspond toujours a I 'instruction If la plus 
recente. 
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Sans s'en apercevoir, on emploie des instructions de type If tous les jours : 

Si (if) je recois mon cheque, alors (Then) je payerai mon loyer dans les temps. 

• Si (if) tu ranges ta chambre et (And) que tu finisses tes devoirs, alors (Then) tu sorti- 
ras jouer au foot. 

Ainsi, les instructions Visual Basic If suivent un mode de raisonnement tout a fait 
commun. Elles fonctionnent de la maniere suivante : le code contenu dans le corps de 
1' instruction ne s' execute que si et settlement si la condition est remplie. Considerez de 
nouveau les raisonnements communs exposes ci-dessus. Si et seulement si vous touchez 
votre salaire, vous pourrez payer votre loyer a temps. Si vous ne recevez pas le cheque, 
eh bien... votre proprietaire attendra. Le second raisonnement implique que deux condi- 
tions soient satisfaites : si tu ranges ta chambre et si tu finis tes devoirs, alors seulement 
tu pourras aller taper dans le ballon. 

Examinez 1' instruction If du Listing 6.1 : 



Listing 6.1 : Comparaison de donnees avec instruction If 



If (curSales > curSalesGoal) Then 

' Ce commercial explose ses objectifs 

curSalaryBonus = 10000.00 

lblSalesNote. Caption = "Objectifs exploses !' 

lblSalesNote.BackColor = Red 

lblSalesNote. FontBold = True 
End If 

1 Le code continue ici 



Si la valeur de curSales (chiffre de vente) est superieure a la valeur de curSalesGoal 
(objectifs), les quatre instructions (sans compter le commentaire) des lignes 3 a 6 
s'executent. Si la valeur est inferieure (ou meme egale, le patron est exigeant), les 
lignes 3 a 6 ne s'executent pas. Dans tous les cas, le programme se poursuit a partir de la 
ligne 8, apres que 1'instruction If a fait ce qu'elle avait a faire. Ainsi, ce sont les 
donnees qui pilotent 1'instruction If, et le programme prend une decision lors de 
l'execution. Cette decision concerne l'execution, ou non, d'une partie du code, a savoir 
le corps de 1'instruction If. 



— 1 ) Dans une instruction If, les parentheses ne sont pas necessaires autour de 
^ 0 la condition ; en revanche, elles designent clairement la condition a interro- 
ger, et en cela clarifient le code. 
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Les instructions Else 

Nous venons de decrire un format d'instruction If. Mais les programmeurs emploient 
souvent un format plus etendu, qui ressemble a cela : 

If condition Then 

Sloe d' instructions Visual Basic 
Else 

Sloe d' instructions Visual Basic 
End If 

Comme pour toutes les instructions multilignes, l'indentation du corps est recomman- 
dee, mais non obligatoire. Selon le premier format d'instruction If, le code s'executait 
si et seulement si la condition etait satisfaite ; mais rien n'indiquait au programme ce 
qu'il devait faire si la condition n'etait pas satisfaite. L' instruction Else sert justement a 
cela. Une instruction If . . . Else contient deux corps distincts : l'un qui ne s'execute 
que si la condition est True, l'autre qui ne s'execute que si la condition est False. Quelle 
que soit la condition, le reste du programme se poursuit apres que le test If . . . Else a 
ete effectue. 

Le programme du premier Projet bonus, "Controles, proprietes et evenements", se 
servait d'une instruction If . . . Else pour tester la validite du mot de passe saisi. Cette 
partie du code est reproduite dans le Listing 6.2. 



Listing 62 : Test du mot de passe par une instruction If 

1: If txtPassword.Text = "SSM" Then 

2: ' Mot de passe correct 

3: Beep 

4: Beep ' Afficher 1' image 

5: imgPassword. Picture = LoadPicturef "C: \Program FilesV 

6: & "Microsoft Visual Studio\Common\Graphics\MetaFile\ " 

7: & "Business\coins.wmf " ) 

8: lblPrompt .Caption = "Aboule le fric !" 

9: Else 

10: lblPrompt. Caption = "Mot de passe incorrect - 
Essayer encore " 

11: txtPassword.Text = Efface le mauvais mot de passe 

12: txtPassword.SetFocus ' Met le focus sur la zone 

de texte 

23: End If 



B 



La ligne 1 verifie si la zone de texte contient le bon mot de passe. Si e'est le cas, le corps 
de 1' instruction If, soit a partir de la ligne 2, s'execute. L' instruction Beep provoque 
remission d'un bip par le haut-parleur du PC ; ainsi, si le mot de passe est correct, les 
lignes 3 et 4 s'executent, et l'ordinateur fait "bip bip". Les lignes 5, 6 et 7 affichent 
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1' image, tandis que la ligne 8 modifie le contenu du label. Au terme de 1' instruction If, 
c'est-a-dire tout de suite apres la ligne End If, le programme poursuit son execution. 
Si toutefois le mot de passe saisi n'est pas le bon, et done que la condition ne soit pas 
remplie, le corps de Else s'execute (lignes 10, 11 et 12) pour indiquer a l'utilisateur que 
son mot de passe n'est pas valide. 

Comme le montre le Listing 6.3, on peut imbriquer les instructions If. 

Listing 63 : Les instructions If imbriquees permettent des comparaisons plus 
poussees 

If (curSales > 100000.00) Then 
If (intHrsWorked > 40) Then 

curBonus = 7500.00 
Else 

curBonus = 5000.00 
End If 

lblBonus .Caption = "Bon boulot !" 
End If 

Dans les instructions ainsi imbriquees, chaque Else et chaque End If renvoie toujours 
au If le plus recent. Les differents niveaux d'indentation appliques aux If imbriques 
permettent de les circonscrire de facon claire. 



Les instructions Exit 

II arrive parfois, selon les donnees, qu'une procedure (evenementielle ou autre) doive 
etre precipitamment interrompue. C'est ce que permet la combinaison des instructions 
If et Exit. 

Voici le format de l'instruction Exit : 

Exit Sub/Function/Do/For 

Les slash indiquent que seul l'un des mots cles peut suivre l'instruction Exit ; tout 
depend de ce dont on veut sortir. Pour sortir d'une procedure evenementielle (c'est-a-dire 
d'une sous-routine, comme nous l'avons vu au Chapitre4), l'instruction est Exit Sub. 
Pour sortir d'une fonction, ce serait Exit Function. Quant aux instructions Exit Do et 
Exit For, elles seront expliquees vers la fin de ce chapitre. 

Le Listing 6.4 interrompt la procedure evenementielle a la ligne 3 si la condition speci- 
fiee dans l'instruction If est satisfaite. 
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Listing 6.4 : L'instruction Exit Sub permet d'interrompre une procedure 

1: Private Sub cmdCalc () 



2: If (txtSales.Text < 50000.00) Then 

3: Exit Sub ' Interrompt la procedure 

4: Else 

5: 1 Si le chiffre de vente est au moins 

6: 1 de 50 000 F, execute l'instruction 

7: ' suivante, qui affiche le bonus comme 

8: ' pourcentage des ventes. 

9: lblBonus. Caption = txtSales.Text * .05 

10: End If 



11 : End Sub 



Instructions If... Else imbriquees 

Lorsque deux instructions If . . . Else sont imbriquees l'une dans l'autre, l'instruction 
interieure doit utiliser le mot cle Elself a la place du simple If. Voyez le Listing 6.5. 

Listing 6.5 : Le mot cle Elself permet de combiner les instructions If... Else 



1 : If (intHours <= 40) Then 

2: curOverTime =0.0 

3: ' Interroge les heures entre 40 et 50, 

4: 1 et paye les 50 % d 1 heures sup. 

5: Elself (intHours <= 50) Then 

6: curOverTime = (intHours - 40) * 1.5 * sngRate 

7: Else 

8: 1 Au-dela de 50, les heures doivent etre payees 

9: 1 doubles ; entre 40 et 50 heures, la prime 

10: 1 est de 50 %. 

11: curOverTime = ((intHours - 50) * 2 + (10 * 1.5)) 

sngRate 

12: End If 



Une instruction imbriquee est une instruction qui apparait a Vinterieur 
d'une autre. 



L'instruction Elself de la ligne 5 commence un nouveau bloc If . . . Else. La ligne 1 
verifie si le nombre d'heures travaillees (intHours) est inferieur ou egal a 40 ; si tel n'est 
pas le cas, ce nombre doit logiquement etre superieur a 40. La ligne 5 verifie si le nombre 
d'heures est inclus entre 40 et 50 (si le nombre est inferieur a 40, cette ligne ne s'execute 
pas). La prime (curOverTime) de 50 % est alors calculee pour les heures supplementaires. 
Si la condition de la ligne 5 n'est pas remplie, c'est que necessairement le nombre 
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d'heures travaillees est superieur a 50. L' expression de la ligne 11 calcule le paiement a 
200 % des heures situees au-dela de 50, et le paiement a 150 % des heures situees entre 
40 et 50. 

Ces instructions If . . . Elself . . . End If imbriquees sont-elles particulierement diffi- 
ciles a deboguer ? Certes, et cet exemple simple en est la parfaite illustration. La section 
suivante decrit les instructions Select Case, qui offrent une solution plus interessante. 



Les instructions Select Case 

L'instruction Select Case est la plus appropriee pour verifier des conditions multiples. 
L' imbrication successive de trois ou quatre instructions If . . . Else complique conside- 
rablement le programme. On aboutit a une logique discutable du genre : "Si cela est 
vrai, alors si cela est vrai, alors si cela encore est vrai, alors faire cela ou cela, sinon..." 
L'instruction Select Case vous epargne ces imbroglios inutiles. En voici le format : 

Select Case expression 
Case condition 

Bloc d' instructions 
[ Case conditionl 

Bloc d' instructions 
[ Case condition2 
Bloc d' instructions 

[ Case conditionN 

Bloc d' instructions Visual Basic] 
[Case Else 

Bloc d' instructions Visual Basic] 
End Select 

Select Case choisit entre plusieurs conditions. Le nombre de ces conditions, indique 
dans le corps [ Case condition# . . . ] , varie selon la situation. Si aucune des conditions 
n'est remplie, le corps de Case Else (s'il y en a un) s'execute. 

Malgre un format un peu deroutant, Select Case est simple d'utilisation. Examinez le 
Listing 6.6. 



Visual Basic 
Visual Basic] 
Visual Basic] 



Listing 6.6 : Les instructions Select Case comparent des valeurs multiples 



' Interrogation d'une note scolaire 
Select Case txtGrade.Text 
Case "A" 

lblAnnounce. Caption = "Tres bien" 
Case "B" 

lblAnnounce. Caption = "Bien" 
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7: 


Case "C" 




8: 


lblAnnounce. Caption = 


"Peut mieux faire 


9: 


Case "D" 




10 


lblAnnounce. Caption = 


"Mediocre" 


11 


Case "E" 




12 


lblAnnounce. Caption = 


"Mauvais" 


13 


Case Else 




14 


lblAnnounce. Caption = 


"Note non validee 


15 


End Select 





Le type de donnees de expression doit etre repris par chaque condition de 
Case. Le code du Listing 6.6 suppose que txtGrade. Text est une chaine 
contenant une lettre : en effet, c'est bien a une chaine que les lignes 3, 5, 7, 9 
et 11 comparent la valeur de txtGrade. Text. 

Si la zone de texte txtGrade. Text contient la lettre "A", le corps du Case de la ligne 3 
s'execute, et Visual Basic saute les autres conditions ; puis le code poursuit son execu- 
tion a partir de la ligne 15. Si txtGrade. Text contient la lettre "B", c'est le corps du Case 
de la ligne 5 qui s'execute, et ainsi de suite. (Ce n'est pas le cas ici, mais le corps d'un 
Case peut courir sur plusieurs lignes.) Une fois qu'une condition Case est satisfaite, 
Visual Basic execute tout le code compris jusqu'au prochain Case ; lorsque cela est 
acheve, l'instruction Select Case a fait son travail, et le programme peut continuer. 

Si, pour une raison ou pour une autre, la zone de texte renvoie autre chose que A, B, C, 
D ou E, c'est le Case Else qui s'execute et affiche dans le label un message d'erreur. 

Visual Basic supporte un autre format de Select Case, qui permet de specifier, par le mot 
cle Is, un operateur conditionnel pour chaque condition. Le Listing 6.6 reprend notre 
exemple en mettant a profit ce format. 

Listing 6.7 : Comparaisons conditionnelles dans Select Case 



1 




' Test d'une note scolaire 




2 




Select Case txtGrade. Text 




3 




Case Is >= 18 






4 




lblAnnounce 


Caption = 


"Tres bien" 


5 




Case Is >= 15 






6 




lblAnnounce 


Caption = 


"Bien" 


7 




Case Is >= 12 






8 




lblAnnounce 


Caption = 


"Peut mieux faire 


9 




Case Is >= 10 






10: 


lblAnnounce 


Caption = 


"Mediocre" 


11 : 


Case Else 






12: 


lblAnnounce 


Caption = 


"Mauvais" 


13: 


End Select 
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Ici, chaque Case implique que la note se situe entre une valeur superieure ou egale a 18 
et une valeur inferieure ou egale a 10. Notez qu'aucun test specifique n'est necessaire 
pour les notes situees en-dessous de 10 car, en deca de cette note, c'est le Case Else qui 
prend la releve. (Comme il ne s'agit que de montrer le fonctionnement de Case Else, cet 
exemple ne contient pas d'instruction de traitement d'erreur, et suppose done que la 
note entree se situe entre 0 et 20.) 



0 A Les instructions Select Case ne conviennent pas a tous les types de compa- 
raisons. Les operateurs d'inclusion ou logiques ne sont pas supportes ; les 
conditions Case ne peuvent done pas etre interrogees par And, Or, Xor, ni 
Not. Pour cela, la seule solution consiste a imbriquer des instructions 
If. . . Elself. . . End If. 



Visual Basic supporte un troisieme format de Select Case, dans lequel le mot cle To 
specifie un ordre de choix. C'est cet ordre qui determine quel corps de Case doit 
s'executer. Ce format est utilise lorsque les valeurs testees sont sequentielles (voir 
Listing 6.8). 

Listing 6.8 : Comparaisons de valeurs sequentielles dans Select Case 



1 : 


' Interrogation a" une note 


scolaire 


2: 


Select Case txtGrade.Text 




3: 


Case 0 To 9 




4: 


lblAnnounce. Caption = 


"Mauvais" 


5: 


Case 10 To 11 




6: 


lblAnnounce. Caption = 


"Mediocre" 


7: 


Case 12 To 14 




8: 


lblAnnounce. Caption = 


"Peut mieux faire 


9: 


Case 15 To 17 




10: 


lblAnnounce. Caption = 


"Bien" 


11 : 


Case Else 




12: 


lblAnnounce. Caption = 


"Tres bien" 


13: 


End Select 





Vous pouvez remarquer que l'ordre des Case est inverse par rapport aux listings prece- 
dents, en raison du format utilise. La premiere condition Case, ligne 3, teste la plage des 
notes les plus basses possible. Si la note renvoyee entre dans cette categorie, le message 
"Mauvais" s'affiche dans le label. (Pour plus de simplicity, on presuppose que l'utilisa- 
teur entre des entiers. Ainsi, une note de 9 . 5 pourrait generer une erreur.) Les plages de 
valeurs se suivent sequentiellement. Vous pouvez egalement tester, de cette fagon, des 
chaines, en partant de la plus petite (en codes ASCII cumules). 
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i — 1 On peut combiner les differents formats de Case d I'interieur d'une mime 
^5"l\J ce instruction Select Case. Void un exemple : 

Case 101, 102, 201 To 205, Is > 300 

Si {'expression specifiee dans Select Case renvoie une valeur egale a 101 , 
102, 201, 202, 203, 204, 205, ou superieure a 300, le corps de Case 
s' execute. 



Les boucles 

Votre PC est puissant. II peut traiter rapidement d'enormes quantites de donnees, telles 
que la comptabilite d'une grosse entreprise. Mais le traitement efficace de tant d'infor- 
mations exige une technique speciale : il s'agit d'integrer le code dans des boucles, 
grace auxquelles le programme analyse, et analyse encore, les donnees, jusqu' a ce que 
sortent les resultats attendus. Les boucles sont l'un des elements les plus importants de 
la programmation. 
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Une boucle est une serie d 'instructions appelees a s'executer plusieurs fois. 
L' instruction de boucle se repete tant qu'une condition predefinie n'est pas 
satisfaite. 



Les boucles nous renvoient au prochain chapitre, qui vous enseigne a recevoir de l'utili- 
sateur des entrees {input) autrement que par les zones de texte — lesquelles ne convien- 
nent pas a tous les types d' informations. II arrive souvent qu'une question simple soit 
posee a l'utilisateur, qui repond en appuyant sur Entree ; pour de telles reponses, les 
zones de texte ne sont pas ce qu'il y a de plus indique. (Les zones de texte sont parfaites 
pour les informations textuelles, telles que noms et adresses.) 

II est capital de bien comprendre les boucles avant d'aborder la question des entrees 
utilisateur : en effet, la reponse donnee n'est pas toujours celle qu'on attend. Imaginons 
que vous demandiez a l'utilisateur son age, et qu'il reponde 291. Manifestement, il y a 
une erreur. Grace aux instructions de boucle, la question peut etre reposee jusqu'a ce 
que l'utilisateur donne une reponse raisonnable. Naturellement, le programme ne pourra 
jamais determnier si l'utilisateur donne son age reel ; mais vous pouvez faire en sorte 
qu'une reponse au moins plausible soit exigee. Les boucles peuvent repeter n'importe 
quel bloc de code. 
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La boucle Do est une instruction multiligne. Comme l'instruction If, l'instruction Do 
supporte differents formats : 

Do While condition 

Bloc a" instructions Visual Basic 

Loop 
Do 

Bloc d' instructions Visual Basic 
Loop While condition 
Do Until condition 

Bloc d' instructions Visual Basic 
Loop 
Do 

Bloc d' instructions Visual Basic 
Loop Until condition 

Ici, condition peut etre une expression, un controle ou une valeur Boolean. Le choix du 
format est, avant tout, une question de preference et de style. Les points a considerer 
sont les suivants : 

• L'emplacement de la condition. Si la condition apparait au debut de la boucle, 
dans l'instruction Do, le corps peut aussi bien ne jamais s'executer. Si, en revanche, 
la condition apparait a la fin de la boucle, dans l'instruction Loop, le corps s'execu- 
tera au moins une fois, puisque la condition n'est interrogee qu'en dernier. 

• La nature de la condition. La boucle Do peut se repeter : a) tant que (while) la 
condition est remplie, b) jusqu'a ce que (Until) la condition soit remplie. Dans le 
premier cas, le corps cesse de s'executer des que la condition n'est plus remplie. 
Dans le second, le corps cesse de s'executer des que la condition est remplie. 

La Figure 6.2 montre une boucle Do et illustre le processus de repetition. Ce code se 
contente d'augmenter une valeur (affichee comme Caption du label) par increments de 
1 ; lorsque la valeur de 10 est atteinte, la boucle s'arrete. (En realite, un PC moderne 
executerait ce programme si rapidement que Ton n'aurait pas le temps de voir les 
valeurs s'afhcher. II s'agit d'un exemple.) 



Figure 6.2 

La boucle repete 

le corps d' instructions. 



Ces instructions sen 
repetent jusqu'a ceD 
que la condition^ 
interrogee renvoientD 
le resultatTrue. 



1 Demonstration des boucles Do.D 

Dim intCtr As IntegerD 

IntCtr = 1 ' Initialise le compteur.D 

DoD 

IblOut.Caption = intCtrD 
intCtr = intCtr + 1D 
Loop Until [intCtr = 10] 
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Le code de la Figure 6.2 illustre un type particulier d' affectation, dans 
lequel le mime nom de variable apparait de chaque cote de V operateur =. 
Une telle affectation ne sert, en fait, qu'd mettre a jour la valeur de la varia- 
ble. Dans ce cas precis, I 'instruction intCtr = intCtr + 1 ajoute 1 a la 
valeur de intCtr a chaque repetition de la boucle. 



Le corps du code de la Figure 6.2 s' execute dix fois, et chaque fois la valeur de la varia- 
ble intCtr est incrementee de 1 . Le format utilise ici est Do . . . Loop Until, de sorte que 
la boucle se repete jusqu'a ce que intCtr soit egal a 10. Le Listing 6.9 presente une 
boucle semblable, mais selon le format While . . . Loop. 



Listing 6.9 : L'instruction Do existe en plusieurs formats 

1 : Do While intCtr <= 10 

2: ' Cette boucle fait la meme chose 

3: ' que celle de la Figure 6.2 

4: lblOut. Caption = intCtr 

5: intCtr = intCtr + 1 

6: Loop 
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Vous devez, d'une maniere ou d'une autre, modifier la condition contenue 
dans le corps de la boucle ; autrement, la boucle s ' executerait indefiniment. 
Si d'aventure vous ecrivez une boucle sans fin, votre application se bloque 
jusqu'a ce que vous cliquiez sur le bouton Fin de Visual Basic ou sur le 
bouton de fermeture de V application . Si rien, dans le corps de la boucle, ne 
permet de modifier la condition testee, la boucle continuera de s 'executer. 



Certaines boucles, notamment les boucles impliquant une entree utilisateur, exigent que 
le corps s'execute au moins une fois ; de la decoule le choix du format de boucle. Si 
votre boucle doit s' executer au moins une fois, le format a utiliser est celui dans lequel 
la condition est interrogee a la fin de la boucle (voir Listing 6.10). 



Les exemples de codes qui suivent ne sont pas complets. Les instructions 
censees traiter les entrees utilisateur et envoy er les messages d'erreury sont 
remplacees par des commentaires . Concentrez-vous , pour I'instant, sur le 
fonctionnement des boucles. Le traitement des entrees utilisateur fera I'objet 
du prochain chapitre. 
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Listing 6.10 : L'utilisateur n'entre pas toujours des donnees valides 
du premier coup 



1 : Dim strAns As String 

2: 1 

3: ' L'utilisateur doit repondre par Oui ou Non. 

4: lblPrompt. Caption = "Continuer ? (Oui ou Non)" 

I 5: ' 

6: ' Stockage de la reponse dans la 

7: 1 variable chaine nominee strAns. 

8: 1 Test de la reponse et reiteration 

9: ' de la question si necessaire. 

10: Do While (strAns <> "Oui" And strAns <> "Non") 

11: Beep ' Avertissement 

12: lblError. Caption = "Merci de repondre par Oui ou Non" 

13: ' Stockage de la reponse dans la 

14: ' variable chaine nommee strAns (rebelote). 

15: Loop 

16: 1 Effacement du message d'erreur. 

17: lblError. Caption = Null 

La boucle Do commence a la ligne 10. Si l'utilisateur a entre Oui ou Non aux lignes 6 et 7 
(rappelez-vous que les commentaires tiennent ici lieu d' instructions de traitement), la 
boucle affiche le message d'erreur de la ligne 12. Les commentaires des lignes 13 et 14 
simulent une instruction qui recevrait de nouveau la reponse de l'utilisateur, et la 
ligne 15 renvoie la boucle a la ligne 10, qui teste de nouveau l'entree. Combien de fois 
cette boucle s'executera-t-elle ? Soit jamais (si l'utilisateur a entre Oui ou Non), soit 
jusqu'a ce que l'utilisateur reponde correctement (non mais !). 

Naturellement, la touche Verr Maj de l'utilisateur peut etre ou non 
enclenchee ; et done la reponse, etre OUI ou oui, NON ou non. Dans ce cas, 
la ligne 10 echouerait , car les deux chaines auraient des styles different s. 
II vous faudra attendre le Chapitre 8 pour apprendre a tester les chaines 
differentes. 

L'instruction Exit Do permet d'interrompre une boucle avant son denouement normal. 
Par exemple, vous traitez une serie de factures dans une boucle qui se repete jusqu'a ce 
que le dernier numero de compte client soit atteint. Si un mauvais numero de compte est 
decele par une instruction If a l'interieur de la boucle, vous pouvez interrompre la repe- 
tion par Exit Do et afneher un message d'erreur. 
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Les boucles For 

For est un autre type de boucle supporte par Visual Basic. Les boucles For executent une 
serie d' instructions, un nombre predefini de fois ou jusqu'a ce qu'une condition soit 
satisfaite. Comme celui des boucles Do, le corps des instructions For est multiligne. En 
voici le format : 

SFor intCounter = intStart To intEnd [Step intlncrement] 
Bloc d' instructions Visual Basic 
Next [intCounter] 

intCounter (compteur) est la variable numerique qui controle le corps de la boucle. 
A cette variable est affectee la valeur initiale intStart, avant la premiere iteration de la 
boucle. La valeur intStart est generalement 1, mais peut etre toute valeur numerique, 
variable ou valeur de controle que vous specifierez. Chaque fois que le corps de la 
boucle se repete, la variable intCounter change de valeur (incrementation ou decre- 
mentation) en fonction de intlncrement. Si vous ne specifiez pas de clause Step, 
l'instruction For utilise un increment (ou pas) par defaut de 1. (La clause Step n'est 
done pas obligatoire, et e'est pourquoi elle est indiquee entre crochets.) 

On entend par iteration chacun des cycles d'une boucle. Pour une boucle 
qui se repete troisfois, il y a done trois iterations. 



intEnd est un nombre, une variable ou une valeur de controle qui determine la fin de la 
boucle. Lorsque intCounter est plus grand que intEnd, la boucle cesse et le code se 
poursuit a partir de la ligne suivant l'instruction Next. L'instruction Next referme le 
corps de la boucle, et relance l'iteration. Si intCounter est plus petit que intEnd, Visual 
Basic augmente intCounter de la valeur intlncrement, et le corps de la boucle se repete 
de nouveau. (Notez qu'il n'est pas obligatoire de mentionner intCounter apres Next ; 
cela ne sert qu'a rappeler de quelle boucle For specifique l'instruction Next marque le 
terme.) 

Quoi qu'il en soit, l'instruction For est tres simple : elle ne fait rien d'autre que compter 
ou decompter, e'est-a-dire ajouter ou soustraire une valeur a une autre a chaque iteration 
de la boucle. La boucle For incremente si la valeur de Step est positive (elle Test par 
defaut), et decremente si la valeur de Step est negative. 

Dans le Listing 6.1 1 , la boucle For reprend la boucle Do du Listing 6.9. L'instruction For 
incremente automatiquement la variable compteur du label. 



163 



Listing 6.11 : Les boucles For permettent d'incrementer une variable compteur 



For intCtr = 1 to 10 

lblOut. Caption = intCtr 
Next 



Quoi de plus simple ? Cette boucle se repete dix fois. La premiere fois que s' execute la 
ligne 1, la valeur intStart (1 en l'occurrence, et valeur par defaut d'instruction Step) 
est affectee a intCtr. A la ligne 2, le corps de la boucle se sert de cette nouvelle valeur 
pour mettre a jour le label. La ligne 3 ordonne a la boucle de se repeter pour de nouveau 
incrementer intCtr de 1 , et cela jusqu'a ce que intCtr atteigne la valeur intEnd : 10. 



L' instruction suivante est equivalente a celle de la ligne 3 du Listing 6.11, 
puisque la variable n'est qu' optionnelle dans V instruction Next : 

Next intCtr 

Definir la valeur de Step 

Dans le Listing 6.12, la boucle For commence a 10 et incremente la variable de 5 
jusqu'a ce que la valeur 100 soit atteinte. 

Listing 6.12 : Boucle For avec valeur de Step positive (incrementation) 



For intCtr = 10 to 100 Step 5 

lblOut. Caption = intCtr 
Next 



Dans le Listing 6.13, la boucle For commence a 1000 et decremente la variable de 100 
jusqu'a ce que la valeur 0 soit atteinte. 

Listing 6.13 : Boucle For avec valeur de Step negative (decrementation For... Next;) 



s 



For intCtr = 1000 to 0 Step -1( 

lblOut. Caption = intCtr 
Next 



Ces quelques courts exemples demontrent bien le comportement des valeurs intStart, 
intEnd et intlncrement dans la boucle. (Si la valeur de Step est negative, intStart doit 
etre plus grand que intEnd ; autrement, le corps de la boucle ne s'executerait jamais.) 



**** 



Ne confondez pas les boucles avec les instructions If. Toutes reposent sur 
des valeurs conditionnelles ; mais, tandis que les boucles repetent leur 
corps autant defois que necessaire, le corps des instructions If ne s' execute 
qu' une fois. 
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L' instruction Exit For permet d'interrompre une boucle avant son denoue- 
ment normal. 



Boucles For imbriquees 

Comme toutes les autres instructions Visual Basic, les boucles For peuvent etre imbri- 
quees. Cela permet de repeter plusieurs fois l'ensemble d'une boucle. La Figure 6.3 
donne le schema d'une boucle For imbriquee. On pourrait dire, ici, que la boucle inte- 
rieure est plus "rapide" que la boucle exterieure. En effet, la boucle interieure incre- 
mente la variable In de 1 a 10 avant que la boucle exterieure n'ait complete sa premiere 
iteration. La boucle exterieure ne se repete qu'a partir de l'instruction Next Out, qui 
n'est pas atteinte dans le code tant que la boucle interieure n'a pas termine son cycle. 
Lorsque l'instruction Next Out est atteinte, et que la boucle exterieure se repete, la 
boucle interieure demarre de nouveau, et ainsi de suite jusqu'a la quatrieme iteration de 
la boucle exterieure. 



Figure 6.3 

La boucle exterieure 
determine le nombre 
defois que la boucle 
interieure se repete. 



Boucletl Bouclelfl 
exterieuret I interieure 
[I 



■>• For Out = 1 To 4 
->■ For In = 1 to 10 

' Ici, le bloc de code.D 

□ 

Next In 
Next Out 



' Le programme se poursuit apresD 
que la boucle exterieure se termine. 



En tout, la boucle interieure de la Figure 6.3 s'execute quarante fois. La boucle exte- 
rieure accomplit quatre iteration, et a chacune de ces iterations la boucle interieure se 
repete dix fois. 

La Figure 6.4 montre deux boucles interieures a l'interieur d'une troisieme. Les deux 
boucles interieures doivent accomplir tout leur cycle avant que la boucle exterieure ne 
puisse terminer sa premiere iteration. Lorsque la boucle exterieure attaque sa deuxieme 
iteration, les deux boucles interieures se repetent de nouveau, et ainsi de suite. 

Dans la Figure 6.4, le corps de chacune des deux boucles interieures s'execute quarante 
fois. La boucle exterieure accomplit quatre iterations, et chaque iteration execute 
d'abord la premiere, ensuite la seconde boucle interieure ; puis la boucle exterieure 
repart, etc. 
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Figure 6.4 

On peut imbriquer 
plusieurs boucles 
dans une mime 
instruction For. 



BoucleC 
exterieure 



>- For Out = 1 To 4 

For In = 1 to 10 

' lei, le bloc de code. 

Next In 



Premiered 
boucleD 
interieureD 
□ 



SecondeO 
boucleD 
interieure 



Forln2 = 1 to 10 

' lei, le bloc de code. 
Next In2 



Next Out 



' Le programme se poursuit apresD 
que la boucle exterieure se termine. 



— ' ) Faire 

Ayez garde de bien associer, dans vos boucles imbriquees , une instruction 
Next a chaque instruction For. Chaque Next renvoie au For le plus recent. 
Si le Next de la boucle interieure apparait apres le Next de la boucle 
exterieure, Visual Basic genere une erreur. Si vous ne specifiez pas de varia- 
ble pour chaque Next, Visual Basic se refere automatiquement au For le 
plus recent. Mais, en indiquant la variable, vous circonscrirez de facon plus 
claire le corps de chaque boucle, et faciliterez. d'autant la documentation du 
code. 



En resume 

Ce chapitre vous a presents les structures de controle qui permettent au code de modi- 
fier lui-meme le cours de son execution en fonction des valeurs relevees et de condi- 
tions predefinies. Grace aux operateurs conditionnels et aux instructions If, vous 
pouvez maintenant analyser les donnees et tester les variables et controles, puis reagir 
en consequence. Votre vocabulaire Visual Basic commence a serieusement s'enrichir. 
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Outre rinstruction If , Visual Basic supporte l'instruction Select Case, qui offre une solu- 
tion plus satisfaisante que l'imbrication des If. Select Case peut etre utilise sous plusieurs 
formats, selon la facon dont les differentes conditions doivent etre testees. 

Nous avons egalement decouvert que les boucles permettent de repeter plusieurs fois 
certaines sections du code. La boucle Do se repete tant qu'une condition est remplie, ou 
jusqu'a ce qu'une condition soit remplie, selon le format utilise. La boucle For se repete 
un nombre predefini de fois, ou jusqu'a ce qu'une condition soit remplie. A la difference 
de Do, la boucle For met automatiquement a jour sa variable de controle, en l'augmen- 
tant ou en la diminuant a chaque iteration. 

Le prochain chapitre vous enseigne a capter des informations a l'aide des zones 
d'entree. Vous apprendrez egalement a donner des reponses a l'utilisateur par l'interme- 
diaire des boites de messages. Zones d'entree et boites de messages constituent un 
moyen simple d'interagir avec l'utilisateur, sans passer par les controles de la feuille. 

Questions-reponses 

Q Pourquoi eviter l'operateur Not ? 

R II vaut mieux ne pas utiliser Not parce que cet operateur ne fait, dans la plupart des 
cas, que compliquer inutilement les choses. Les instructions positives sont toujours 
preferables, parce que plus faciles a comprendre. 

Considerez l'expression Not (A <= B). Ne serait-il pas plus simple de l'ecrire (A > 
B) ? II ne s'agit pas de proscrire tout a fait cet operateur, utile pour interroger un 
booleen ; par exemple : If Not(blnClearedScreen). Ce debut d'instruction If dit 
ceci : "Si l'ecran n'a pas encore ete vide (blnClearedScreen = True), alors..." En regie 
generale, il convient toutefois de renverser les expressions Not en expressions positives 
afin que le code soit plus clair. 

Q Si les instructions Do et For donnent des resultats equivalents, quelle impor- 
tance de choisir l'une ou l'autre ? 

R Cela depend entierement de vous. Le choix ne doit d'ailleurs pas seulement s'operer 
entre les boucle For et Do, mais aussi entre les divers formats de chacune. On se sert 
generalement des boucles Do pour incrementer une valeur ou pour repeter des 
instructions un nombre determine de fois. Les boucles Do, quant a elles, sont plus 
appropriees aux boucles qui doivent se repeter jusqu'a ce qu'une condition soit 
remplie. Quand il s'agit d'incrementer ou de decrementer, For est plus facile a ecrire 
et legerement plus efficace que Do. 
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Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris. II convient de comprendre 
les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trouverez 
ces reponses a 1' Annexe A. 

Quiz 

1. Quel operateur logique renvoie le resultat True si Tun ou l'autre des termes d'une 
expression est True ? 

2. Quelle est la difference entre un operateur conditionnel et un operateur logique ? 

3. Qu'est-ce qu'une boucle ? 

4. Decrivez 1' instruction d' affectation suivante : 

intTotal = intTotal - 10 

5. Combien de fois le code suivant execute-t-il l'instruction Beep ? 

intN = 0 

Do While (intN > 0) 

intN = intN + 3 

Beep 
Loop 

6. Pourquoi l'instruction Exit For doit-il faire partie d'une instruction If plutot que 
d'apparaitre pour lui-meme dans le corps de la boucle For ? 

7. Dans une instruction If . . . Else, les deux corps peuvent s'executer. Vrai ou faux ? 

8. Selon les valeurs initiale et finale, une boucle For peut ne jamais s'executer. Vrai ou 
faux ? 

9. Pourquoi imbriquer des boucles For ? 

10. Quelle est la difference entre une instruction de decision et une instruction de 
boucle ? 
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Exercices 

1 . Ecrivez une instruction If de comparaison qui verifie l'egalite de trois nombres. 

2. Chasse au bogue : Maurice n'arrive pas a "boucler". Qu'est-ce qui ne va pas dans 
son code ? 

intN = 10 
Do 

Beep 

Loop Until (intN > 100) 

3. L'horloge d'un stade de football effectue un decompte de 45 a 0 pour chaque mi- 
temps. II y a deux mi-temps. Decrivez l'activite de l'horloge a l'aide d' instructions 
Visual Basic. 

4. Visual Basic permet de combiner chaque format de Select Case dans une meme 
instruction Select Case. On peut done aligner un Case d'egalite classique, un Case 
conditionnel et un Case d'ordre sequentiel. Reecrivez le Listing 6.5 (ou Ton calcu- 
lait le paiement des heures supplementaires a l'aide d'une instruction If) sous la 
forme Select Case, en utilisant au moins deux formats de Case. 
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Chapitre 



Support avance 

du clavier et de I'ecran 

Ce chapitre vous apprend a recevoir des informations de l'utilisateur (entrees) et a lui en 
envoyer (sorties). Vous savez deja recevoir des entrees par 1' intermediate des zones de 
texte, et afhcher des messages dans des labels. Toutefois, ces controles ne se pretent pas 
toujours tres bien aux echanges de questions et de reponses lors de l'execution. Les zones 
de texte sont parfaites pour les formulaires et les espaces reserves qui accueillent le texte 
tape par l'utilisateur ; mais une interaction plus immediate est parfois requise. Au terme de 
ce chapitre, vous serez en mesure d'obtenir une telle interaction en programmant le moins 
possible. 

Voici ce que nous decouvrirons aujourd'hui : 

Les fonctions internes ; 
l La fonction MsgBox( ) ; 

Les parametres de fonction optionnels ; 

• La fonction lnputBox( ) ; 

La gestion des evenements clavier ; 

• Les cases a cocher ; 
Les boutons d'option ; 

• Comment combiner les boutons d'option en controles Frame. 
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Introduction aux fonctions internes 

Les fonctions sont un type de procedure assez proche des sous-routines, etudiees au 
Chapitre 3. Elles en different toutefois en ceci que les fonctions, au terme de 1' execution de 
leur code, envoient une valeur vers une autre partie du programme. Ce n'est qu'au chapitre 
suivant que vous apprendrez a ecrire des fonctions et a en analyser le fonctionnement. 

Pour l'heure, il s'agit de bien comprendre les fonctions internes, dont nous nous servi- 
rons dans tout ce chapitre. Une fonction interne est un peu comme une boite magi que : 
elle recoit les diverses valeurs que vous lui envoyez, et envoie en retour, ou renvoie, une 
valeur unique. La Figure 7.1 illustre le fonctionnement des fonctions. 



Figure 7.1 

La fonction regoit 
zero, une ou plusieurs 
valeurs, et renvoie 
une valeur unique. 



Zero, un ou plusieurs arguments^ 
Arguments 



Valeur 2 



Valeur 1 




Valeur 4 



Valeur 3 



Traitement.D 
analyse.D 
calcul, etc. 




Un seulO 
resultat 



La fonction 



Les fonctions internes, ou fonctions intrinseques, sont des fonctions 
integrees au langage Visual Basic, et qui effectuent une tache specifique, 
telle qu'un calcul ou une E/S. Avant d'utiliser une fonction interne, vous 
devez en connaitre le nom exact et le format. Vous ne pouvez. voir le code 
contenu dans une fonction interne car, comme son nom I'indique, elle est 
interne au langage, au meme titre qu'un mot cle comme For. 
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E/S signifie entree/sortie (en anglais, I/O pour input! output) . Par ce terme 
generique, on designe toute technique permettant de recevoir (entree) des 
informations d'un peripherique (le clavier, par exemple) et d'emettre 
(sortie) des informations vers un peripherique (I'ecran, par exemple). 



Les fonctions sont extremement utiles ; mieux vous les comprendrez, plus vous serez a 
meme d'en tirer parti. Le chapitre suivant traite la question plus a fond. Pour l'instant, 
retenez ceci : 

• En general, on applique une ou plusieurs valeurs a la fonction ; il est rare qu'une 
fonction ne requiere aucune valeur. Les valeurs appliquees a la fonction sont des 
arguments . 



Un argument est une valeur appliquee a une fonction. 



• Le nom de la fonction est toujours suivi de parentheses (sauf, exception rare, pour 
les fonctions qui ne requierent pas d' arguments). 

• Les arguments doivent etre places entre les parentheses de la fonction, et separes par 
des virgules s'il y en a plusieurs. 

Sans le savoir, vous avez deja utilise une fonction interne. (A partir de maintenant, nous 
parlerons de "fonctions" tout court.) Souvenez-vous : au Chapitre 2, vous affectiez une 
image au controle Image de la feuille. Voici la ligne de code utilisee (l'argument y a ete 
reduit a sa plus simple expression afin de ne pas alourdir l'exemple) : 

imgHappy .Picture = LoadPicture( "\Happy.bmp" ) 

Ici, le nom de la fonction est LoadPicture( ) . (Nous inclurons toujours les parentheses 
dans le noms des fonctions presentees arm de bien les distinguer des noms de variables 
et de controles.) Cette fonction n'a qu'un seul argument : une chaine. 



0>* 



Si la plupart en exigent au moins un, certaines fonctions se passent de tout 
argument. LoadPicture ( ) requiert au minimum un argument de type 
chaine ; tous les autres arguments sont optionnels . 

Vous devez toujours respecter le type et I'ordre d 'apparition des donnees 
requis pour une fonction specifique. Par exemple, une fonction peut exiger 
deux arguments , un entier suivi d'une chaine. 
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Qu'envoie ce code a la fonction LoadPicture( ) ? Une chaine contenant un nom de 
fichier. Que renvoie LoadPicture ( ) ? L' image contenue dans ce fichier. Dans le code du 
Chapitre 2, l'instruction suivante affectait cette image a la propriete Picture du controle 
Image. Sans la fonction LoadPictureO, l'image n'aurait jamais pu s'afficher a l'ecran. 
Ce que le controle Image de la feuille attend, c'est une image affectee a la propriete 
Picture — pas un chemin d'acces (a moins que vous n'ayez specifie, lors de la phase de 
conception, une image precise dont le chemin d'acces soit accessible dans la fenetre 
Proprietes, et que Visual Basic affectera automatiquement au controle). 

Lorsque vous utilisez la fonction LoadPictureO, beaucoup de choses se passent. 
D'abord, Visual Basic analyse les divers arguments appliques et s'assure de leur 
conformite, en type et en nombre, avec les exigences specifiques de la fonction. Puis 
Visual Basic s'assure que le chemin d'acces fourni pour l'image est valable. Enfin, si 
vous etes en reseau, Visual Basic s'assure ensuite que vous avez bien acces au fichier. 
Et tout cela, Visual Basic le fait pour vous, sur simple execution de la fonction 
LoadPictureO ! Voila bien tout l'interet des fonctions : elles vous epargnent du 
boulot. Elles s'occupent des details, et vous laissent vous concentrer sur le plus 
important : 1' application elle-meme. 

// existe des fonctions pour traiter les images, calculer des formules mathe- 
matiques simples, manipuler les fichiers, etc. Ce chapitre ne presente que les 
fonctions les plus simples — qui sont sans doute les plus revelatrices. Vous en 
apprendrez plus au prochain chapitre. 

La fonction MsgBoxQ 

Main tenant que vous saisissez mieux la nature des fonctions, nous pouvons examiner 
de pres la fonction MsgBox(). MsgBox() est une fonction qui affiche une boite de 
message. Comme le montre la Figure 7.2, une boite de message contient une icone, un 
message, et au moins un bouton de commande. Ce bouton de commande laisse a 
l'utilisateur le temps de prendre connaissance du message ; lorsqu'il aura fini sa 
lecture, il cliquera sur le bouton. 

Une boite de message est une petite boite de dialogue dont on se sert pour 
informer l'utilisateur a tout moment de V execution. La boite de message 
peut etre fermee , grace au bouton de commande, ainsi que deplacee ; elle ne 
peut etre redimensionnee . 
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Figure 7.2 

Lafonction MsgBox( ) 
ajfiche un message et laisse 
I'utilisateur indiquer 
qu'il afini sa lecture. 



Les arguments passes a la fonction MsgBox() determinent l'icone qui sera affichee, le 
message, et le nombre de boutons de commande. Ainsi, le programmeur controle de pres 
le message envoye a I'utilisateur. Lorsque MsgBox ( ) s'execute, elle renvoie une valeur pour 
indiquer sur quel bouton I'utilisateur a clique. Si la boite de message contient deux 
boutons, le programme interroge la valeur renvoyee par la fonction MsgBox ( ) . II peut alors 
determiner, eventuellement a l'aide d'une instruction If, la suite des operations, en se 
fondant sur la reponse de I'utilisateur. 

Les versions anterieures de Visual Basic proposaient une instruction 
MsgBox. A la difference de MsgBox ( ), MsgBox ne pouvait pas interpreter le 
clic de I'utilisateur. Bien que V instruction MsgBox soit consider ee comme 
obsolete, elle est toujours supportee pour des raisons de compatibilite . 

Voici le format de la fonction MsgBox ( ) : 

intResponse = MsgBox ( strPrompt [ , intStyle][, strTitle]) 

' ) Dans ce format, deux arguments sont optionnels : intStyle et strTitle. 

Les arguments en italique sont fictifs et ne servent qu'd presenter la 
syntaxe ; a leur place, une fonction reelle contient des litteraux, des varia- 
bles ou des arguments de controle. Nous avons quand meme inclus les 
prefixes afin d' indiquer les types de donnees requis pour les arguments . 
Comme vous le voyez, une fonction MsgBox ( ) exige toujours un argument 
chaine, les deuxieme et troisieme arguments etant optionnels et dependant 
du style de boite de message souhaite. 

intResponse indique le type de l'entier renvoye par la fonction. Le premier argument est 
une chaine (ou une chaine, ou un controle qui contient une chaine) specifiant le message 
qui s'affichera dans la boite de message. Le deuxieme argument determine le style des 
boutons. Le troisieme specifie le libelle qui apparaitra dans la barre de titre. 

Une boite de message doit proposer au moins un bouton de commande. Le programme 
doit pouvoir determiner si I'utilisateur a termine sa lecture. Lorsque la boite de message 
s'affiche, toute autre activite du programme est suspendue jusqu'a ce que I'utilisateur 



Piobleme d'impiession 



Icone 



o 



L'imprimante n'est pas prete - 



-Message 
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clique sur l'un des boutons de commande. Des que l'utilisateur clique, le code poursuit 
son execution a la ligne qui suit. 



Si le message est trop long pour tenir sur une seule ligne de la boite de 
message, Visual Basic procede automatiquement a la rupture de ligne (propre- 
ment et sans couper les mots). 

Imaginons un programme qui attend l'ordre de l'utilisateur pour imprimer un rapport. 
Le message pourrait etre le suivant : 



intResponse = MsgBox( "Cliquez pour lancer 1' impression du rapport") 

Ici, vous devez avoir declare la variable intResponse dans la section de declarations de 
la procedure (ou bien dans la section de declarations du module ; mais vous n'avez pas 
encore beaucoup d'experience dans la declaration des variables globales). A defaut de 
deuxieme argument, comme c'est le cas ici, Visual Basic affiche par defaut le bouton 
de commande OK dans la boite de message. Ainsi, puisque cette fonction MsgBox ( ) n'affi- 
che qu'un seul bouton de commande, l'affectation d'entier ne vous aide pas beaucoup. 
Mais la valeur renvoyee par la fonction pourra aussi bien etre affectee a quelque chose. 



Figure 7.3 

Les fonctions 
MsgBox( ) affichent 
au moins un bouton 
de commande. 



Nom du projet 




La Figure 7.3 montre egalement ce qui se passe si vous ne specifiez pas tous les argu- 
ments de MsgBox ( ) : Visual Basic affiche par defaut le nom du projet dans la barre de 
titre de la boite de message. II y aura toujours un nom plus approprie que celui-la ; le 
premier argument vous permet de le specifier, que nous etudierons dans quelques lignes. 

Pour un controle plus serre des boutons, vous pouvez utiliser une valeur entiere (ou une 
variable, ou un controle) pour specifier, dans le premier argument optionnel, le style des 
boutons. Avec un seul bouton, la valeur renvoyee ne sert pas a grand-chose, quoiqu'elle 
soit inevitable. Lorsque plusieurs valeurs sont en presence, la valeur renvoyee corres- 
pond au bouton sur lequel l'utilisateur a clique. Cette information peut etre reprise dans 
une instruction If ou Select Case, pour que s'executent les sections du code chargees 
de la gestion de chaque bouton. 
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Le Tableau 7.1 presentent les valeurs utilisables comme premier argument optionnel de 
MsgBox ( ) , pour specifier le style du bouton. 

Tableau 7.1 : Valeurs entieres permettant de specifier le style des boutons 



Valeur 


Constante nommee 


Description 


0 


vbOKOnly 


Bouton OK 


1 


vbOKCancel 


Boutons OK, Annuler 


2 


vbAbortRetry Ignore 


Boutons Abandonner, Reessayer, Ignorer 


3 


vbYesNoCancel 


Boutons Oui, Non, Annuler 


4 


vbYesNo 


Boutons Oui, Non 


5 


vbRetryCancel 


Boutons Reessayer, Annuler 



La Figure 7.4 montre la boite de message generee par l'instruction suivante 
intResponse = MsgBox("Pret pour 1' impression ?", 1) 



Figure 7.4 

La suite du code 
s' execute selon 
le bouton sur lequel 
I'utilisateur clique. 



Pret pout I'imptession ? 

J Annuler 



OK 



L' argument 1 specifie que les boutons OK et Annuler doivent apparaitre sur la boite de 
message. Cette combinaison est utile pour les operations que votre programme 
s'apprete a effectuer, par exemple imprinter un rapport, car I'utilisateur peut cliquer sur 
OK pour indiquer que l'imprimante est prete, ou sur Annuler pour decommander 
l'impression. 

Le Tableau 7.2 presente les valeurs que renvoie la fonction MsgBox(). La boite de 
message precedente pourrait etre geree par l'instruction If suivante (oil les details sont 
remplaces par des commentaires pour plus de simplicite) : 

8 If (intResponse = 0) Then 
' Ici, le code charge de gerer 
1 le clic sur le bouton OK. 
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Else 

' Ici, le code charge de gerer 
' le clic sur le bouton Annuler. 
End If 



Naturellement, si la boite de message affichait d'autres boutons, V instruc- 
tion If aurait a interroger des valeurs supplementaires . Pour de multiples 
valeurs renvoyees, une instruction Select Case serait probablement plus 
appropriee. 



Tableau 7.2 : Les valeurs renvoyees indiquent quels boutons ont ete cliques 



Valeur 


Constante nommee 


Description 


1 


vbOK 


L'utilisateur a clique sur OK 


2 


vbCancel 


L'utilisateur a clique sur Annuler 


3 


vbAbort 


L'utilisateur a clique sur Abandonner 


4 


vbRetry 


L'utilisateur a clique sur Reessayer 


5 


vblgnore 


L'utilisateur a clique sur Ignorer 


6 


vbYes 


L'utilisateur a clique sur Oui 


7 


vbNo 


L'utilisateur a clique sur Non 




Si l'utilisateur appuie sur la touche Echap, MsgBox() renvoie la meme 
valeur et Visual Basic reagit de la mime f aeon que s'il avait clique sur le 
bouton Annuler. 

Quel que soit le nombre de boutons affiches sur une boite de message, l'utilisateur ne 
peut cliquer que sur un seul. Des qu'il clique sur l'un des boutons, la boite de message 
se referme, et MsgBox( ) renvoie la valeur correspondante. 

Les constantes nominees 

Remarquez, aux Tableaux 7.1 et 7.2, la colonne "Constantes nominees". Visual Basic 
supporte des centaines de constantes nommees, utilisees dans les procedures a la place 
des litteraux. 
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Les constantes nommees sont des noms internes a Visual Basic, qui corres- 
pondent a des valeurs predefinies . Les constantes nommees commencent 
generalement par le prefixe vb. A la difference des variables declarees, les 
constantes nommees ne peuvent changer de valeur (d'ou le nom de constan- 
tes). Mais vous pouvez recourir aux constantes nommees comme arguments 
d'une fonction, a la place des litteraux. 

Les constantes nommees rendent les programmes plus lisibles et plus comprehensibles. 
Par exemple, les instructions suivantes sont equivalentes, mais, dans la seconde, la 
mention du bouton de commande est explicite : 



B 



intResponse = MsgBox( "Pret pour 1 ' impression ?", 1) 
intResponse = MsgBox( "Pret pour 1' impression ?", vbOK) 



Vous pouvez, dans le cours de l'ecriture, recourir aux constantes nommees sans avoir a 
consulter un manuel de reference ni l'aide en ligne, et sans avoir a memoriser des noms 
abracadabrants. Pour chaque fonction que vous utilisez, Visual Basic propose automati- 
quement une liste des constantes nommees possibles pour cette fonction. Lorsque, par la 
suite, vous maintiendrez ou modifierez votre programme, vous devinerez sans peine le 
style de la boite de message. Si, au lieu de constantes nommees, votre code presente des 
valeurs litterales, il faudra vous rememorer le sens de ces valeurs avant de modifier la 
boite de message. 

Utilisez les constantes nommees partout ou c'est possible. Elles ne 
reclament pas plus de saisie, puisque Visual Basic vous propose une liste 
contextuelle a mesure que vous entrez les arguments. 



Les boutons par defaut 

Le premier bouton d'une boite de message est toujours le bouton par defaut. Visual 
Basic met automatiquement le focus sur le premier bouton (le plus a gauche), et le 
declenche des que l'utilisateur appuie sur Entree. 

Vous pouvez intervenir sur l'ordre d'apparition des boutons sur la boite de message. II 
suffit, pour cela, d'ajouter au bouton de commande les arguments adequats (voir 
Tableau 7.3). 

En depit de leur longueur, les constantes nommees sont plus faciles a maintenir que les 
litteraux. Considerez 1' instruction suivante : 



intResponse = MsgBox("L'imprimante est-elle allumee ?", 
vbYesNoCancel + vbDef aultButtonl ) 
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Tableau 7.3 : Ces arguments permettent de specifier le bouton par defaut 



Valeur 


Constante nommee 


Description 


0 


vbDef aultButtoM 


Premier bouton par defaut 


256 


vbDefaultButton2 


Deuxieme bouton par defaut 


512 


vbDef aultButton3 


Troisieme bouton par defaut 



Quand la boite de message autorise une operation risquee, comme la 
suppression d'un fichier, il est recommande de specifier Annuler comme 
bouton par defaut. Ainsi, si I'utilisateur appuie sur Entree par erreur, le 
bouton Annuler est declenche, et V operation n'est pas effectuee ; ce qui 
aurait ete le cas si OK etait reste le bouton par defaut. 



Les icones 

En adjoignant une valeur supplementary au deuxieme argument, vous specifiez l'icone qui 
apparaitra a gauche du message. Comme nous n'avons pas encore touche a cette partie de 
l'argument, nos boites de message n'afhchaient pas d'icone. 

En verite, la fonction MsgBox( ) supporte quelques autres arguments option- 
nels. Mais, rarement utilises dans les programmes simples, Us ne seront pas 
presentes ici. 

Le Tableau 7.4 presente les constantes nominees utilisables et les icones correspondantes. 
Tableau 7.4 : Valeurs specifiant l'icone de la boite de message 



Valeur 


Constante nommee 


Description 


Icone 


16 


vbCritical 


Erreur critique 


O 


32 


vbQuestion 


Question 
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Tableau 7.4 : Valeurs specifiant l'icone de la boite de message (suite) 



Valeur 


Constante nominee 


Description 


Icone 


48 


vbExclamation 


Avertissement 


□ 


64 


vblnf ormation 


Information 





Les instructions suivantes generent une boite de message complete. Tous les arguments 
sont specifies, done tous les elements apparaissent. Le resultat est reproduit en 
Figure 7.5. 

intResponse = MsgBox("L'imprimante est-elle allumee ?", vbYesNoCancel 
+ vbQuestion + vbDefaultButton2, "Une petite question") 

Figure 7.5 

Une boite de message 
complete. 



La fonction InputBoxQ 

La fonction MsgBox ( ) permet d'envoyer des messages a l'utilisateur, et donne la possibi- 
lite a celui-ci de repondre en cliquant sur des boutons de commande. La suite du code 
s'execute en fonction du bouton selectionne. Naturellement, s'il ne s'agit que d'un 
message d' information, un seul bouton de commande est requis, pour que l'utilisateur 
puisse refermer la boite apres consultation. 

II arrive que la question a poser soit si simple, et exige une reponde si rapide, qu'un 
controle zone de texte serait absolument hors de propos. On peut alors faire appel a la 
cousine de MsgBox ( ) : lnputBox( ) . La fonction lnputBox( ) affiche une boite de message 
qui permet a l'utilisateur de repondre "dans le texte". Cette combinaison d'une boite de 
message et d'une sorte de zone de texte est appelee boite d'entree. La Figure 7.6 en 
montre un exemple. 
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Une boite d' entree est une boite de message qui inclut un champ. Dans ce 
champ, Vutilisateur peut saisir la reponse a une question qui lui est posee. 
Tout comme les boites de message, les boites d'entree sont deplacees et 
fermees, mais pas redimensionnees . Contrairement aux boites de message, en 
revanche, les bottes d'entree ne vous laissent pas le choix des boutons de 
commande. Seuls les boutons OK et Annuler apparaissent dans une boite 
d'entree. 



Figure 7.6 

La boite d'entree 

affiche un titre, 

un message 

et un champ de saisie. 



Indentite client 



uel est le nom du client ? 



Quels 

E 



Les boite d'entree n'affichent pas non plus d'icone, contrairement aux boites de 
message. Voici le format de la fonction lnputBox( ) : 

strAnswer = InputBox(strPrompt[ , strTitle][, strDefault] [ , intXpos] 
[, intYpos]) 

inputBox ( ) renvoie une valeur de type Variant, qui peut toujours etre traitee comme une 
chaine. La fonction InputBox () peut done etre affectee a une chaine, et utilisee comme 
une valeur de chaine. (Le type Variant autorise egalement l'affectation de la valeur 
renvoyee a une propriete de controle.) La chaine renvoyee est la reponse saisie par 
l'utilisateur dans le champ. Seul le premier argument est requis. Voici une description de 
tous les arguments : 

• strPrompt. Le message ou la question {prompt, en anglais) qui s'affiche dans la 
boite d'entree. La longueur maximale de strPrompt est de 1 024 caracteres. Tourner 
toujours le message ou la question de sorte que l'utilisateur sache quoi repondre. 

• strTitle. Le texte qui apparait dans la barre de titre. A defaut de titre, Visual Basic 
affiche le nom du projet. 

• strDefault. Contenu par defaut du champ de saisie. L'utilisateur peut accepter cette 
reponse par defaut, qui sera alors la valeur renvoyee ; il peut la modifier, ou saisir 
une reponse entierement nouvelle. On se sert d'une valeur par defaut lorsque la 
reponse est previsible et n'attend que d'etre validee par le bouton OK. 

• intXpos, intYpos. Coordonnees en twips de la boite d'entree. II est preferable, 
quand la question posee renvoie a d'autres feuilles ou boites de dialogue deja a 
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l'ecran, de ne pas afficher la boite d'entree par-dessus. Si vous ne specifiez pas de 
coordonnees, Visual Basic affiche par defaut la boite d'entree au centre de l'ecran. 

— 1 ) Un twip vaut 11567 de centimetre et 1/1440 de pouce. 



Voici 1' instruction qui a genere la boite d'entree de la Figure 7.6 : 

strAnswer = InputBox( "Quel est le nom du client ?", 
-•"Indentite client") 

Pour afficher une valeur par defaut et positionner la boite d'entree a un point precis de 
l'ecran, 1' instruction serait : 

strAnswer = InputBox( "Quel est le nom du client ?", 
"Indentite client", "Jean Bon", 500, 750) 

Le programme doit pouvoir determiner si l'utilisateur a clique sur OK (ou appuye sur 
Entree, OK etant le bouton par defaut) ou s'il a clique sur Annuler. Si l'utilisateur clique 
sur Annuler au lieu d'entrer une nouvelle valeur ou de valider par OK la valeur par 
defaut, la fonction inputBox ( ) renvoie une chaine nulle, c'est-a-dire " " . 

L' interrogation du resultat pourrait alors prendre la forme suivante : 

If (strAnswer <> "") Then 

' Code charge de gerer 1' entree utilisateur 
Else 

' Code charge de gerer le clic sur Annuler 
End If 



Imaginons que l'utilisateur cherche a calculer le chiffre de vente total d'un agent commer- 
cial particulier. Votre programme affiche une boite d'entree pour demander le nom de 
l'employe. Si l'utilisateur saisit le nom et valide sa reponse par OK, le code correspondant 
s'execute et calcule le chiffre de vente demande. Si, en revanche, l'utilisateur choisit 
Annuler, le programme ignore le code charge du calcul. 




Rappelez-vous que Visual Basic supporte la valeur speciale Empty, qui peut 
prendre la place de " " dans 1' instruction. Avec le mot cle Empty, le code est 
plus clair. Notre instruction If ressemblerait alors a ceci : 



If (strAnswer <> Empty) Then 
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Gestion du clavier 

Les controles et boites d'entree ne peuvent suffire a traiter toutes les entrees clavier. 
Le programme doit etre en mesure de repondre a des touches specifiques au moment oil 
l'utilisateur les frappe. Comme nous l'avons vu, Windows passe a votre programme les 
elements qui sont de son ressort afin qu'il puisse les traiter. II s'agit des evenements 
KeyPress, KeyDown et KeyUp. lis repondent a des combinaisons de touches du genre 
Alt-G ou Maj-P, ainsi qu'aux touches individuelles. Lorsqu'un evenement clavier se 
produit, ces combinaisons sont testees. 

Une fois que l'application recoit une entree clavier, elle modifie cette entree, ou bien 
1' ignore s'il ne s'agit pas de la frappe attendue. Le traitement des evenements clavier 
permettent de declencher la fermeture d'un ecran de demarrage, de valider une entree, 
de jouer a des jeux, etc. 



Les evenements clavier 

L' evenement KeyPress a lieu lorsque l'utilisateur appuie sur une quelconque touche 
parmi les suivantes : 

Lettres capitales et minuscules ; 

Chiffres ; 

Signes de ponctuation ; 
• Entree, Tab et Retour arri ere. 

L' evenement KeyPress reconnait la plupart des caracteres ASCII. Font toutefois excep- 
tion la touche de tabulation, les touches fleches et autres caracteres speciaux dont le code 
ASCII est compris entre 0 et 31. KeyPress permet de determiner avec exactitude la 
touche que l'utilisateur a frappee. Si l'utilisateur appuie sur la touche "A", KeyPress 
renvoie "A", etc. 



— 1 I L 'evenement KeyPress a lieu lorsque la touche est enfoncee. Si l'utilisateur 
laisse son doigt dessus, V evenement ne se repete que si le clavier est parametre 
en mode "refrappe". 



Un evenement, nous l'avons vu, est toujours associe a un objet tel qu'un bouton de 
commande ou une feuille. L' evenement KeyPress est associe a l'objet qui, au moment 
de la frappe, a le focus. Si aucun objet n'a le focus, KeyPress s'applique a la feuille. (La 
propriete KeyPreview induit une exception a cela, que nous expliquerons dans la section 
sur la priori te des reponses, plus loin dans ce chapitre.) 
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Les evenements clavier ne doivent pas etre utilises comme des raccourcis 
clavier pour les menus, he Createur de menus s'occupe d'attribuer les 
raccourcis clavier selon vos specifications, et gere automatiquement la 
reponse en declenchant la procedure evenementielle Click. Dans de telle s 
conditions, V interrogation des evenements clavier empecherait le programme 
de repondre aux selections de menu. 



Les procedures evenementielles KeyPress incluent toujours un argument de type 
Integer. Si vous deviez ecrire une procedure evenementielle KeyPress pour un controle 
zone de texte, voici ce que cela donnerait : 

Private Sub Text1_KeyPress (KeyAscii As Integer) 

' Ici, le code charge d ' interroger 

' et de traiter les evenements clavier. 

End Sub 

L' argument KeyAscii est un entier correspondant au code ASCII de la touche frappee. 
Vous pouvez, a l'aide d' instructions If ou Select Case, verifier qu'il s'agit bien de la 
touche attendue. 

KeyPress effectue une autre tache tres utile : changer l'entree utilisateur. A proprement 
parler, l'evenement KeyPress se produit entre le moment oil l'utilisateur frappe la touche 
et le moment oil le controle destinataire recoit la valeur. Bien entendu, cet "intermede" 
demeure imperceptible a l'execution. Ainsi, un controle zone de texte qui a le focus 
affiche immediatement le caractere correspondant a la touche frappee. Mais la procedure 
evenementielle KeyPress de ce controle peut aussi bien changer le caractere en cours de 
route, comme le montre le code suivant : 

Private Sub txtTryIt_KeyPress( KeyAscii As Integer) 

' Changer le caractere "A" en caractere "B". 

If KeyAscii = 65 Then 1 65 est le code ASCII pour "A". 
KeyAscii =66 1 66 est le code ASCII pour "B". 

End If 
End Sub 

Si le controle txtTrylt a le focus, la zone de texte accepte et affiche les caracteres que 
l'utilisateur entre au clavier — a une exception pres. Car l'instruction If change la 
valeur KeyAscii de la lettre capitale "A" (ASCII 65) en la valeur de la lettre capitale "B" 
(ASCII 66). Lorsque l'utilisateur tape "A", la zone de texte affiche "B". L'evenement 
KeyPress intercepte la frappe avant que le controle zone de texte ne recoive la valeur 
KeyAscii. 
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Recherchez, "Key Code Constants" dans I'aide en ligne de Visual Basic. Vous 
y trouverez. la liste des constantes nominees permettant d'interroger 
I'activite du clavier. On pent ainsi repondre a la touche Retour arriere en 
verifiant que KeyAscii vaut vbKeyBack, d la touche Entree avec vbKeyRe - 
turn, ou a la touche Tab avec vbKeyTab. Rappelez-vous que KeyPress ne 
peut repondre qu'a ces trois touches, ainsi qu'aux lettres, nombres et signes 
de ponctuation. Si les zones de texte reconnaissent d'autres touches (telles 
que Origine et Fin), KeyPress n'est fiable que pour Entree, Tab et Retour 
arriere. 



KeyPress permet d'interroger une vaste gamme de frappes. L'evenement KeyDown est 
plus specifique. Tout comme KeyPress, il a lieu lorsque l'utilisateur appuie sur une 
touche. Mais KeyDown offre un releve plus detaille — done un peu plus complexe — de 
I'activite du clavier. Par exemple, KeyPress renvoie une valeur ASCII differente, selon 
que l'utilisateur frappe la capitale "T" ou la minuscule "t". KeyDown renvoie la meme 
valeur pour les deux, mais il lui associe une autre valeur : e'est l'argument d'etat, qui 
indique l'etat de la touche Maj. 

L' evenement KeyDown a lieu lorsque l'utilisateur appuie sur une touche. Les 
deux evenements KeyDown et KeyPress peuvent done se produire en meme 
temps (pour une touche ASCII). 



Pour interroger une frappe ASCII, KeyPress est preferable a KeyDown, 
parce que plus simple a programmer. 



Voici les lignes d'encadrement d'une procedure evenementielle KeyDown : 
Private Sub txtTryIt_KeyDown(KeyCode As Integer, Shift As Integer) 

' Ici, le code de gestion du clavier. 
End Sub 

KeyCode represente la touche frappee, tandis que l'argument Shift determine l'etat de la 
touche Maj (qui peut aussi bien etre Ctrl ou Alt). KeyCode renvoie toujours l'equivalent 
en lettre capitale de la touche frappee. Ainsi, meme si l'utilisateur entre un "t" minus- 
cule, l'argument KeyCode vaudra 84 (code ASCII de la capitale "T"). 



*0 



Ilfaut se montrer tres vigilant avec KeyDown, car lefait que le style soit ignore 
peut entrainer des confusions. Pour la frappe d'une touche numerique, par 
exemple, l'argument Shift doit imperativement etre interroge. Selon que 
l'utilisateur ait ou non enfonce la touche Maj (ce qu' indique l'argument 
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Shift), le caractere a afficher sera le chiffre de la touche, ou le caractere 
secondaire inscrit en dessous du chiffre (par exemple, "9" avec Maj, "p" sans 
Maj). 



L'avantage principal de KeyDown sur KeyPress est que, tout Shift mis a part, KeyDown 
peut interroger n'importe quelle frappe incluant les touches fleches, Origine, Fin, etc. 
Nous vous invitons de nouveau a consulter l'aide en ligne de Visual Basic au sujet des 
constantes nominees relatives au clavier. 

Vetat de shift indique si une touche de controle (Maj, Ctrl, Alt, ou aucune des trois) a 
ete frappee en meme temps qu'une autre. Le modele binaire interne de l'argument Shift 
determine l'etat de shift. Pour interroger l'etat de shift, vous devez utiliser l'operateur 
And avec la valeur 7. (Ce type particulier de And est dit binaire — bitwise, en anglais — , 
par opposition a l'operateur logique And classique, qui precede a des comparaison.) Le 
Listing 7.1 donne un exemple d' interrogation de l'etat de shift. 



Listing 7.1 : Code pour tester l'etat de shift 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 
Dim intShiftState As Integer 
intShiftState = Shift And 7 1 "And" binaire 
Select Case intShiftState 



Case 1 








1 Code 


pour 


les 


combinaisons Maj 


Case 2 








1 Code 


pour 


les 


combinaisons Ctrl 


Case 3 








1 Code 


pour 


les 


combinaisons Alt 


Case 4 








1 Code 


pour 


les 


combinaisons Maj -Ctrl 


Case 5 








1 Code 


pour 


les 


combinaisons Maj -Alt 


Case 6 








1 Code 


pour 


les 


combinaisons Ctrl-Alt 


Case 7 








1 Code 


pour 


les 


combinaisons Maj -Ctrl-Alt 


End Select 






Sub 









L'evenement KeyUp a lieu lorsque l'utilisateur relache la touche frappee. Pour verifier la 
relache d'une touche specifique (comme la touche A, si l'utilisateur relache la "moitie" 
de la combinaison Maj-A), il faut interroger les arguments passes a KeyUp(). KeyUp a 
done lieu apres les evenements KeyDown et KeyPress. 
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Le code suivant montre la procedure evenementielle d'une zone de texte. II s'agit de 
convertir les lettres minuscules entrees par l'utilisateur en lettres capitales : 



Private Sub txtTry_KeyPress(KeyAscii As Integer) 
' Convertir les minuscules en capitales 
If (KeyAscii >= 97) And (KeyAscii <= 122) Then 

KeyAscii = KeyAscii - 32 1 Passage en capitales 
End If 

End Sub 



Comme vous pourrez le verifier a 1' Annexe C, la plage de valeurs ASCII des lettres 
minuscules va de 97 ("a") a 122 ("z"). La difference de valeur ASCII entre une lettre 
capitale donnee et son equivalent minuscule est de 32. Ainsi, dans notre code, la proce- 
dure evenementielle KeyPress recoit la valeur ASCII de chaque lettre minuscule tapee, 
et lui soustrait 32 pour obtenir la capitale correspondante. 



N'utilisez pas les evenements clavier pour ecrire vos propres routines Maske- 
dEdit. Contentez-vous d'appuyer sur Ctrl-T pour ajouter a la Boite a outils 
le contrdle Microsoft Masked Edit Control 6.0. (Le Chapitre 9 explique plus 
en detail comment Von ajoute des outils a la Boite a outils.) Le contrdle 
MaskEdit permet de creer des masques de saisie, tels que des champs de 
numeros de telephone dans lesquels les tirets s'affichent automatiquement. 
Essayez d' ecrire vos propres routines a cet effet, ce serait reinventer la roue, 
et gaspiller un temps precieux. 



L'instruction SendKeys 

L' instruction SendKeys permet d'envoyer des frappes clavier depuis le code, exactement 
comme si l'utilisateur appuyait sur les touches. Par exemple, SendKeys est utile pour 
controler le placement du curseur texte dans une zone de texte : il suffit de "simuler" la 
frappe des touches Origine ou Fin. Voici la syntaxe de SendKeys : 

SendKeys strKeystrokes[ , blnWait] 

strKeystrokes sera un litteral chaine, tel que "Gibolin SARL", dans les cas ou vous 
entrez les valeurs a la place de l'utilisateur. L' option blnWait est generalement omise. II 
s'agit d'un booleen qui, s'il renvoie False (valeur par defaut si blnWait est omis), 
s' assure que le controle revient a la procedure en execution des que les frappes sont 
recues. Si blnWait est True, le systeme traite les frappes avant de poursuivre l'execution 
du code, de sorte que les evenements clavier sont actifs pendant la frappe. 
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Dans une instruction SendKeys, il faut entourer d'accolades ({ et }) les caracteres 
suivants : %+,%,- (tilde) et les parentheses. Ainsi, pour envoyer via SendKeys la chaine 
7 + 6, il faudrait ecrire : 

SendKeys "7 {+} 6" 

Les touches de fonction et les touches speciales, comme Origine, doivent etre envoy ees 
par SendKeys et entre accolades. Par exemple, pour envoyer au programme 1' equivalent 
d'une frappe sur la touche Origine, vous devrez utiliser le litteral {Home}, comme suit : 

SendKeys "{Home}" 

Recherchez SendKeys dans l'aide en ligne de Visual Basic pour connaitre les constantes 
nominees affectees a chaque touche speciale. 



SendKeys ne permet pas d' envoyer la touche Impr ecran. 



Priorite des reponses 



Lorsque l'utilisateur appuie sur une touche, la feuille ou le controle qui a le focus recoit la 
frappe. Si aucun controle n'a le focus, c'est la feuille qui capte l'evenement clavier. Si, en 
revanche, un controle a le focus, l'evenement peut lui etre envoye comme a la feuille, selon 
la specification de la propriete KeyPreview de la feuille. 

Si sa propriete KeyPreview est True, la feuille recoit l'evenement clavier. Si done vous 
avez ecrit deux procedures evenementielles f rmAcct_KeyDown( ) et txtEntry 
_KeyDown(), et que la propriete KeyPreview de la feuille soit True, f rmAcct_KeyDown( ) 
s'execute lorsque l'utilisateur appuie sur une touche. Si la propriete KeyPreview de la 
feuille est False, c'est txtEntry_KeyDown( ) qui s'execute (si tant est que la zone de 
texte txtEntry ait le focus a ce moment-la). 



Controles supplementaires 

Boites de message et boites d'entree offrent un moyen commode d'envoyer et de 
recevoir des informations, par 1' intermediate de fenetres qui s'ouvrent et se ferment a 
volonte. Les boites de message et d'entree forment un complement interessant aux 
labels et zones de texte, parce qu'elles affichent et recueillent les entrees d'une maniere 
differente. 
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II vous reste a decouvrir d'autres controles, qui permettent de recevoir des entrees et 
laissent a l'utilisateur plusieurs choix. Ce sera l'objet de la suite du chapitre. Au terme de 
votre lecture, vous serez en mesure d'integrer a vos applications plusieurs nouveaux 
controles. 



Les cases a cocher 

La case a cocher propose une option a l'utilisateur. Une case a cocher peut apparaitre 
seule ou au milieu d'autres cases a cocher. Lorsque l'utilisateur clique dessus, la case se 
coche pour indiquer que l'option est selectionnee. Si l'utilisateur clique de nouveau sur la 
case, l'option est deselectionnee et la coche disparait. 



0& 



Une case a cocher (check box, en anglais) est une option proposee sur la 
feuille. La case est cochee lorsque l'option est selectionnee, decochee 
lorsque l'option est deselectionnee . Les cases a cocher offrent a l'utilisateur 
le choix entre deux valeurs possibles : True/False, Enabled/Disabled, etc. 



Une case a cocher est soit cochee, soit decochee. Value est la propriete du controle Check- 
Box qui determine l'etat de la case. Si la propriete Value vaut 1 , l'option est selectionnee 
et la case est cochee. Si Value vaut 0, l'option est deselectionnee et la case decochee. 



0* 



Les valeurs 1 ou 0 de la propriete Value correspondent respectivement d des 
valeurs True ou False pour un mime controle case a cocher. Si vous attendez 
de l'utilisateur qu'il reponde par oui ou non, inutile de luifournir une case a 
cocher pour chaque reponse. D'ailleurs, les cases a cocher servent plus a indi- 
quer qu'une option est selectionnee qu'd donner une reponse oui ou non. La 
Figure 7.7 represente une feuille contenant trois cases a cocher. Chaque 
controle peut etre coche ou decoche, selon les selections de l'utilisateur et selon 
les valeurs par defaut de la propriete Value, specifiees par le programmeur 
lors de la conception . 



En affectant un raccourci clavier (tel que Alt-G) a la propriete Caption de la 
case a cocher, vous permettez a l'utilisateur de selectionner ou de deselec- 
tionner l'option a partir du clavier. 



L'etat d'une case a cocher peut etre interroge par une instruction If du format suivant 

If (chkUnder. Value = 1) Then 

' Code change de genen l'etat "coche" 
Else 

' Code change de genen l'etat "decoche" 
End If 
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Figure 7.7 

Les cases a cocher 
offrent a I'utilisateur 
le choix entre diver ses 
options. 



ControlesD 
caseEL 
a cocher 



Hilare or de cvmbales a des poinqs irrites 



r~ llalique 



Cliquez sur les cases a cocher 
poui modifier la mise en forme 
du texte. 




Controle qui a le focus 



Rappelez-vous que votre feuille peut contenir plusieurs cases a cocher. II est possible, 
par une programmation fasti dieuse, de faire en sorte qu'une seule case soit cochee a la 
fois. Mais Visual Basic dispose d'un moyen plus simple et plus efficace pour offrir des 
options mutuellement exclusives. C'est ce que nous allons maintenant decouvrir. 



Les boutons d'option 



Les boutons d'option donnent a I'utilisateur la possibilite de choisir parmi plusieurs 
options. A 1' inverse des cases a cocher, en revanche, un seul bouton d'option peut etre 
selectionne a la fois. La Figure 7.8 montre une feuille contenant trois boutons d'option, 
dont un seul est selectionne. Si I'utilisateur clique sur un bouton d'option, Visual Basic 
deselectionne automatiquement tous les autres. 



Figure 7.8 

Les boutons d'option 
offrent un choix 
unique parmi 
plusieurs options. 



Exemple de boutons d'option 



Boutons d'options 



(• iRougei 



Option selectionnee 
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i — i Un bouton d 'option ne permet a Vutilisateur de choisir qu'une seule option 
a la fois. Les boutons d 'option sont parfois nommes "boutons radio", par 
' ' analogie avec le systeme de boutons des anciens autoradios. 



La procedure evenementielle Form_Load( ) vous permet de definir, a l'execution, la 
propriete Value de tous les boutons comme False. Lorsque la feuille s'affiche, aucun 
des boutons d'option ne sera selectionne. Mais, des que l'utilisateur clique sur un 
bouton d'option, ce bouton reste selectionne jusqu'a ce que l'utilisateur en selectionne 
un autre. Si vous affectez un raccourci clavier a la propriete Caption des boutons 
d'option, l'utilisateur pourra selectionner l'option correspondante sans se servir de la 
souris. 



Ne placez, jamais un bouton d'option tout seul sur une feuille , car ce bouton, 
unefois selectionne, ne pourrait plus etre deselectionne . 



Le controle Frame et les groupes d'options 

L'utilisateur peut selectionner plusieurs boutons d'option a la fois sur une meme feuille, 
a condition que ces boutons resident dans des zones separees, appelees frames. Les 
frames regroupent les boutons d'option. 



Le frame, parfois dit controle conteneur, regroupe des controles dans une zone 
distincte de la feuille elle-meme. Vous pouvez ainsi proposer dans une meme 
fenetre plusieurs jeux de boutons d'option, chaque jeu etant bien circonscrit 
dans son frame. Les frames ne s'appliquent pas, d'ailleurs, qu'aux boutons 
d'option ; Us peuvent recevoir tous les types de controles que vous voudrez. 
regrouper. 

La Figure 7.9 montre une feuille dont deux boutons d'option sont selectionnes. Cela 
n'est possible que parce que la feuille contient d'un cote trois boutons, de l'autre un 
frame avec deux autres boutons. Sans le frame, un seul des cinq boutons d'option 
pourrait etre selectionne. 



Faire 

N'hesitez pas a placer sur la feuille autant de frames que necessaire afin 
d'offrir differentes categories d'options dans une meme fenetre. 
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Figure 7.9 

En placant un frame 
sur lafeuille, 
vous permettez 
a Vutilisateur 
de selectionner 
un bouton dans 
chaque groupe. 



*i Exemple de boutons d'option 



■/□us avez selectionne un 486 sou:;; Windows 95 



C Pentium Pro 



Systeme d'exploitation 
C Windows 95 
C Windows NT 



Frame 



Selectionnez un processeur et 
un systeme d'exploitation 



Les frames sont tres faciles a creer. Voici les proprietes utiles a cet effet : 

• BorderStyle. Les deux valeurs possibles sont 0-None et 1 -Fixed single. Comme 
pour la plupart des proprietes de ce type, vous pouvez affecter les valeurs 0 ou 1 au 
moyen d' instructions d'affectation, a l'execution, ou bien specifier une valeur par 
defaut dans la fenetre Proprietes, lors de la conception. Avec la valeur 0, le frame ne 
presentera pas de bordure ni de libelle, et la separation d'avec le reste de la feuille 
sera done invisible. Un frame sans bordure reste un frame, et les boutons d'option 
qu'il contient restent independants des autres boutons d'option de la feuille ; mais 
l'utilisateur eprouvera quelque difficulte a discerner les differents groupes. 

Caption. Definit le libelle qui apparaitra en haut du frame. 

Font. Definit les attributs de police du contenu de Caption. 

Avant d'attaquer le chapitre suivant, nous vous proposons un troisieme Projet bonus, 
"Entrees utilisateur et logique conditionnelle". Ce projet vous invite a creer une applica- 
tion complete, incluant notamment des boutons d'option regroupes en frame. Vous 
apprendrez ainsi a disposer proprement les frames sur la feuille, et a y integrer les divers 
boutons d'option. En effet, pour que Visual Basic reconnaisse que les boutons d'option 
font partie du frame et non de la feuille elle-meme, vous devez les placer par-dessus le 
frame. 
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En resume 

Ce chapitre vous a presents les fonctions internes. Vous en decouvrirez de nouvelles en 
progressant dans cet ouvrage. II suffit d'appeler les fonctions, de leur appliquer des argu- 
ments et de traiter les valeurs renvoyees pour effectuer des operations complexes sans 
avoir a ecrire de codes fastidieux. 

La fonction MsgBox ( ) permet d'adresser des messages a l'utilisateur par le biais de petites 
fenetres. En guise de reponse, l'utilisateur ne peut que cliquer sur un bouton de 
commande. Les boites de message permettent notamment de demander l'avis de l'utilisa- 
teur avant d'effectuer une operation quelconque ; pour decommander l'operation, il lui 
suffit de cliquer sur Annuler. La oil la fonction MsgBox () se contente d'afficher des 
messages, la fonction lnputBox() permet de poser des questions a l'utilisateur et de 
recevoir des reponses dans une meme fenetre. 

Le programme peut egalement obtenir des informations de l'utilisateur par le biais 
d'autres controles, tels que les cases a cocher ou les boutons d' option (lesquels peuvent 
etre regroupes en frames). Le code s' execute en fonction des options selectionnees par 
l'utilisateur. 

Le prochain chapitre pousse un peu plus loin l'etude de la structure des programmes 
Visual Basic. Vous approfondirez la notion de variables locales et globales, et 
decouvrirez a peu pres toutes les fonctions internes que vous pouvez utiliser. 



Questions-reponses 

Q Pourquoi une fonction interne ne peut-elle renvoyer plus d'une valeur ? 

R On pourrait dire que la fonction interne devient sa valeur renvoyee. Une fonction 
interne marc he comme une expression : elle produit une valeur, et une seule. On 
passe a la fonction interne une valeur ou un ensemble de valeurs qu'elle doit traiter 
ou combiner d'une facon ou d'une autre. La valeur renvoyee est le resultat de ce 
traitement ou de cette combinaison. Par exemple, la fonction recoit un argument 
chaine qui specifie le chemin d'acces d'une image ; la valeur renvoyee n'est autre 
que cette image elle-meme, qui pourra etre affectee a un controle ou a une propriete 
graphique. 

De par leur nature, les fonctions internes peuvent etre utilisees partout ou peuvent 
etre utilisees les valeurs qu'elles renvoient. Ainsi, plutot que d'afficher un litteral 
chaine ou une variable dans une boite de message, vous pouvez appeler une fonction 
lnputBox( ) en lieu et place de la chaine a afficher. En procedant ainsi, vous imbri- 
quez une fonction dans une autre. La fonction interieure, lnputBox( ) , s'execute en 
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premier et obtient une chaine de l'utilisateur ; puis MsgBox ( ) s'execute a son tour et 
affiche la chaine recue dans une boite de message. Voici un exemple : 

intResp = MsgBox(InputBox( "Quel est votre nom ?")) 

Quand aurez-vous a imbriquer une fonction lnputBox() dans une fonction 
MsgBox ( ) ? Peut-etre jamais. Mais cette instruction d'affectation montre bien que la 
fonction interne, ici lnputBox(), "devient" en quelque sorte sa valeur renvoyee, et 
peut etre immediatement utilisee comme telle dans le code. 

Q Quelles sont les autres fonctions internes disponibles ? 

R Des fonctions internes sont disponibles pour traiter des nombres, des chaines, et 
autres types de donnees. Vous les decouvrirez dans le chapitre suivant, "Sous-routines 
et fonctions". 



Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront la mise en pratique de ce que vous avez appris. II convient de 
comprendre les reponses au quiz et aux exercices avant de passer au chapitre suivant. 
Vous trouverez ces reponses a 1' Annexe A. 



Quiz 

1 . Quelle est la difference entre un argument et une fonction interne ? 

2. On peut specifier le bouton par defaut d'une boite de message. Vrai ou faux ? 

3 . Quel mot cle est equivalent a la chaine nulle " " ? 

4. Les Tableau 7.1 , 7.2 et 7.3 decrivent trois arguments differents qui peuvent etre utili- 
ses avec la fonction MsgBox ( ) . Vrai ou faux ? 

5. Qu'apparait-il par defaut dans la barre de titre des boites de message et d'entree si 
vous ne specifiez pas l'argument correspondant ? 

6. Quelle est la difference essentielle entre une case a cocher et un bouton d'option ? 

7. On peut afficher des boutons d'option sur une feuille sans qu'un seul ne soit 
selectionne. Vrai ou faux ? 
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8. 
9. 
10. 



Quelle valeur de propriete determine si une case a cocher est selectionnee ou non ? 
Quelle valeur de propriete determine si un bouton d'option est selectionne ou non ? 
Pourquoi est-il parfois necessaire d'inclure des boutons d'option dans un frame ? 



Exercices 

1. Decrivez de quelle facon le code parvient a determiner si l'utilisateur a saisi une 
valeur dans une boite d'entree (ou accepte la valeur par defaut), ou s'il a clique sur 
le bouton Annuler. 

2. Ecrivez la fonction MsgBox() necessaire pour generer la boite de message de la 
Figure 7.10. 



Figure 7.10 

Comment generer 
cette boite de message ? 



L'irnprimante n'a plus de papier 
Abandon I |; Reessayer : | Ignorer 



3. Ecrivez une procedure evenementielle de bouton de commande qui demande a 
l'utilisateur sa ville puis son departement, cela dans deux boites d'entree separees. 
Ensuite, concatenez les deux chaines renvoyees en intercalant une virgule et une 
espace entre les deux. Enfin, affichez la chaine resultante dans une boite de message. 

4. Creez une feuille contenant cinq boutons d'option, destines a simuler de veritables 
"boutons radio". A chaque bouton, attribuez un libelle figurant le nom d'une de vos 
cinq stations de radio preferees. Ecrivez une procedure evenementielle pour chaque 
controle, de sorte que la selection d'un bouton d'option provoque l'affichage d'une 
boite de message qui decrive (style de musique, etc.) la radio en question. 
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Entrees utilisateur 

et logique conditionnelle 

Ce Projet bonus met en pratique les differents controles que nous avons etudies, ainsi 
que la gestion des reponses utilisateur. L' application que vous allez creer inclura des 
cases a cocher, des boutons d'option et des frames. 

Tout cela va naturellement demander un peu de programmation. En fait, ce Projet bonus 
contient plus de code que vous n'en avez encore vu. Voici les objectifs de l'application : 

• Proposer une serie de cases a cocher qui permettent a l'utilisateur de choisir un ou 
plusieurs pays, et d'afficher les drapeaux correspondants. 

• Proposer les pays, mais avec, cette fois, des boutons d'option, de sorte que l'utilisa- 
teur ne puisse selectionner qu'un seul pays a la fois. 

• Generer un avertissement, sous forme de boite de message, quand l'utilisateur 
n'entre pas 1' information demandee. 

• Ajouter aux boutons d'option des pays un second jeu de boutons d'option, par 
lesquels l'utilisateur choisit d'afficher les drapeaux dans un grand ou un petit 
format. 

En plus de mettre en ceuvre ces differents controles, l'application introduit un nouveau 
concept : plusieurs feuilles dans un meme projet. En tout, trois feuilles distinctes seront 
creees. Vous apprendrez ainsi a charger et a afficher une feuille specifique a un moment 
donne de 1' execution. 
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Comme ce sera le cas de beaucoup de programmes dans cet ouvrage, cette 
application utilise lesfichiers graphiques livres avec Visual Basic. Selon vos 
options d' installation, vous ne trouverez peut-etre pas le sous-dossier 
Graphics dans le dossier Visual Basic de votre disque. Si c'est le cas, il 
faudra modifier les chemins d'acces utilises dans V application et travailler 
directement sur le premier CD-ROM de Visual Basic. Pour copier les 
fichiers graphiques sur votre disque, inserez ce mime CD-ROM et choisissez. 
Ajouterl Modifier des options. 



Creation de la premiere feuille 

La Figure PB3.1 montre la premiere feuille que vous allez creer. 



Figure PB3.1 

Dans cette feuille, 
I'utilisateur choisit 
le type d'affichage 
des drapeaux. 



i Selection du diapeau 



EE 




prapeaux 

C Casesacochei 
C Boutons d'options 



Le Tableau PB3.1 detaille les proprietes des elements de la feuille. 
Tableau PB3.1 : Proprietes des controles de la premiere feuille 



Contrdle 


Propriete 


Valeur 


Feuille 


Caption 


Selection du drapeau 


Feuille 


Name 


f rmSelect 


Feuille 


Height 


4035 


Feuille 


Width 


6390 


Label 


Name 


lblFlags 
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Tableau PB3.1 : Proprietes des controles de la premiere feuille (suite) 



Controle 


Propriete 


Valeur 


Label 


BorderStyle 


1 -Fixed Single 


Label 


Caption 


Drapeaux 


Label 


Font 


MS Sans Serif 


Label 


Font Size 


24 


Label 


Font Style 


Bold 


Label 


Height 


615 


Label 


Left 


2000 


Label 


Top 


600 


Label 


Width 


2300 


Bouton d'option 1 


Name 


optCheck 


Bouton d'option 1 


Caption 


&Cases a cocher 


Bouton d'option 1 


Left 


2280 


Bouton d'option 1 


Top 


1920 


Bouton d'option 1 


Width 


1575 


Bouton d'option 2 


Name 


optOption 


Bouton d'option 2 


Caption 


SBoutons d 1 options 


Bouton d'option 2 


Left 


2280 


Bouton d'option 2 


Top 


2520 


Bouton d'option 2 


Width 


1695 


Bouton de commande 1 


Name 


cmdSelect 


Bouton de commande 1 


Caption 


Continue&r 


Bouton de commande 1 


Left 


4560 


Bouton de commande 1 


Top 


2040 
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Tableau PB3.1 : Proprietes des controles de la premiere feuille (suite) 



Controle 


Propriete 


Valeur 


Bouton de commande 2 


Name 


cmdExit 


Bouton de commande 2 


Caption 


&Quitter 


Bouton de commande 2 


Left 


4560 


Bouton de commande 2 


Top 


2760 



Le code requis pour cette feuille est simple, mais il met en ceuvre un nouveau concept. 
Cecode, donne au Listing PB3.1, implique le chargement d'une feuille distincte de 
celle qui est affichee. 

Listing PB3.1 : Reception du choix de l'utilisateur par les boutons d'option 

1: Private Sub cmdSelect_Click() 

2: ' Verifier 1' absence d'erreur puis afficher 

3: ' la feuille selon les choix de l'utilisateur. 

4: Dim strMsg As String ' Valeur renvoyee par la boite de message 

5: If ( (optCheck. Value = False) And (optOption. Value = False)) Then 

6: strMsg = MsgBox("Vous devez selectionner une option", 

vbCritical, "Erreur I") 

7: Elself (optCheck. Value = True) Then 

8: f rmFlagsCheck.Show ' Option cases a cocher. 

9: Else 

10: f rmFlagsOpt .Show 1 Option boutons d'option. 

11: End If 

12: End Sub 
13: 

14: Private Sub Form_Load() 

15: ' Deselectionner tous les boutons d'option. 

16: optCheck. Value = False 

17: optOption .Value = False 

18: End Sub 

19: Private Sub cmdExit_Click( ) 

20: ' fermer le programme. 

21: End 

22: End Sub 
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Analyse de la premiere feuille 

Les lignes 14 a 18 determinent ce qui se passe lorsque l'application demarre et que la 
premiere feuille se charge. (La boite de dialogue obtenue par le menu Projet, Proprietes 
devrait indiquer la feuille f rmSelect comme objet de demarrage.) Les lignes 16 et 17 defi- 
nissent les boutons d'option comme False, ce qui oblige l'utilisateur a en selectionner un. 

L' instruction conditionnelle de la ligne 5 determine si l'utilisateur a clique sur le bouton 
de commande Continuer sans avoir selectionne de bouton d'option. Si la propriete 
Value des deux boutons d'option est encore False lorsque l'utilisateur clique sur Conti- 
nuer, la ligne 6 prend le relais et affiche un message d'erreur. 

Si l'utilisateur a bien selectionne l'un des boutons d'option, les lignes 7 a 9 determinent 
de quel bouton il s'agit, et affichent la feuille correspondante. Notez le libelle de 
l'instruction utilisee : f rmFlagsCheck . Show. Plutot qu'a une commande, cela ferait plutot 
penser a une sorte de valeur de propriete qui s'appellerait Show. Toutefois, il n'existe 
aucune valeur de propriete Show pour les feuilles. Show est, en fait, une methode, c'est-a- 
dire non pas une commande Visual Basic classique (comme Next), mais une commande 
applicable uniquement a un objet specifique. En l'occurrence, cet objet est la feuille 
f rmFlagsCheck. La methode Show affiche toute feuille a laquelle elle est appliquee. 
Resultat : des que les lignes 8 ou 10 s'executent, la feuille correspondante s'affiche en 
haut de la feuille de selection. 

Creation de la deuxieme feuille 

La Figure PB3.2 montre la feuille que nous allons creer. 

La feuille affiche les noms de six pays, et six drapeaux peuvent apparaitre a cote des 
noms. II va falloir creer une nouvelle feuille et l'ajouter au projet courant. Voici 
comment vous allez proceder : 

1 . Cliquez du bouton droit dans la fenetre Projet. 

2. Dans le menu contextuel, selectionnez Ajouter, puis Feuille. Visual Basic affiche une 
boite de dialogue a onglets, dans laquelle vous pouvez generer une nouvelle feuille 
ou choisir une feuille existante. 

3. Double-cliquez sur l'icone Form pour generer une nouvelle feuille. La feuille s'affi- 
che dans la zone d'edition de la fenetre Feuilles. 

Le Tableau PB3.2 detaille les proprietes des elements de la feuille. Rappelez-vous que 
l'application fait appel aux fichiers graphiques et que, s'ils n'ont pas ete installes, il faudra le 
faire ou modifier les chemins d'acces affectes aux proprietes Picture. 
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Figure PB3.2 nX^^^^^^^^^^^^^^^^HZZO 

L'utilisateur 



selectionne le pays 
dont il veut afficher 
le drapeau. 




Tableau PB3.2 : Proprietes des controles de la deuxieme feuille 



Contrdle 


Propriete 


Valeur 


Feuille 


Name 


f rmFlagsCheck 


Feuille 


Caption 


Drapeaux 


Feuille 


Height 


7035 


Feuille 


Width 


7710 


Case a cocher 1 


Name 


chkEngland 


Case a cocher 1 


Caption 


Grande -&Bretagne 


Case a cocher 1 


Left 


2835 


Case a cocher 1 


Top 


420 


Case a cocher 2 


Name 


chkltaly 


Case a cocher 2 


Caption 


&ltalie 


Case a cocher 2 


Height 


495 


Case a cocher 2 


Left 


2835 
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Tableau PB3.2 : Proprietes des controles de la deuxieme feuille (suite) 



Contrdle 


Propriete 


Valeur 


Case a cocher 2 


Top 


1155 


Case a cocher 2 


Width 


1215 


Case a cocher 3 


Name 


chkSpain 


Case a cocher 3 


Caption 


&Espagne 


Case a cocher 3 


Height 


495 


Case a cocher 3 


Left 


2835 


Case a cocher 3 


Top 


1905 


Case a cocher 3 


Width 


1215 


Case a cocher 4 


Name 


chkMexico 


Case a cocher 4 


Caption 


&Mexique 


Case a cocher 4 


Height 


495 


Case a cocher 4 


Left 


2835 


Case a cocher 4 


Top 


2595 


Case a cocher 4 


Width 


1215 


Case a cocher 5 


Name 


chkFrance 


Case a cocher 5 


Caption 


&France 


Case a cocher 5 


Height 


495 


Case a cocher 5 


Left 


2835 


Case a cocher 5 


Top 


3375 


Case a cocher 5 


Width 


1215 


Case a cocher 7 


Name 


chkUSA 


Case a cocher 7 


Caption 


&USA 


Case a cocher 7 


Height 


495 
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Tableau PB3.2 : Proprietes des controles de la deuxieme feuille (suite) 



Contrdle 


Propriete 


Valeur 


Case a cocher 7 


Left 


2865 


Case a cocher 7 


Top 


4140 


Case a cocher 7 


Width 


1215 


Image 1 


Name 


imgEngland 


Image 1 


Height 


480 


Image 1 


Left 


4440 


Image 1 


Picture 


\Program Files\Microsof t Visual 

St udio\ Common \ Graphics \ Icons \ Flags \Flaguk 


Image 1 


Top 


480 


Image 1 


Visible 


False 


Image 2 


Name 


imgltaly 


Image 2 


Height 


480 


Image 2 


Left 


4440 


Image 2 


Picture 


\Program Files\Microsof t Visual 

St udio\ Common \ Graphics \ Icons \ Flags \Flgitaly 


Image 2 


Top 


1155 


Image 2 


Visible 


False 


Image 3 


Name 


imgSpain 


Image 3 


Height 


480 


Image 3 


Left 


4440 


Image 3 


Picture 


\Program Files\Microsof t Visual 

St udio\ Common \ Graphics \ Icons \ Flags \Flgspain 


Image 3 


Top 


1890 


Image 3 


Visible 


False 


Image 4 


Name 


imgMexico 
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Tableau PB3.2 : Proprietes des controles de la deuxieme feuille (suite) 



Contrdle 


Propriete 


Valeur 


Image 4 


Height 


480 


Image 4 


Left 


4440 


Image 4 


Picture 


\Program Files\Microsof t Visual 

St udio\ Common \Graphics\ Icons \ Flags \Flgmex 


Image 4 


Top 


2520 


Image 4 


Visible 


False 


Image 5 


Name 


imgFrance 


Image 5 


Height 


480 


Image 5 


Left 


4440 


Image 5 


Picture 


\Program Files\Microsof t Visual 

St udio\ Common \ Graphics \ Icons \ Flags \Flgf ran 


Image 5 


Top 


3315 


Image 5 


Visible 


False 


Image 6 


Name 


imgUSA 


Image 6 


Height 


480 


Image 6 


Left 


4440 


Image 6 


Picture 


\Program Files\Microsof t Visual 

St udio\ Common \ Graphics \ Icons \ Flags \Flgusa02 


Image 6 


Top 


4080 


Image 6 


Visible 


False 


Bouton de commande 


Name 


cmdReturn 


Bouton de commande 


Caption 


&Revenir a la selection 


Bouton de commande 


Left 


5520 


Bouton de commande 


Top 


5040 
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II faut maintenant ajouter le code a la feuille. Double-cliquez sur la feuille f rmFlags- 

Check et integrez le code du Listing PB3.2. Cette nouvelle feuille devra afficher le 
drapeau correspondant a chaque pays coche par l'utilisateur. II s'agit done d'associer a 
chaque case a cocher une procedure evenementielle Click. 

Listing PB3.2 : Affichage des drapeaux pour chaque case cochee 

1: Private Sub chkEngland_Click( ) 

2: ' Case cochee = drapeau affiche. 

3: If chkEngland. Value = 1 Then 

4: imgEngland. Visible = True 

5: Else 

6: imgEngland. Visible = False 

7: End If 

8: End Sub 

9: Private Sub chkItaly_Click( ) 

10: 1 Case cochee = drapeau affiche. 

11 : If chkltaly. Value = 1 Then 

12: imgltaly .Visible = True 

13: Else 

14: imgltaly. Visible = False 

15: End If 

16: End Sub 

17: Private Sub chkSpain_Click( ) 

18: 1 Case cochee = drapeau affiche. 

19: If chkSpain. Value = 1 Then 

20: imgSpain. Visible = True 

21 : Else 

22: imgSpain. Visible = False 

23: End If 

24: End Sub 

25: Private Sub chkMexico_Click( ) 

I 26: ' Case cochee = drapeau affiche. 

27: If chkMexico. Value = 1 Then 

i 28: imgMexico. Visible = True 

29: Else 

30: imgMexico. Visible = False 

31 : End If 

32: End Sub 

33: Private Sub chkFrance_Click( ) 

34: 1 Case cochee = drapeau affiche. 

35: If chkFrance. Value = 1 Then 

, 36: imgFrance. Visible = True 

37: Else 

38: imgFrance. Visible = False 

, 39: End If 

40: End Sub 

41: Private Sub chkUSA_Click( ) 

42: ' Case cochee = drapeau affiche. 

43: If chkUSA. Value = 1 Then 
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44: imgUSA. Visible = True 

45: Else 

46: imgUSA. Visible = False 

47: End If 

48: End Sub 

49: Private Sub cmdReturn_Click( ) 

50: ' Retour a la feuille de selection. 

51: f rmFlagsCheck.Hide 

52: frmSelect.Show 

53: End Sub 



Analyse de la deuxieme feuille 

Les procedures evenementielles des six cases a cocher sont identiques. Des chemins 
d'acces ont deja ete affectes a la propriete Picture de chaque controle image, lors de la 
creation de la feuille. Pour afficher l'image, la procedure evenementielle n'a done plus 
qu'a definir comme True les diverses proprietes Visible. Reste un probleme : que se 
passera-t-il si l'utilisateur clique de nouveau sur une case, deselectionnant ainsi 
l'option ? Le code doit etre en mesure de desactiver raffichage de l'image correspon- 
dante. 

Les lignes 3 a 7 illustrent bien le fonctionnement des procedures evenementielles. 
La ligne 3 interroge la propriete Value de la case a cocher. Si la valeur de cette propriete 
est 1 , l'utilisateur a coche la case, et le code doit afficher l'image. Si la valeur est 0, la 
case a ete decochee, et le code doit masquer l'image (ce que fait la ligne 6). 

Enfin, la procedure evenementielle Click du bouton de commande effectue deux opera- 
tions, aux lignes 51 et 52. La ligne 51 contient une nouvelle methode, Hide, qui cache la 
feuille a laquelle elle est appliquee. (Hide a done l'effet inverse de Show.) La ligne 51 
cache la feuille des cases a cocher, tandis que la 52 affiche de nouveau la feuille de 
demarrage. 



Creation de la troisieme feuille 

La Figure PB3.3 montre la feuille que nous allons creer. Le drapeau pourra etre grand 
ou petit, selon l'option selectionnee par l'utilisateur. 

La feuille presente un bouton d'option pour chacun des six noms de pays, et le drapeau 
du pays selectionne s'affiche a cote du nom. Enfin, trois boutons d'option regroupes 
dans un frame permettent de definir la taille du drapeau. 
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Figure PB3.3 

Cette feuille permet 
a Vutilisateur 
d'ajficher un drapeau 
a lafois et de definir 
la taille du drapeau. 



MB 



C Grande-Bretagne 
P |ta§ 
C Espagne 
C Mexique 
C France 



Taille du drapeau 
C Grand 
C Petit 



Revenir a la 
selection 



Drapeau de grande taille 



,0^ 



Pour ajouter les boutons d option au frame, ilfaut dessiner les boutons par- 
dessus le frame. Si vous vous contentez de double-cliquer sur Voutil 
OptionButton de la Boite a outils, le bouton d' option apparaitra au centre de 
la feuille, et Visual Basic ne le considerera pas comme une partie du frame. 
Pour que vos boutons d'option soient bien circonscrits au frame, il faut 
commencer par cliquer unefois sur Voutil, puis dessiner le contour du bouton 
sur le frame ; et ainsi, pour chaque bouton a ajouter. C'est a cette seule condi- 
tion que les boutons d'option seront reconnus comme integres au frame, et 
distincts des autres boutons d'option de la feuille. 

De nouveau, il faut creer une nouvelle feuille et 1' ajouter au projet en cours. Une fois 
que vous avez ajoute cette troisieme et derniere feuille, integrez les elements detailles au 
Tableau PB3.3. 
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Tableau PB3.3 : Proprietes des controles de la troisieme feuille 



Controle 


Propriete 


Valeur 


Feuille 


Name 


f rmFlagsOpt 


Feuille 


Caption 


Drapeaux 


Feuille 


Height 


7335 


Feuille 


Width 


8955 


Bouton d' option 1 


Name 


optEngland 


Bouton d' option 1 


Caption 


Grande-&Bretagne 


Bouton d'option 1 


Height 


495 


Bouton d'option 1 


Left 


2760 


Bouton d'option 1 


Top 


360 


Bouton d'option 1 


Value 


True 


Bouton d'option 1 


Width 


1215 


Bouton d'option 2 


Name 


optltaly 


Bouton d'option 2 


Caption 


SJtalie 


Bouton d'option 2 


Height 


495 


Bouton d'option 2 


Left 


2760 


Bouton d'option 2 


Top 


1080 


Bouton d'option 2 


Width 


1215 


Bouton d'option 3 


Name 


optSpain 


Bouton d'option 3 


Caption 


&Espagne 


Bouton d'option 3 


Height 


495 


Bouton d'option 3 


Left 


2760 


Bouton d'option 3 


Top 


1800 


Bouton d'option 3 


Width 


1215 
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Tableau PB3.3 : Proprietes des controles de la troisieme feuille (suite) 



Controle 


Propriete 


Valeur 


Bouton d'option 4 


Name 


optMexico 


Bouton d'option 4 


Caption 


&Mexique 


Bouton d'option 4 


Height 


495 


Bouton d'option 4 


Left 


2760 


Bouton d'option 4 


Top 


2520 


Bouton d'option 4 


Width 


1215 


Bouton d'option 5 


Name 


optFrance 


Bouton d'option 5 


Caption 


&France 


Bouton d'option 5 


Height 


495 


Bouton d'option 5 


Left 


2760 


Bouton d'option 5 


Top 


3240 


Bouton d'option 5 


Width 


1215 


Bouton d'option 6 


Name 


optUSA 


Bouton d'option 6 


Caption 


&USA 


Bouton d'option 6 


Height 


495 


Bouton d'option 6 


Left 


2760 


Bouton d'option 6 


Top 


3960 


Bouton d'option 6 


Width 


1215 


Frame 


Name 


f raSize 


Frame 


Caption 


Taille du drapeau 


Frame 


Height 


1215 


Frame 


Left 


1320 


Frame 


Top 


5040 
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Tableau PB3.3 : Proprietes des controles de la troisieme feuille (suite) 



Controle 


Propriete 


Valeur 


Frame 


Width 


1575 


Frame, option 1 


Name 


optLarge 


Frame, option 1 


Caption 


&Grand 


Frame, option 1 


Height 


255 


Frame, option 1 


Left 


360 


Frame, option 1 


Top 


360 


Frame, option 1 


Width 


1095 


Frame, option 2 


Name 


optSmall 


Frame, option 2 


Caption 


&Petit 


Frame, option 2 


Height 


255 


Frame, option 2 


Left 


360 


Frame, option 2 


Top 


720 


Frame, option 2 


Width 


1095 


Image 1 


Name 


imgEngland 


Image 1 


Height 


480 


Image 1 


Left 


5280 


Image 1 


Picture 


\Program Files\Microsof t Visual Studio 
\Common\Graphics\ Icons \ Flags \Flguk 


Image 1 


Stretch 


True 


Image 1 


Top 


2160 


Image 1 


Visible 


True 


Image 2 


Name 


imgltaly 


Image 2 


Height 


480 


Image 2 


Left 


5280 
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Tableau PB3.3 : Proprietes des controles de la troisieme feuille (suite) 



Controle 


Propriete 


Valeur 


Image 2 


Picture 


\Program Files\Microsof t Visual Studio 
\Common\Graphics\ Icons \ Flags \Flgitaly 


Image 2 


Stretch 


True 


Image 2 


Top 


2160 


Image 2 


Visible 


False 


Image 3 


Name 


imgSpain 


Image 3 


Height 


480 


Image 3 


Left 


5280 


Image 3 


Picture 


\Program Files\Microsof t Visual Studio 
\Common\Graphics\ Icons \ Flags \Flgspain 


Image 3 


Stretch 


True 


Image 3 


Top 


2160 


Image 3 


Visible 


False 


Image 4 


Name 


imgMexico 


Image 4 


Height 


480 


Image 4 


Left 


5280 


Image 4 


Picture 


\Program Files\Microsof t Visual Studio 
\ Common \Graphics\ I cons \ Flags \ Fig \Flgmex 


Image 4 


Stretch 


True 


Image 4 


Top 


2160 


Image 4 


Visible 


False 


Image 5 


Name 


imgFrance 


Image 5 


Height 


480 


Image 5 


Left 


5280 


Image 5 


Picture 


\Program Files\Microsof t Visual Studio 
\Common \Graphics\ Icons \ Flags \Flgf ran 
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Tableau PB3.3 : Proprietes des controles de la troisieme feuille (suite) 



Controle 


Propriete 


Valeur 


Image 5 


Stretch 


True 


Image 5 


Top 


2160 


Image 5 


Visible 


False 


Image 6 


Name 


imgUSA 


Image 6 


Height 


480 


Image 6 


Left 


5280 


Image 6 


Picture 


\Program Files\Microsof t Visua Studio 
\ Common \Graphics\ Icons \ Flags \Flgusa02 


Image 6 


Stretch 


True 


Image 6 


Top 


2160 


Image 6 


Visible 


False 


Bouton de commande 


Name 


cmdReturn 


Bouton de commande 


Caption 


&Revenir a la selection 


Bouton de commande 


Height 


495 


Bouton de commande 


Left 


4920 


Bouton de commande 


Top 


5400 


Bouton de commande 


Width 


1215 



Le Listing PB3.3 fournit le code pour la troisieme feuille. Comme vous pouvez le consta- 
ter, il y a de la longueur ! Mais ce code, en realite, consiste principalement en la repetition 
de six routines semblables, pour chacun des boutons d' option. 

Listing PB3.3 : Affichage du drapeau selon le bouton d'option selectionne 

1: Private Sub optEngland_Click( ) 



2: ' Bouton selectionne = drapeau affiche. 

3: If optSmall. Value = True Then 
4: imgEngland. Height = 480 

5: imgEngland. Width = 480 

6: Else ' Grande taille. 
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Listing PB3.3 : Affichage du drapeau selon le bouton d'option selectionne (suite) 



7: imgEngland. Height = 2800 

8: imgEngland. Width = 2800 

9: End If 

10: imgEngland. Visible = True 

11: ' Masquer les autres drapeaux. 

12: imgltaly .Visible = False 

13: imgSpain .Visible = False 

14: imgMexico. Visible = False 

15: imgFrance. Visible = False 

16: imgUSA. Visible = False 

17: End Sub 

18: Private Sub optItaly_Click( ) 

19: ' Bouton selectionne = drapeau affiche. 

20: If optSmall. Value = True Then 

21: imgltaly. Height = 480 

22: imgltaly. Width = 480 

23: Else 1 Grande taille. 

24: imgltaly. Height = 2800 

25: imgltaly. Width = 2800 

26: End If 

27: imgltaly .Visible = True 

28: ' Masquer les autres drapeaux. 

29: imgEngland. Visible = False 

30: imgSpain. Visible = False 

31: imgMexico. Visible = False 

32: imgFrance. Visible = False 

33: imgUSA. Visible = False 

34: End Sub 

35: Private Sub optSpain_Click( ) 

36: ' Bouton selectionne = drapeau affiche. 

37: If optSmall. Value = True Then 

38: imgSpain. Height = 480 

39: imgSpain. Width = 480 

40: Else ' Grande taille 

41: imgSpain. Height = 2800 

42: imgSpain. Width = 2800 

43: End If 

44: imgSpain .Visible = True 

45: ' Masquer les autres drapeaux. 

46: imgltaly .Visible = False 

47: imgEngland. Visible = False 

48: imgMexico. Visible = False 

49: imgFrance. Visible = False 

50: imgUSA. Visible = False 

51 : End Sub 

52: Private Sub optMexico_Click( ) 

53: 1 Bouton selectionne = drapeau affiche. 

54: If optSmall. Value = True Then 

55: imgMexico. Height = 480 

56: imgMexico. Width = 480 
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57: Else 1 Grande taille 

58: imgMexico. Height = 2800 

59: imgMexico. Width = 2800 

60: End If 

61: imgMexico. Visible = True 

62: ' Masquer les autres drapeaux. 

63: imgltaly .Visible = False 

64: imgSpain .Visible = False 

65: imgEngland. Visible = False 

66: imgFrance. Visible = False 

67: imgUSA. Visible = False 

68: End Sub 

69: Private Sub optFrance_Click( ) 

70: ' Bouton selectionne = drapeau affiche. 

71: If optSmall. Value = True Then 

72: imgFrance. Height = 480 

73: imgFrance. Width = 480 

74: Else 1 Grande taille 

75: imgFrance. Height = 2800 

76: imgFrance. Width = 2800 

77: End If 

78: imgFrance. Visible = True 

79: ' Masquer les autres drapeaux. 

80: imgltaly .Visible = False 

81: imgSpain .Visible = False 

82: imgMexico. Visible = False 

83: imgEngland. Visible = False 

84: imgUSA. Visible = False 

85: End Sub 

86: Private Sub optUSA_Click( ) 

87: ' Bouton selectionne = drapeau affiche. 

88: If optSmall. Value = True Then 

89: imgUSA. Height = 480 

90: imgUSA. Width = 480 

91 : Else ' Grande taille 

92: imgUSA. Height = 2800 

93: imgUSA. Width = 2800 

94: End If 

95: imgUSA. Visible = True 

96: ' Masquer les autres drapeaux. 

97: imgltaly .Visible = False 

98: imgSpain .Visible = False 

99: imgMexico. Visible = False 

100: imgFrance. Visible = False 

101: imgEngland. Visible = False 

102: End Sub 

103: Private Sub cmdReturn_Click( ) 

104: ' Retour a la feuille de selection. 

105: f rmFlagsOpt.Hide 

106: frmSelect.Show 

107: End Sub 

108: Private Sub optSmall_Click( ) 
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Listing PB3.3 : Affichage du drapeau selon le bouton d'option selectionne (suite) 

109: 1 Masquer tous les drapeaux affiches. 

110: ' Les drapeaux seront maintenant petits. 

111: imgEngland. Visible = False 

112: imgltaly. Visible = False 

113: imgSpain. Visible = False 

114: imgMexico. Visible = False 

115: imgFrance. Visible = False 

116: imgUSA. Visible = False 

117: 1 Deselectionner tous les boutons d'option 

118: optEngland. Value = False 

119: optltaly. Value = False 

120: optSpain. Value = False 

121: optMexico. Value = False 

122: optFrance. Value = False 

123: optUSA. Value = False 

124: End Sub 

125: Private Sub optLarge_Click( ) 

126: 1 Masquer tous les drapeaux affiches. 

127: ' Les drapeaux seront maintenant petits. 

128: imgEngland. Visible = False 

129: imgltaly .Visible = False 

130: imgSpain. Visible = False 

131: imgMexico. Visible = False 

132: imgFrance. Visible = False 

133: imgUSA. Visible = False 

134: 1 Deselectionner tous les boutons d'option 

135: optEngland. Value = False 

136: optltaly. Value = False 

137: optSpain. Value = False 

138: optMexico. Value = False 

139: optFrance. Value = False 

140: optUSA. Value = False 

141 : End Sub 



Analyse de la troisieme feuille 

Le code est virtuellement identique pour la plupart des procedures evenementielles, seul 
le nom du pays change. Examinez la premiere procedure, lignes 1 a 17. Le code verifie 
d'abord quel bouton d'option a ete selectionne (ligne 3). Si c'est le bouton d'option 
"petite taille", les proprietes Height et Width du controle sont reglees a 480 twips 
(lignes 4 et 5). Si c'est le bouton d'option "grande taille" qui a ete selectionne, Height et 
Width sont reglees a 2800 twips (lignes 7 et 8). 

Le reste de la procedure evenementielle affiche simplement le drapeau du pays 
selectionne, en definissant la propriete Visible comme True (ligne 10) et en desactivant 
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l'affichage des autres drapeaux (lignes 12 a 16). Les cinq procedures evenementielles 
suivantes (lignes 18 a 102) font de meme pour chaque drapeau selectionnable. 

A la ligne 103 commence une courte procedure evenementielle qui fonctionne comme 
la procedure du module des cases a cocher. Elle cache la feuille des boutons d'option et 
affiche de nouveau la feuille de selection, dans laquelle l'utilisateur pourra faire un autre 
choix ou quitter le programme. 

Aux lignes 108 et 125 commencent des procedures evenementielles identiques qui 
desactivent l'affichage de tous les drapeaux. Bien sur, un seul drapeau etait visible ; 
mais, au lieu de rechercher celui qui est affiche pour definir sa propriete Visible comme 
False, le code definit comme False la propriete Visible de tous les controles image. 
Meme si cinq sur six ont deja la valeur False, on s'assure ainsi qu'aucun drapeau ne 
sera visible. 

En cliquant sur l'un des boutons d'option qui reglent la taille des drapeaux, on cache done 
tous les drapeaux affiches ; cela arm que le drapeau choisi apparaisse dans l'une ou l'autre 
taille, selon la selection de l'utilisateur. On pourrait reecrire l'application de sorte que le 
code change directement la taille du drapeau affiche, mais ce projet deviendrait encore plus 
long — et vous en avez deja assez comme ca ! 

Voila une application bien assommante ! Le code est repetitif — la meme 
section repetee deux fois pour chacun des six boutons d'option et cases a 
cocher. Avant le terme de cet apprentissage, vous saurez, rationaliser les 
codes de ce genre. Quand plusieurs controles similaires apparaissent sur 
une feuille, et qu'ils ont tous un comportement a peu pres identique, on peut 
faire appel aux groupes de controles, qui raccourcissent le code et enfacili- 
tent la maintenance. 
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Vous etes au terme de la premiere partie. Vous pouvez etre fier, car vous etes en passe de 
devenir un authentique programmeur Visual Basic. 

Comme vous l'avez compris, la programmation en Visual Basic implique bien plus que la 
simple maitrise du langage. D'une certaine maniere, le langage de programmation lui- 
meme est secondaire. Creer une application Windows en Visual Basic, c'est surtout 
disposer des controles sur la feuille, puis regler les proprietes qui en definiront le compor- 
tement. 

Voici ce que nous avons etudie dans ces sept chapitres : 

• L'historique de Visual Basic. Visual Basic descend du langage BASIC 
(Chapitre 1). 

• La maintenance du programme. Un programme clair et concis sera plus facile a 
modifier et a deboguer (Chapitre 1). 

• La structure du programme. Les controles reagissent aux evenements selon les 
proprietes que vous avez definies (Chapitre 1). 

• L'assistant Creation d'applications. Visual Basic cree pour vous l'ossature du 
programme. Vous n'avez plus qu'a ajouter les details (Chapitre 1). 

• L'environnement Visual Basic. L'environnement Visual Basic inclut toutes les fene- 
tres et barres d'outils requises pour programmer les applications Windows 
(Chapitre 2). 

La fenetre Presentation des feuilles. Vous pouvez regler la disposition des feuilles 
sur votre ecran (Chapitre 2). 

• L'Aide en ligne Visual Basic. Visual Basic fournit toute l'aide en ligne necessaire. 
Si vous avez installe MSDN, vous pouvez consulter, depuis Visual Basic, une 
immense source d' informations (Chapitre 2). 
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• Creer des applications. Plutot que de passer par 1' assistant Creation cf applications, 
vous pouvez creer votre application a partir d'une feuille vierge et ajouter vous- 
meme tout le code (Chapitre 2). 

• Les valeurs de proprietes. Les proprietes des controles se definissent facilement, 
surtout dans la fenetre Proprietes (Chapitre 2). 

• Le controle label. Les labels permettent d'afficher du texte sur la feuille 
(Chapitre 3). 

• Le controle zone de texte. Les zones de texte permettent a l'utilisateur de saisir des 
informations (Chapitre 3). 

• Le controle bouton de commande. Les boutons de commande permettent a l'utili- 
sateur de declencher lui-meme certaines actions (Chapitre 3). 

• Les menus. Visual Basic vous permet d'integrer a vos applications les barres et 
options de menu standards de Windows (Chapitre 4). 

• Le Createur de menus. Le Createur de menus est une boite de dialogue qui permet 
de creer rapidement un systeme de menus (Chapitre 4) . 

• Les evenements de menu. Les options de menu declenchent des evenements Click 
qui sont faciles a programmer (Chapitre 4). 

• La fenetre Code. Les outils d'edition de la fenetre Code vous assistent dans vos 
taches d'ecriture (Chapitre 5). 

Les donnees. Visual Basic supporte plusieurs types de donnees : nombres, 
chaines, etc. (Chapitre 5). 

• Les variables. Les variables permettent de stocker des valeurs et des resultats 
(Chapitre 5). 

Les operateurs. Les operateurs effectuent des operations mathematiques et des 
traitements de donnees (Chapitre 5). 

• L'ordre de preseance des operateurs. Visual Basic calcule les expressions mathe- 
matiques selon un ordre strict de priorites (Chapitre 5) . 

• Les operateurs conditionnels. En analysant des resultats, les operateurs conditionnels 
permettent au programme de prendre des decisions (Chapitre 6). 

• Les instructions conditionnelles. Les instructions if et Select Case se servent des 
operateurs conditionnels pour orienter l'execution du programme (Chapitre 6). 

• Les boucles. Les boucles permettent de repeter plusieurs fois une section de code 
(Chapitre 6). 
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• La gestion du clavier. Des evenements specifiques permettent au programme de 
traiter le clavier de maniere adequate(Chapitre 7) . 

• Le controle case a cocher. Les cases a cocher offent a l'utilisateur un moyen simple 
de selectionner des options (Chapitre 7) . 

Le controle bouton d'option. Les boutons d'option permettent egalement de faire 
des selections, mais mutuellement exclusives (Chapitre 7). 

• Le controle frame. Les frames permettent de regrouper des boutons d'option qui 
forment des lors un ensemble distinct des autres boutons d'option de la feuille 
(Chapitre 7). 
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Comme vous avez pu le constater dans la Partie I, la programmation en Visual Basic est 
quelque chose de facile et meme d'amusant parfois. Alors que les programmeurs 
d'avant Visual Basic devaient definir et configurer "a la main" les moindres elements 
du programme, vous pouvez laisser a Visual Basic ces details et vous concentrer sur les 
imperatifs specifiques de votre application. Dans cette Partie H, vous avancerez un peu 
plus vers la maitrise de Visual Basic et travaillerez done sur des applications un peu plus 
complexes. 

Au terme des chapitres qui suivent, vous maitriserez a peu pres tout ce que vous devrez 
savoir du langage de programmation Visual Basic. Au Chapitre 9 notamment, vous 
decouvrirez comment les nombreuses fonctions internes de Visual Basic vous epargnent 
une partie du codage. Vous pouvez ainsi remettre a Visual Basic le soin d'effectuer certains 
calculs et certaines manipulations. 

Toutefois, cette partie ne parlera pas que de code. Vous apprendrez a integrer a vos 
programmes des boites de dialogue standards, afin d'offrir a vos utilisateurs une inter- 
face familiere pour l'ouverture de fichiers ou l'impression. Vos applications n'en seront 
que plus attray antes. 

Dans la Partie I, vous avez appris a interagir avec l'utilisateur par le biais des controles 
affiches a l'ecran. Cette Partie II vous fera decouvrir de nouvelles techniques 
d' interaction : repondre aux touches du clavier, aux clics et double-clics, aux operations 
de glisser-deposer... Vous serez ainsi en mesure de satisfaire a toutes les attentes et a 
toutes les intuitions de l'utilisateur. 

Mais ce n'est pas tout de recevoir des donnees — encore faut-il en envoyer a l'utilisa- 
teur. Vous decouvrirez done les techniques d'ecriture de fichiers et d'impression. Enfin, 
au Chapitre 14, vous apprendrez a integrer image et multimedia a vos applications. 
Grace aux controles, aux proprietes, aux evenements et aux methodes Visual Basic, 
vous creerez des applications pleinement interactives et dynamiques... sans vous tuer a 
l'ouvrage ! 
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Chapitre 



Sous-routines 
et fonctions 



Ce chapitre explique la structure et le fonctionnement des applications Visual Basic 
complexes, contenant de multiples modules et procedures. Dans de telles applications 
extensives, les donnees doivent etre partagees entre plusieurs procedures et modules ; il 
faut, pour cela, declarer convenablement les variables, et ecrire le code de telle sorte que 
ces variables soient accessibles a plusieurs procedures. 

Vous allez done ecrire de nombreuses procedures, mais egalement faire appel aux fonctions 
internes pour analyser et traiter des chaines, des nombres et d'autres types de donnees. Ce 
chapitre presente toutes les fonctions internes dont vous aurez besoin en situation reelle. 

Voici ce que nous decouvrirons aujourd'hui : 

• la structure des programmes ; 
les procedures generates ; 

• la portee des variables ; 
les listes d'arguments ; 
les fonctions numeriques ; 

les fonctions d'analyse de donnees ; 

• les fonctions de manipulation de chaines ; 

• les fonctions de date et d'heure. 
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Questions de structures 

Vous avez deja une bonne idee du fonctionnement interne des programmes Visual Basic. 
Lorsque l'utilisateur interagit avec les controles, des evenements ont lieu. Si l'applica- 
tion contient les procedures evenementielles adaptees a ces controles et a ces evene- 
ments, le programme reagit. Le code d'un programme Visual Basic est, pour le 
principal, constitue d'une section de declarations, suivie d'une longue serie de procedu- 
res evenementielles. 

Rappelez-vous qu'a chaque feuille correspond un module de feuille qui 
contient le code de la feuille et de ses controles. Lorsqu' une feuille est affichee 
dans la zone d' edition de lafenetre Feuilles, on affiche le code correspondant 
en cliquant sur le bouton Code de lafenetre Projet. 

Nous allons maintenant nous attacher a une autre partie des programmes Visual Basic. 
Les procedures evenementielles ne constituent pas le seul type de procedures susceptible 
d'apparaitre dans le code. La Figure 8.1 illustre le code contenu dans un module de 
feuille. Outre les declarations et les procedures evenementielles, un module peut contenir 

des procedures generates et des procedures de classe. 

Figure 8.1 Le module de feuille 



Declarations 

Private Sub Gen_Proc1 []□ 

' Corps de la premiere procedure generale.D 

End Sub 

Private Sub Gen_Proc2 []□ 

' Corps de la seconde procedure generale.D 

End Sub 

Private Sub Event_Proc1 []□ 

' Corps de la premiere procedure evenementielle.D 

End Sub 

Private Sub Event_Proc2 []□ 

' Corps de la seconde procedure evenementielle.D 

End Suba 

Private Sub Class_Proc1 []□ 

' Corps de la premiere procedure de classe.D 

End Sub 



Une procedure est dite generale quand elle n'est pas associee a un evenement 
de contrdle, mais effectue des calculs et divers traitements . 




un moauie receie 
dijferents types 
de codes. 
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Une procedure de classe est un objet Visual Basic special, cree par le program- 
meur. Les classes permettent de definir un nouveau type de donnees ou de 
variables. 



Souvenez-vous des deux listes deroulantes qui, dans la fenetre Code, indiquent le type 
ou le nom des objets et des procedures du module en cours. La liste Objet affiche une 
entree pour chaque controle de la feuille. Tout en haut de la liste se touve egalement un 
objet special, (General). (Les parentheses indiquent qu'il ne s'agit pas d'un controle, 
mais d'une section du code.) La section generale contient a la fois la section de decla- 
rations , situee au debut du code, et les procedures generales que vous ecrivez. 



Les appels de procedures generales 

Les procedures generales peuvent etre des fonctions ou des sous-routines. A quoi sert 
une procedure generale ? Dans le Projet bonus qui precedait ce chapitre, "Variables et 
expressions" , deux procedures evenementielles (optLarge _Click ( ) et optSmall_Click ( )) 
apparaissaient, qui contenaient le code suivant : 

imgEngland .Visible = False 

imgltaly .Visible = False 

imgSpain. Visible = False 

imgMexico. Visible = False 

imgFrance. Visible = False 

imgllSA. Visible = False 

1 Deselectionner tous les boutons d' option. 

optEngland .Value = False 

optltaly .Value = False 

optSpain. Value = False 

optMexico. Value = False 

optFrance. Value = False 

optUSA. Value = False 

Que de lignes pour dire la meme chose ! Bien entendu, la fenetre Code autorise le 
copier/coller, ce qui peut alleger votre peine, mais ne resout pas le probleme. Que se 
passera-t-il si vous devez modifier le code ? II faudra alors avoir soin de mettre a jour 
chaque ligne concernee. Le code repetitif n'est pas seulement fatigant a saisir, mais 
egalement plus delicat a maintenir. 

Dans des cas pareils, la meilleure solution consiste a placer le code dans sa propre proce- 
dure generale, comme dans le code suivant. Notez que chaque procedure generale doit 
recevoir un nom unique (suivez pour cela les memes regies que pour les noms de variables). 
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En outre, une procedure generate peut etre une fonction aussi bien qu'une sous-routine. 
Examinez cela : 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 



Private Sub Clear_Flags( ) 
1 Masquer tous les drapeaux affiches. 
1 Les drapeaux seront maintenant petits. 
imgEngland. Visible = False 
imgltaly .Visible = False 
imgSpain .Visible = False 
imgMexico. Visible = False 
imgFrance. Visible = False 
imgUSA. Visible = False 
' Deselectionner tous les boutons d'option. 
optEngland. Value = False 
optltaly. Value = False 
optSpain. Value = False 
optMexico. Value = False 
optFrance. Value = False 
optUSA. Value = False 
End Sub 



Lorsqu'une autre procedure requiert 1' execution d'un code identique, il suffit d'appeler 
la procedure generale, comme ceci : 

Call Clear_Flags() 

Appeler une procedure signifie executer une procedure depuis une autre proce- 
dure. 



L' instruction Call indique a Visual Basic de mettre temporairement de cote la procedure en 
cours d'execution (qu'il s'agisse d'une procedure evenementielle ou d'une procedure gene- 
rale), et d'executer le code de la procedure appelee. Une fois que la procedure appelee est 
entierement executee, 1' execution de la procedure appelante se poursuit a partir de la ligne 
qui suit 1'instruction Call. 



Procedures privees et publiques 

L' instruction Call vous economise de la peine et du temps, et elle facilite considerable- 
ment la maintenance : le code commun est stocke une fois pour toutes dans une procedure 
generale, qui pourra etre appelee dans la suite du programme a l'aide d'une simple 
instruction. Mais vous pouvez aussi ecrire une routine dans une application et la rendre 
disponible aux autres applications. Exemple : dans une application qui genere des rapports, 
vous creez un en-tete indiquant le nom et l'adresse de la societe ; cet en-tete pourra etre 
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inclus dans d'autres rapports generes par d'autres applications. Comment ? C'est ce que 
nous allons maintenant vous expliquer. 

Une procedure situee dans la section generale d'un module de feuille est disponible 
pour tout le module, mais seulement pour ce module ; les autres applications n'y ont pas 
acces. Pour cela, il faut placer la procedure dans un module de code. Vous pouvez ainsi 
ecrire le code de vos rapports dans un module de code specifique qui contiendra 
1' ensemble des routines utilisees pour generer des rapports. Grace au module de code, 
ces routines seront alors accessibles a toute application impliquant la generation de 
rapports. II suffit de cliquer du bouton droit dans la fenetre Projet de Implication, de selec- 
tionner dans le menu contextuel Ajouter, Module, puis de saisir le code. 

On pourrait dire que, en ecrivant des procedures generates accessibles a toutes 
les applications, vous construisez votre propre bibliotheque de fonctions inter- 
nes. 11 ne s'agit pas vraiment de fonctions internes (ou, plus precisement, de 
fonctions intrinseques), puisqu 'elles ne font pas partie du systeme Visual 
Basic ; mais ce sont des outils que vous forget vous-meme pour vous-meme, et 
qui pourront servir dans chacun de vos projets. 



Le code d'un module de feuille peut exploiter un module de code ajoute. II convient, 
pour cela, d'appeler la procedure depuis le module de feuille. Une exception toutefois : 
seules les procedures publiques peuvent etre utilisees en dehors de leur propre module, 
contrairement aux procedures privees. Considerez cette declaration de procedure : 

Private Sub ReportIt() 

Cette procedure peut seulement etre appelee dans le module qui la contient. Si vous 
l'aviez declaree comme procedure publique, elle aurait ete accessible depuis n'importe 
quelle autre procedure de n'importe quel autre module de 1' application. Voici une 
declaration de procedure publique : 

Public Sub ReportIt() 

Ainsi, il convient de declarer comme publiques les procedures d'utilite generale que 
vous ecrivez afm de disposer toujours de son code. 

Recapitulons : 

• Une procedure declaree comme Private n'est exploitable qu'a l'interieur de son 
propre module. 

• Une procedure declaree comme Public peut etre appelee depuis n'importe quelle 
autre procedure de 1' application. 
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Si le code est lui-meme tantot public, tantot prive, les variables peuvent egalement avoir 
une portee publique ou privee ; le jargon parle plus volontiers de variables globales ou 
locales. Les variables sont ainsi distinguees selon qu'elles sont ou non accessibles pour un 
autre code. 

Une variable locale n 'est exploitable que dans le code qui la contient. 

Une variable globale est exploitable en dehors de la zone pour laquelle elle 
est declaree. 

On entend par portee le degre de disponibilite d'une variable dans le code d'une 
application. 




Les controles sont tous et toujour s visibles et publics pour V ensemble du code 
d'une application. Les controles d'une feuille ne sont jamais caches. 



Imaginons qu'un commercant vous charge d'ecrire une petite application comptable, 
destinee notamment a calculer le montant d'une taxe de vente. Vous ecrivez done une 
procedure qui calcule la taxe sur le chiffre de vente total. Mais cette procedure est, en 
fait, d'utilite generale, puisque la taxe s' applique a differents types de produits, traites 
dans des modules differents. Plutot que de repeter les routines de calcul plusieurs fois 
dans l'application, vous les stockez dans un module de code specifique. La procedure de 
calcul sera ainsi accessible a toutes les applications qui doivent prendre en compte le 
calcul de cette taxe de vente ; il suffira que vous leur ajoutiez le module. 

Reste toutefois un probleme — les procedures ne peuvent pas toujours partager les 
donnees. Considerez la section de code suivante : 

Private Sub GetSalesTotal( ) 
' Ajouter le prix de chaque article vendu, 
1 puis calculer le chiffre de vente total. 
Dim curTotal As Currency 

' Suite de la procedure. 

La procedure GetSalesTotal( ) ajoute le contenu de toutes les zones de texte d'un 
formulaire de vente, et les stocke dans la variable curTotal. II faudrait ensuite faire 
appel a la procedure externe pour calculer le montant de la taxe de vente sur la somme 
curTotal. Eh bien, ca ne marchera pas ! Pourquoi ? Parce que curTotal est une variable 
locale. 
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Nous avons vu qu'une variable locale n'est utilisable que pour le code de la 
procedure dans laquelle elle a ete declaree. On dit aussi que la variable n'est 
visible que pour cette procedure. 



Le terme visible renvoie au concept de portee explique plus haut. Une variable 
est visible pour les procedures qui y ont acces. Ainsi, une variable locale n'est 
visible que pour la procedure qui la contient, tandis qu'une variable 
globale est visible pour tout le module. 

Vous pouvez declarer curTotal comme variable globale pour le module, en deplacant 
l'instruction Dim de la procedure a la section de declarations du module : 



Option Explicit 

' Declaration de toutes les variables publiques. 
Dim curTotal As Currency 



La variable curTotal est alors accessible partout dans le module de feuille. En fait, cela 
va sans doute vous surprendre, mais la situation est encore pire. Comme nous l'expli- 
quions au Chapitre 5, les variables locales sont preferables aux variables globales, parce 
que, d'apres une regie generale, les procedures ne doivent avoir acces qu'aux donnees 
strictement necessaires. En la declarant comme globale dans la section (General) de la 
fenetre Code, vous avez rendu la variable visible pour toutes les procedures du module, 
meme a celles qui n'en ont aucun usage ; mais la variable n'est toujours pas visible pour 
les autres modules ! 



Les applications Visual Basic contenant en general plusieurs modules, les 
termes locale et globale nefont pas sens dans toutes les situations. II serait plus 
convenable de designer comme locale une variable visible pour sa procedure 
(celle qui contient la declaration) ; de designer comme variable de niveau 
module une variable visible pour son module ; et de designer comme globale 
ou publique une variable visible pour toute V application . 

Pour que la variable soit reellement globale a tout le projet, il faut la declarer avec le mot cle 
Public, au lieu de l'usuel Dim, et placer cette instruction Public dans la section de decla- 
rations du module. La variable devient ainsi publique pour 1' ensemble de 1' application. 



as*** 



Deux variables publiques peuvent porter le meme nom, a condition d'etre 
declarees comme Public dans deux modules separes. Afin de ne jamais vous 
melanger les pinceaux, il convient d'inclure dans le nom des variables 
publiques le nom de leur module d'origine. Ainsi, MaBiblio . curSales renvoie 
specifiquement d la variable curSales du module de code MaBiblio. Meme si 
une autre variable publique curSales existe dans un autre module, Visual 
Basic ne les confondra jamais. 
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A titre de recapitulatif des notions etudiees jusqu'ici, examinez la Figure 8.2. Y sont 
illustrees les relations qu'entretiennent dans une application les variables publiques, de 
niveau module et locales. Dans chaque module, les rectangles representent des 
procedures. Les annotations indiquent quelles variables sont accessibles a quelles 
procedures. 



Figure 8.2 

La portee 

d'une variable 

determine 

les procedures qui 

peuvent y acceder. 



Module 1 



Publics P1 As IntegerD 
Dim a As Integer 



Public SubPM1a[] 



Dim L1 As Variant 



Public SubPM1b[ 



Dim L2 As Integer 



Public Sub PM1c [ 



Dim L3 As Integer 



Peut acceder aD 
P2, b, P1 et L2a.\ 



Peut acceder aD 
"P1 , a, P2 et L1 . 



Peut acceder aD 
P1,a, P2etl_2.D 
. Cette procedure^ 
peut seulementD 
etre appeleeD 
depuis leD 
Module 1 . 

Peut acceder afj 
P2, b, P1 et L2c. 



Module 2a 



Peut acceder aD 
P2, b, P1 et L2c. 



Publics P2 As IntegerD 
Dim b As String 



Public Sub PM2a [] 



Dim L2a As Single 



Public Sub PM2b [] 



Dim L2b As Single 



Public Sub PM2c [ 



Dim L2c As Single 



Toutes ces histoires de variables publiques ont de quoi desoler les programmeurs soucieux 
de lisibilite et de surete du code. Car, si les variables de niveau module sont a eviter, que dire, 
alors, des variables declarees comme publiques pour une application — c'est-a-dire visibles 
pour toutes les procedures de tous les modules du projet ! 

En definitive, et sauf les rares cas ou une meme variable doit etre utilisee par presque 
toutes les procedures d'un module, il est preferable de declarer des variables locales 
avec Dim. Mais d'autres procedures peuvent, malgre tout, avoir besoin de ces variables, 
notamment les procedures generales stockees dans des modules de code externes. II doit 
done exister un moyen de partager des donnees locales. C'est ce que devoile la 
prochaine section. 
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La transmission des donnees 

Lorsque deux procedures doivent partager des donnees, la procedure appelante peut 
envoyer ses variables locales a la procedure appelee. Pour ainsi transmettre des variables, 
il faut les indiquer dans les parentheses de la procedure appelee. Vous avez deja eu l'occa- 
sion de transmettre des arguments a une procedure, par exemple avec lnputBox(). 
Lachaine specifiee entre les parentheses de lnputBox() etait une donnee locale pour la 
procedure qui appelait inputBox ( ) , et inputBox ( ) recevait et traitait cette chaine. 

La regie consiste done a declarer dans les parentheses de la procedure appelee tous les 
arguments qui lui sont passes, transmis. Un simple exemple devrait vous eclairer. 
Le Listing 8.1 contient deux procedures. La premiere envoie deux valeurs, un total et un 
pourcentage d'abattement fiscal, a la seconde, qui calcule une taxe de vente sur le total 
moins l'abattement. La procedure de calcul de la taxe traite les donnees qui lui sont trans- 
mises par la premiere procedure, et affiche la taxation totale dans une boite de message. 

Listing 8.1 : La premiere procedure passe des arguments a la seconde 

1 : Private Sub GetTotalf ) 

2: 1 Cette procedure additionne les valeurs d'un 

3: 1 formulaire, puis envoie le total et le pourcentage 

4: 1 d'abattement a la procedure qui calcule la taxe. 

5: Dim curTotal As Currency 

6: Dim sngDisc As Single ' Special tax discount 
7: 

8: ' Calculer le total d'apres le formulaire. 

9: curTotal = txtSalel .Text + txtSale2.Text + txtSale3.txt 

10: 

11: ' Envoyer le total a la procedure de taxation. 

12: Call SalesTax(curTotal, sngDisc) 

13: End Sub 
14: 

15: Public Sub SalesTax(curTotal As Currency, sngRateDisc As Single) 

16: ' Calculer la taxe et deduire l'abattement. 

17: Dim curSalesTax As Currency 

18: Dim intMsg As Integer ' For MsgBoxf) 

19: 

20: ' Calcul de la taxe de vente 

21 : ' a 3,5 % du total. 

22: curSalesTax = (curTotal * .035) 

j 23: 

24: ' Deduction du pourcentage d'abattement. 

25: curSalesTax = curSalesTax - (sngRateDisc * curTotal) 

26: 

27: ' Afficher le montant total de la taxation. 

28: intMsg = MsgBox( "Taxation totale : " & curSalesTax) 

29: 

30: ' Apres execution, les procedures redonnent 

31: 'la main a la procedure appelante. 

32: End Sub 
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__i — | Notez que le nom des variables passees ne doit pas forcement correspondre au 
ypSo nom des arguments recus (ainsi, sngDisc a la ligne 12 et sngRateDisc d la 

' ligne 15). En revanche, le nombre d 'arguments et les types de donnees doivent 

etre identiques dans la liste d'arguments passes et dans la liste d' arguments 
recus. La procedure appelee s'en dent aux noms sous lesquels les arguments lui 
ont ete passes. 



La procedure SalesTax ( ) peut etre stockee dans un module de code different de celui de la 
procedure GetTotal(), laquelle peut resider dans la section generale d'un module de 
feuille. Les deux variables passees, bien que locales pour GetTotal(), sont passees 
comme arguments a la procedure externe SalesTax(). Ici, SalesTax () doit neces- 
sairement recevoir des arguments au nombre de deux, et du type de donnees specifie. 

Une fois les deux variables recues, la procedure SalesTax ( ) peut les traiter comme s'il 
s'agissait de variables locales pour elle-meme. Les calculs sont appliques aux valeurs, et 
la ligne 28 affiche le resultat (le montant total de la taxe) dans une boite de message. 

La Figure 8.3 illustre la transmission des arguments de GetTotal( ) a SalesTax ( ) . 



Figure 8.3 Private Sub Get _ Total []□ 

GetTotalQ envoie \ lnitial codeD 



deux arguments 
a SalesTaxf). 




Public Sub Sales Tax [curTotal As Currency, sngRateDisc As Single]D 
' □ 

' Body of the Sales TaxD 
' procedure goes here 0 
'□ 

End Sub 



— 1 La ligne semble utiliser des types de donnees non equivalents, mais Visual 
Basic salt gerer ce type de non-equivalence. MsgBox( ) requiert un argument 
initial de type String, et I'operateur & ne peut concatener que des chaines. 
Mais lorsqu'on demande la concatenation d'une chaine et d'un nombre, Visual 
Basic convertit automatiquement le nombre en chaine. 
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__i — | Faire 

ypSo Pour interrompre une sous-routine avant son instruction End Sub, utilisez 

' Exit Sub. (Pour les procedures de type fonction, ce sera End Function.) 

Toutefois, Exit Sub devrait toujours etre incluse dans une instruction If (ou 
autre instruction conditionnelle ) , sans quoi la procedure s'arreterait systema- 
tiquement et n'irait jamais plus loin que Exit Sub. 



II y a une autre fagon d'appeler les sous-routines. Vous pouvez omettre 1'instruction Call 
ainsi que les parentheses. Les deux instructions suivantes sont equivalentes. 

B Call PrintTitle (Title) 
PrintTitle Title 

Transmission par reference et par valeur 

Dans le Listing 8.1, les variables sont passees selon la methode dite par reference ; ce qui 
signifie que la procedure appelee peut modifier les arguments de la procedure appelante. 
Si, en revanche, les arguments sont precedes du mot cle ByVal, ils sont passes par valeur, 
c'est-a-dire que la procedure appelee ne peut pas modifier les arguments de la procedure 
appelante. (La transmission par reference etant la methode par defaut, le mot cle ByRef est 
toujours optionnel.) 

Prenons l'exemple du Listing 8.1. Si la procedure SalesTax( ) modifiait la valeur des argu- 
ments curTotal ou sngRateDisc, la variable correspondante dans GetTotal() serait 
egalement modifiee. Selon la methode de transmission par reference, les arguments passes 
par la procedure appelante peuvent etre affectes par les traitements qui leur sont appliques 
dans la procedure appelee. 

Si la ligne 15 du Listing 8.1 avait ete ecrite comme l'instruction ci-dessous, les variables 
de GetTotal() variables auraient ete protegees contre toute modification par Sales- 
Tax ( ) . Des l'execution de SalesTax( ) terminee, la valeur initiale des arguments passes 
par GetTotal ( ) aurait ete restauree. 

Public Sub SalesTax(ByVal curTotal As Currency, ByVal 
sngRateDisc As Single) 

Ainsi, et a moins que la procedure appelee soit expressement destinee a modifier les 
arguments passes, les arguments devraient toujours etre proteges par le mot cle ByVal. 
De cette fagon, la procedure appelee peut triturer tant qu'elle veut les arguments, la 
procedure appelante retrouvera toujours ses valeurs d'origine. 




Le mot cle ByVal peut etre utilise devant tous, une partie ou un seul des argu- 
ments passes. 
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Les fonctions se distinguent des sous-routines non seulement pas les lignes d'encadre- 
ment, mais aussi par la facon de renvoyer les valeurs a la procedure appelante. Dans les 
sections precedentes, le code appelait des procedures de type sous-routine. L'appel d'une 
procedure de type fonction est legerement different. En fait, on appelle une procedure 
fonction comme on appelle une fonction interne — avec le nom de la fonction et avec ses 
arguments — , mais sans 1'instruction Call. La fonction devient alors elle-meme la valeur 
renvoyee, et cette valeur est utilisee dans une expression ou une dans une instruction. 

La premiere ligne d'une procedure fonction, ou declaration de fonction, doit suivre ce 
format : 

Public | Private Function FuncName (Arg)As dataType 

Ici, FuncName est le nom de la fonction, Arg la liste des arguments, et dataType le type de 
donnees. La barre verticale entre Public et Private indique qu'une fonction est soit 
privee (visible pour le module seulement), soit publique (visible pour l'application 
entiere). Une fonction peut ne pas avoir d' arguments ; auquel cas, on omet les paren- 
theses. Toutefois, la plupart des fonctions recoivent au moins un argument. La clause As 
dataType, que Ton ne trouve pas dans les procedures de type sous-routine, declare le 
type de donnees de la valeur renvoyee par la fonction. Une fonction ne peut renvoyer 
qu'une seule valeur dont le type de donnees est specifie par dataType. 

Si Ton reecrivait la procedure SalesTax() en une fonction qui renvoie le resultat du 
calcul de la taxe, la declaration serait la suivante : 

Public Function SalesTaxfcurTotal As Currency, sngRateDisc 
As Single) As Currency 

Tout comme aux sous-routines , les arguments sont passes aux fonctions par 
reference ou par valeur, selon le degre de protection que vous souhaitez, assurer 
aux arguments de la fonction appelante. 

La valeur renvoyee doit necessairement etre affectee a une variable portant le meme nom 
que la fonction. Un telle variable n'a pas a etre declaree. Ainsi, la valeur affectee par Sales- 
Tax ( ) a une variable nommee SalesTax ( ) serait la valeur renvoyee par la fonction. Lorsque 
l'execution de la fonction s'acheve, soit par End Function, soit par une instruction Exit 
Function, la valeur renvoyee par la fonction est stockee dans la variable de renvoi. 

La procedure appelante doit done reserver une place pour la valeur renvoyee. La valeur 
renvoyee est generalement affectee a une variable. II n'est pas rare de trouver, dans une 
procedure appelante, une telle instruction : 

curDailyNet = CalcNetAdj (curGrSls, sngTaxRt, curGrRate, curStrExp) 
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CalcNetAdj ( ) est une fonction a laquelle quatre valeurs sont passees. CalcNetAd j ( ) traite 
ces valeurs, et affecte une valeur de renvoi a la variable nominee CalcNetAdj . Au terme de 
la fonction, cette valeur est affectee a la variable curDailyNet de la procedure appelante. 

Les exercices de fin de chapitre vous invitent a transformer en fonction la sous-routine 
CalcTax() du Listing 8.1. Pour le moment, etudiez le Listing 8.2 afm de bien assurer 
votre comprehension des fonctions. 

Listing 8.2 : Les fonctions renvoient a la procedure appelante une valeur unique 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



' La procedure appelante commence ici. 
Private Sub CP() 

Dim varR As Variant ' Variables locales a l'origine 

Dim varV As Variant ' de la valeur renvoyee. 

Dim intl As Integer ' Contiendra la valeur renvoyee. 

varR = 32 ' Valeurs initiales. 

varV = 64 

intl = RF(varR, varV) 1 Passe varR et varV. 

1 intl regoit la valeur renvoyee. 

MsgBox( "Apres renvoi, intl vaut " & intl) 

MsgBox( "Apres renvoi, varR vaut " & varR) 

MsgBoxf "Apres renvoi, varV vaut " & varV) 

End Sub 

' La fonction appelee commence ici. 

Public Function RF (varR As Variant, ByVal varV As Variant) As Integer 
1 varR est regu par reference et varV par valeur. 

varR = 81 ' Modifie les deux arguments. 

varV = varV + 10 

' Definit la valeur de renvoi. 

RF = varR + varV 
End Function 



La ligne 10 passe varR et varV (32 et 64) a la fonction. Aux lignes 20 et 21 , la fonction 
affecte a varR et varV les valeurs 81 et 74. varR ayant ete passe par reference, sa valeur 
sera egalement de 81 dans la procedure appelante (CP()). La ligne 23 additionne les 
valeurs 81 et 74, et elle affecte la somme comme valeur de renvoi de la fonction. Lorsque 
End Function s'execute, l'instruction d'affectation de la procedure appelante (ligne 10) 
affecte 155 a intl. La ligne 12 affiche la valeur de intl. La ligne 13 affiche la valeur 81, 
montrant ainsi que varR a ete modifie par la fonction appelee. La ligne 14 affiche 
toujours 64, la valeur de varV ayant ete protegee par le mot cle ByVal. 
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Transmission des contrdles comme arguments 

Outre les variables, les controles peuvent eux aussi etre passes d'une procedure a 
l'autre. Vous pouvez ainsi ecrire une procedure qui traite la valeur d'un controle, mais il 
faut pour cela savoir quel type de controle a ete passe. La procedure peut etre appelee 
depuis differents modules, et differents controles sont passes selon le cas. Le jeu 
d' instructions If TypeOf permet de verifier le type de donnees du controle passe comme 
argument. 

Voici le format d'une instruction If classique incluant TypeOf : 

If TypeOf object Is objectType Then 
Bloc a" instructions Visual Basic. 
Else 

Sloe a" instructions Visual Basic. 
End If 

Ici, object peut etre tout argument ou variable de controle. objectType est l'une des 
valeurs suivantes : 

CheckBox, ComboBox, CommandButton, Graph, Image, Label, Line, 
ListBox, OptionButton, OptionGroup, PageBreak, PictureBox, 
Rectangle, Shape, TextBox, ToggleButton 



Une variable de controle (on dit aussi variable d'objet) est une variable decla- 
ree comme controle. Les variables, nous le savons, prennent les types de 
donnees Integer, String ou Currency. Mais les variables peuvent etre 
declarees comme Object, e'est-d-dire comme n'importe quel objet Visual 
Basic, contrdles inclus. 



Les instructions suivantes declarent des variables de controles : 

8 Dim objCmdFirst As CommandButton 
Dim objNameList As ListBox 
Dim ob j Photo As Image 

Les variables de controle sont egalement transmissibles comme arguments : 
Public Function FixControls (objlncoming As Object) 

Quand une fonction recoit un argument declare comme de type Obj ect, on peut verifier 
de quel controle il s'agit : 

SIf TypeOf objlncoming Is CommandButton Then 
MsgBox("C'est un bouton de commande") 
Elself TypeOf objlncoming Is CheckBox Then 
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MsgBox("C'est une case a cocher") 
Elself TypeOf obj Incoming Is TextBox Then 

MsgBox("C'est une zone de texte") 
End If 



Les fonctions internes 



Vous connaissez deja les fonctions internes LoadPicture( ) , MsgBox( ) et lnputBox( ) . II 
en existe beaucoup, beaucoup d'autres... La suite de ce chapitre vous presente les plus 
importantes, celles qui vous aideront a construire des programmes plus puissants. Ainsi, 
au terme de ce chapitre, vous saurez non seulement ecrire vos propres sous-routines et 
procedures, mais vous connaitrez egalement la plupart des fonctions internes. Grace a 
cette maitrise du langage Visual Basic, vous pourrez, des le prochain chapitre, creer des 
applications plus avancees et plus complexes qu'elles ne l'ont ete jusque-la. 

Lorsque vous aurez. termine le present chapitre, vous connaitrez Vessentiel du 
langage Visual Basic. S'il vous restera encore des commandes a decouvrir, 
vous maitriserez tous les elements necessaires au programmeur debutant et 
moyen. Ce qui ne signifie pas que le reste soit de la rigolade ! Mais nombre de 
chapitres suivants introduisent simplement de nouveaux contrdles et proprietes. 



Fonctions numeriques 



Nous commencerons notre etude des fonctions internes par les fonctions de conversion en 
entier. Les plus communes ont ce format : 



B 



I nt ( numericValue) 
Fix (numeric Value) 



Ici, numericValue est un litteral, une variable ou une expression numeriques, et meme une 
fonction imbriquee capable de renvoyer un nombre. Le type de donnees numerique passe, 
quel qu'il soit, est maintenu pour les valeurs renvoyees ; mais ces valeurs sont utilisables 
comme des entiers Integer. 

Ne pas faire 

Ne passez jamais a Int() ou Fix() un argument non numerique. Visual Basic 
genererait une erreur a V execution. 

Ces deux fonctions ont pour effet d'arrondir leurs arguments a l'entier le plus proche. 
Elles se distinguent toutefois par le traitement applique aux valeurs negatives. Dans les 
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instructions suivantes, les commentaires indiquent la valeur renvoyee par chaque 
fonction : 



intAnsI = Int(6.8) 1 6 

intAns2 = Fix(6.8) ' 6 

intAns3 = Int(-6.8) 1 -7 

intAns4 = Fix(-6.8) ' -6 



Vous pouvez, remarquer que ni Int() ni Fix() n'arrondit a la valeur supe- 
rieure. Int() renvoie Ventier inferieur le plus proche de V argument. Les 
nombres negatifs sont arrondis a Ventier negatif inferieur le plus proche. Fix( ) 
renvoie la portion entiere tronquee de la valeur, c'est-a-dire que la decimale de 
V argument est jetee aux oubliettes. 

Tronquer signifie retirer. Fix ( ) tronque la portion decimale de son argument. 
Ainsi, une valeur de 5.23 tronquee donnerait 5 ; une valeur de —5.23 donnerait 
-5. 

La fonction de valeur absolue est utile pour calculer la difference de valeurs telles que 
distances et temperatures. 

La valeur absolue est la valeur positive d'un nombre. Ainsi, la valeur absolue 
de 19 est 19, et la valeur absolue de -19 est egalement 19. 



Abs ( ) est la fonction interne qui permet de calculer les valeurs absolues. Imaginons que 
vous cherchiez a mesurer la difference d'age entre deux personnes. La valeur absolue de 
cette difference d'age serait ainsi obtenue : 

intAgeDiff = Abs(intAge1 - intAge2) 

Quelle que soit la personne la plus agee, cette instruction ne peut affecter a intAgeDiff 
qu'une valeur positive. Si, d'aventure, intAgel etait inferieur a intAge2, et que Ton n'ait 
pas utilise la fonction Abs ( ) , le calcul aurait donne une valeur negative. 

La fonction Sqr() renvoie la racine carree d'un nombre positif. Dans les instructions 
suivantes, les commentaires indiquent le resultat de chaque fonction Sqr( ) : 



8 



intVall = Sqr(4) 1 2 
intVal2 = Sqr(64) 1 8 
intVa!3 = Sqr(4096) 1 16 
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Sqr( ) renvoie egalement la racine carree exacte des valeurs decimales. 



Visual Basic supporte plusieurs fonctions scientifiques et trigonometriques avancees. Voici 
une liste partielle : 

• Exp() renvoie la base d'un logarithme naturel (nombre e, valant approximativement 
2,718282), elevee a la puissance de l'argument. 

Log ( ) renvoie le logarithme naturel de l'argument. 

Atn ( ) renvoie la tangente d'arc de l'argument, en radians. 

Cos ( ) renvoie le cosinus de l'argument, en radians. 

Sin ( ) renvoie le sinus de l'argument, en radians. 

• Tan ( ) renvoie la tangente de l'argument, en radians. 

Pour appliquer une fonction trigonometrique a une valeur en degres, et non en 
radians, il faut multiplier l'argument par (jt / 180). Le nombre Jt (pi) vaut 
approximativement 3,14159. 



Fonctions de type de donnees 



II existe plusieurs fonctions qui s'occupent du type de donnees des arguments plutot que 
de leur valeur : 

• les fonctions d'inspection de donnees lsDate(), lsNull( ) ,lsNumeric( ) et 
VarType( ) ; 

• les fonctions abregees I If ( ) et Choose ( ) ; 

• les fonctions de conversion de type de donnees. 

Fonctions d'inspection de donnees 

Les fonctions d'inspection de donnees verifient le type des donnees et le contenu des 
variables. Un programme doit traiter des donnees de types tres varies, et Ton ne sait pas 
toujours a l'avance sur quoi on va tomber. Avant de proceder a un calcul, par exemple, il 
convient de s' assurer que les donnees sont numeriques. 

Le Tableau 8.1 liste les fonctions ls( ) et detaille leur activite. Chacune de ces fonctions 
recoit un argument de type Variant. 



241 



Partie II 



Tableau 8.1 : Les fonctions Is() verifient le contenu des variables 
et des controles 



Fonction 


Description 


IsDateO 


Verifie si son argument est de type Date 




(ou s'il peut etre correctement converti en date). 


IsEmpty ( ) 


Verifie si son argument a ete initialise. 


IsNull( ) 


Verifie si son argument contient une valeur Null. 


IsNumeric( ) 


Verifie si son argument est d'un type numerique 




(ou s'il peut etre correctement converti en nombre). 



Si les fonctions Is. . . ( ) acceptent le type de donnees Variant, c'est qu'elles 
doivent etre en mesure d'inspecter et d' identifier des donnees de n'importe quel 
type. 

La section de code presentee dans le Listing 8.3 est assez simple, mais elle decrit le 
comportement de la fonction isEmptyO selon que les variables ont ou n'ont pas ete 
initialisees. IsEmptyO permet, par exemple, de verifier si l'utilisateur a entre une valeur 
dans un champ. 



Listing 83 : Verification de variables vides 

1: ' Interroge les fonctions Is(). 

2: Dim van As Variant, var2 As Variant, 

3: Dim var3 As Variant, var4 As Variant 

4: Dim intMsg As Integer ' valeur de renvoi de MsgBox 

5: ' Affectations de valeurs d'exemple. 

6: van = 0 ' Valeur zero. 

7: var2 = Null ' Valeur Nun. 

8: var3 = " " ' Chaine Null. 

9: ' Appelle chaque fonction Is(). 

10: If IsEmpty (van ) Then 

11: intMsg = MsgBox("var1 est vide.", vbOKOnly) 

12: End If 

13: If IsEmpty(var2) Then 

14: intMsg = MsgBox("var2 est vide.", vbOKOnly) 

15: End If 

16: If IsEmpty(var3) Then 

17: intMsg = MsgBox("var3 est vide.", vbOKOnly) 

18: End If 

19: If IsEmpty (var4) Then 

20: intMsg = MsgBox("var4 est vide.", vbOKOnly) 

21 : End If 
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La seule sortie de ce code est une boite de message qui affiche ceci : 
var4 est vide 

Pourquoi ? Parce que toutes les autres variables ont un certain type de donnees — toutes 
ont ete initialisees. 



lsNull( ) interroge son argument et renvoie True si 1' argument contient une valeur Null. 
La valeur Null est une valeur speciale que Ton affecte aux variables pour indiquer 
l'absence de donnees, ou pour signaler une erreur. (L' interpretation qu'aura le 
programme de Null depend, en fait, de votre code.) 

'^ 0<v Si I' on peut affecter a une variable une valeur Null (comme dans varA = 

^ e Null), on ne saurait en revanche interroger la valeur Null de cette fagon : 

If (varA = Null) Then. . . 

Une telle condition n'est pas verifiable. IsNull ( ) est le seul moyen d'inter- 
roger la valeur Null d'une variable. 

L' interrogation des donnees est une chose simple. Au cas ou votre procedure doit 
verifier si une zone de texte txtHoursWorked contient ou non des donnees, une instruc- 
tion If comme celle-ci suffit : 

If IsNull(txtHoursWorked) Then 

intMsg = MsgBox("Vous n'avez pas entre les heures !", vbOKOnly) 
Else 

intMsg = MsgBoxf "Merci d 1 avoir entre les heures !", vbOKOnly) 
End If 

L' instruction If permet ici de verifier que l'utilisateur a bien saisi quelque chose dans le 
champ, avant que le programme ne poursuive son execution. 

lsNumeric( ) cherche dans son argument un nombre. Pour toutes les valeurs Variant 
convertibles en nombres, lsNumeric( ) renvoie True ; elle renvoie False pour toutes les 
autres. Voici les types de donnees convertibles en nombres : 

• Empty (conversion en 0) ; 

Integer ; 




C'est IsNull ( ) qu'ilfaut utiliser pour verifier la presence de donnees dans des 
champs ou des contrdles quelconques. IsEmptyO ne devrait etre appliquee 
qu'aux variables. 



• Long ; 
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Single ; 

Double ; 

• Currency ; 

Date (renvoie toujours False) ; 

String, si la chaine "semble" un nombre valide. 

Le code suivant demande a l'utilisateur son age, a l'aide d'une variable Variant. Si 
l'utilisateur entre une valeur non numerique, le programme affiche un message d'erreur. 



1 : Dim varAge As Variant 

2: Dim intMsg As Integer 1 Valeur de renvoi de MsgBox() 

3: varAge = InputBox( "Quel age avez-vous ?", "Age") 

4: If IsNumeric(varAge) Then 

5: intMsg = MsgBox( "Merci. " , vbOKOnly) 

6: Else 

7: intMsg = MsgBox("Pas de cachotteries !", 

vbOKOnly+vbExclamation ) 

8: End If 



La ligne 4 s'assure que l'utilisateur a bien entre une valeur numerique, plutot que 
d'avoir saisi, par exemple, son nom en toutes lettres. 

La fonction VarType() permet de determiner le type de donnees d'une variable. Le 
Tableau 8.2 presente les seules valeurs que puisse renvoyer une fonction VarType ( ) . 



Tableau 82 : Les valeurs renvoyees par VarTypeO indiquent le type de donnees 



Valeur renvoyee 


Litteral nomme 


Type de donnees 


0 


vbEmpty 


Empty 


1 


vbNull 


Null 


2 


vblnteger 


Integer 


3 


vbLong 


Long 


4 


vbSingle 


Single 


5 


vbDouble 


Double 


6 


vbCurrency 


Currency 


7 


vbDate 


Date 


8 


vbString 


String 


9 


vbObj ect 


Object 
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Tableau 82 : Les valeurs renvoyees par VarTypeQ indiquent le type de donnees (suite) 



Valeur renvoye'e 


Litteral nomme 


Type de donnees 


10 


vbError 


Valeur d 1 erreur 


1 1 


vbBoolean 


Boolean 


12 


vbVariant 


Variant* 


13 


vbDataObject 


Objet d'acces aux donnees 


14 


vbDecimal 


Decimal 


17 


vbByte 


Byte 


8192 


vbArray 


Tableau** 



Sur les tableaux de variant, voyez au Chapitre 10. 
** Pour indiquer un tableau, Visual Basic ajoute 81 92 a la valeur de type de donnees ; ainsi, 81 94 indique un tableau 
d'entiers, etc. 



Dans le Listing 8.4, la procedure se sert d'une instruction Select Case pour afficher le 
type des donnees qui lui sont passees. 

Listing 8.4 : VarType() permet de determiner le type des donnees passees 

1: Private Sub PrntType(varA) 1 Variant par defaut. 

2: Dim intMsg As Integer ' Valeur de renvoi de MsgBox(). 

3: Select Case VarType(varA) 1 VarTypef) renvoie un entier. 

4: Case 0 

5: intMsg = MsgBox("L'argument est de type Empty.") 

6: Case 1 

7: intMsg = MsgBox("L' argument est de type Null.") 

8: Case 2 

9: intMsg = MsgBox("L'argument est de type Integer.") 



10 


Case 3 












11 


intMsg 


= MsgBox( 


"L 1 argument 


est 


de 


type Long. ") 


12 


Case 4 












13 


intMsg 


= MsgBox( 


"L' argument 


est 


de 


type Single. " 


14 


Case 5 












15 


intMsg 


= MsgBox( 


"L' argument 


est 


de 


type Double. " 


16 


Case 6 












17 


intMsg 


= MsgBox( 


"L' argument 


est 


de 


type Currency 


18 


Case 7 












19 


intMsg 


= MsgBox( 


"L' argument 


est 


de 


type Date. ") 


20 


Case 8 












21 


intMsg 


= MsgBox( 


"L' argument 


est 


de 


type String. " 


22 


Case 9 












23 


intMsg 


= MsgBox( 


"L' argument 


est 


de 


type Object. " 
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Listing 8.4 : VarTypeQ permet de determiner le type des donnees passees (suite) 



24 


Case 10 










25 


intMsg = 


MsgBox( 


"L' argument 


est 


de type Error. " ) 


26 


Case 11 










27 


intMsg = 


MsgBox( 


" L ' argument 


est 


de type Boolean . " ) 


28 


Case 12 










29 


intMsg = 


MsgBox( 


"L' argument 


est 


de type tableau de Variant 


30 


Case 13 










31 


intMsg = 


MsgBox( 


"L 1 argument 


est 


de type objet d'acces 




aux donnees. " ) 








32 


Case 14 










33 


intMsg = 


MsgBox( 


"L' argument 


est 


de type Decimal. " ) 


34 


Case 17 










35 


intMsg = 


MsgBox( 


"L' argument 


est 


de type Byte. ") 


36 


Case Else 










37 


intMsg = 


MsgBox( 


"L 1 argument 


est 


de type Array (tableau).") 


38 


End Select 










39 


End Sub 











Les fonctions abregees llf() et ChooseQ 

II existe un equivalent plus simple de l'instruction If . . . Else. II s'agit de la fonction 
lit ( ) , capable de prendre avantageusement la place d'une instruction If . . . Else mono- 
ligne. I If () est semblable a la fonction @lf () que Ton trouve dans les tableurs. Voici 
son format : 

I If (condition, TrueBody, FalseBody) 

Ilf () ne doit etre utilise qu'en remplacement d' instructions If . . . Else courtes, telles 
que celles-ci : 

If (curSales < 5000.00) Then 

curBonus = 0.00 
Else 

curBonus = 75.00 
End If 

Chacun des deux corps de cette instruction If . . . Else etant constitue d'une seule ligne, 
on peut ecrire une fonction I If ( ) plus courte. La suivante affecte la valeur de renvoi a 
curBonus : 

curBonus = IIf(curSales < 5000.00, 0.00, 75.00) 
La Figure 8 .4 illustre le fonctionnement de cette I If ( ) . 
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Figure 8.4 

L'une des deux 
valeurs est affectee a 
la variable situee 
a gauche IIf(). 



curBonus peut se voirD 
' affecter cette valeur 



curBonus = If [curSales < 5000.00, 0.00, 75.00 ] 



Ou curBonus peut se voirD 
' affecter cette valeur 



Si V equivalent II f( ) est plus court que V instruction If. . . Else multiligne, il 
est aussi mains clair. Si, du reste, vous vouliez ajouter quoi que ce soit d'un 
cote ou de V autre de la fonction IIf(), il faudrait d'abord la convertir en 
If. . . Else multiligne. Aussi le format If. . . Else multiligne est-il preferable 
dans la plupart des cas. 

On ne peut diviser par zero (la division par zero n'est pas definie en mathematique). Si 
une division par zero advient, la fonction I If ( ) suivante renvoie un prix de vente moyen 
ou une valeur Null : 

curAveSales = IIf(intQty > 0, curTotalSales / intQty, Null) 



Visual Basic interprete toujours la valeur zero comme un resultat faux. Vous 
pourriez done reecrire V instruction precedente de la maniere suivante : 

curAveSales = I If (intQty, curTotalSales / intQty, Null) 

La fonction Choose(), quant a elle, offre une version abregee de certaines instructions 
Select Case. Choose () peut avoir beaucoup d'arguments — plus d'arguments meme 
que toutes les autres fonctions internes. Selon la valeur du premier argument, Choose ( ) 
renvoie un seul des autres arguments. Voici le format de Choose ( ) : 

Choose (intlndexWum , expression[, expression] ...) 

Apres le deuxieme argument, (expression), on peut ajouter autant d'arguments qu'il est 
necessaire. intlndexNum doit etre une variable ou un champ avec une valeur comprise 
entre 1 et le nombre d'expressions de la fonction. 

Si, par exemple, il faut generer une petite table de codes produits ou de prix, Choose ( ) 
est plus approprie qu'une instruction If ou Select Case. En revanche, la portee de 
Choose ( ) est plus restreinte que celle de If , parce que Choose ( ) n'effectue pas de veritable 
comparaison, mais choisit une valeur entiere unique. 
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Choose () renvoie Null si intlndexNum n'est pas compris entre 1 et le nombre 
d' expressions incluses. 



Le premier argument de Choose ( ) peut etre une expression. La valeur de cet argument 
doit etre incluse dans le nombre des arguments qui suivent. Si, par exemple, les valeurs 
possibles d'un index vont de 0 a 4, on ajoute 1 a l'index de sorte que la plage aille de 1 a 
5, et que le bon choix soit opere dans la liste de Choose ( ) . 

Imaginons un feuille sur laquelle un label indique des codes de prix. Lorsque l'utili- 
sateur entre un nouveau produit, il doit aussi saisir un code de prix entre 1 et 5, a savoir : 



1 


Plein prix 


2 


Remise de 5 % 


3 


Remise de 10 % 


4 


Commande speciale 



5 Commande par correspondance 



La fonction Choose () suivante affecte a un champ Descript la description associee au 
code : 

Descript = Choose (lblProdCode, "Plein prix", "Remise de 5 % " , 
"Remise de 10 %", "Commande speciale", "Commande par 
correspondance" ) 

Fonctions de conversion de type de donnees 

Le Tableau 8.3 decrit les fonctions de conversion de type de donnees, qui se distinguent 
par leur prefixe (C pour conversion). Chaque fonction convertit son argument d'un type 
de donnees a un autre. 



Tableau 8.3 


Fonctions de conversion de type de donnees 


Fonction 


Description 


CBool() 


Convertit l'argument en Boolean 


CByte() 


Convertit l'argument en Byte 


CCur() 


Convertit l'argument en Currency 
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Tableau 8.3 : Fonctions de conversion de type de donnees (suite) 



Fonction 


Description 


CDate() 


Convertit 1' argument en Date 


CDbl() 


Convertit l'argument en Double 


CDec( ) 


Convertit l'argument en Decimal 


CInt() 


Convertit l'argument en Integer 


CLng() 


Convertit l'argument en Long 


CSng() 


Convertit l'argument en Single 


CStr() 


Convertit l'argument en String 


CVar() 


Convertit l'argument en Variant 



Toutes ces fonctions exigent naturellement que l'argument soit convertible. Par 
exemple, CByte() ne pourra convertir le nombre 123456789 en Byte, parce 
que ce type de donnees est incapable de contenir une aussi grande valeur. 

A la difference de Int ( ) et Fix ( ) , Clnt ( ) arrondit l'argument a l'entier le plus proche. Pour 
les valeurs negatives, Clnt() renvoie egalement l'entier le plus proche. Dans les instruc- 
tions suivantes, les commentaires indiquent le contenu de chaque variable : 



B 



intA1 = CInt(8.5) 1 Affecte la valeur 8 a intA1 . 

intA2 = Clnt 8.5001) 1 Affecte la valeur 9 a intA2. 



Le code suivant declare des variables de quatre types de donnees differents, puis conver- 
tit chaque argument a ces types de donnees. Rappelez-vous que Ton passe aussi bien 
des expressions numeriques a ces fonctions, ce qui permet de definir un type de donnees 
avant de stocker le resultat calcule dans une variable ou dans un champ. 

curVar-1 = CCur(123) ' Convertit 123 en Currency. 

dblVar2 = CDbl(123) ' Convertit 123 en Double. 

sngVar3 = CSng(123) 1 Convertit 123 en Single. 

varVar4 = CVar 123 ' Convertit 123 en Variant. 
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Fonctions de chaines 

Les fonctions de chaines traitent et analysent le contenu des chaines. Visual Basic a 
herite du BASIC l'un de ses plus gros avantages sur les autres langages de 
programmation : un support efficace des donnees de chaines. 

La fonction LenQ 

Len ( ) est l'une des rares fonctions qui acceptent pour arguments aussi bien les variables 
numeriques que les chaines. Toutefois, Len() est principalement appliquee aux chaines. 
Cette fonction renvoie le nombre d'octets qu'occupe en memoire l'argument. Voici le 
format de Len( ) : 



Len {Expression) 



Len( ) accepte toutes les valeurs de chaines : variables, litteraux, expressions. 
Cependant, seules les variables numeriques peuvent lui etre passees comme 
arguments — ni litteraux numeriques, ni expressions numeriques . 

Len ( ) renvoie la longueur en nombre de caracteres de la variable chaine, de la constante 
chaine ou de l'expression chaine situee entre les parentheses. La fonction MsgBox ( ) affiche 
le resultat 6 : 

intMsg = MsgBox ( Len (" abcdef ") ) 



Si la chaine contient Null, Len() renvoie la valeur 0. L' interrogation d'une 
chaine nulle permet de verifier si Vutilisateur a entre ou non des donnees en 
reponse a une fonction InputBox( ) ou a un controle. 



Conversion de chames 

Plusieurs fonctions de conversion s'appliquent aux donnees de chaines. Le Tableau 8.4 
decrit chacune des fonctions utilisees dans les exemples qui suivent. 



Tableau 8.4 : Fonctions de conversion de chaines 



Fonction 


Description 


CStr() 


Convertit l'argument en chaine. 


Str() 


Convertit un argument numerique en chaine 




(plus precisement en Variant exploitable comme chaine). 


Val() 


Convertit un argument chaine en nombre 




(si la chaine passee contient bien un nombre). 
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CStr() et Str() convertissent leurs arguments en chaines. La difference est que Str() 
fait preceder d'un blanc (espace) les nombres positifs convertis en chaine. Le 
Listing 8.5 illustre cette difference entre CStr( ) et Str ( ) . 

Listing 8.5 : Contrairement a CStr(), Str() fait preceder les nombres positifs 
d'un blanc 

1: Private Sub convStr () 

2: Dim stn As String, s2 As String 

3: Dim intMsg As Integer ' Clic sur le bouton. 

4: strl = CStr(12345) 

5: str2 = Str(12345) 

6: intMsg = MsgBox("***" & stn & "***") 

7: intMsg = MsgBox("***" & str2 & "***") 

8: End Sub 

La ligne 6 genere une boite de message qui affiche ***12345***, tandis que la ligne 7 
entraine l'affichage de *** 12345***. Str( ) ajoute un blanc avant le nombre. 

Fonctions ASCII 

Chr ( ) et Asc ( ) permettent de convertir une chaine en sa valeur ASCII, et vice versa. La 
table ASCII recense tous les caracteres possibles sur un PC et attribue a chacun un numero 
sequentiel (code ASCII). 

Chr( ) renvoie le caractere correspondant au code ASCII qui lui est passe comme argu- 
ment. Chr() permet ainsi d'afficher des caracteres non disponibles sur le clavier, mais 
figurant dans la table ASCII. 

La fonction Asc( ) est l'exact inverse de Chr( ) . La oil Chr( ) recoit un argument numeri- 
que et renvoie un caractere, Asc() recoit un argument chaine et le convertit en valeurs 
ASCII correspondantes. 

Au terme de 1'instruction suivante, strVar contient la lettre "A", puisque 65 est le code 
ASCII de ce caractere. 

strVar = Chr(65) ' Stocke "A" dans aVar 

Bien entendu, une telle instruction n'a en soi aucun interet ; il est bien plus simple 
d'affecter directement a strVar le contenu A. Et qu'en est-il si, par exemple, votre 
programme doit poser une question en espagnol ? En espagnol, les questions sont prece- 
dees d'un point d' interrogation a l'envers, caractere qui n'apparait pas sur votre clavier. 
Avec Chr ( ) , vous affichez ce caractere dans votre boite de message : 

8' Chr(241) donne un "n" (n tilde). 
strMyQuest = Chr ( 191 ) & " Como esta, " & "Se" & Chr(241) & "or ?" 
intMsg = MsgBox( strMyQuest) 
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La Figure 8.5 montre la boite de message generee par ce code. 



Figure 8.5 

Les codes ASCII permettent 
d 'afficher les caracteres non 
disponibles sur le clavier. 




Asc ( ) renvoie le code ASCII du caractere qui lui est passe comme argument. (La table ASCII 
est notamment fournie dans l'aide en ligne de Visual Basic.) Largument doit etre une chaine 
d'au moins un caractere. Mais en presence de plusieurs caracteres dans la chaine passee, 
Asc ( ) ne renvoie que le code ASCII du premier caractere. 

Voici un bon exemple d'utilisation de Asc ( ) : 

strAns = InputBox( "Voulez-vous connaitre le nom ?") 
If ((Asc(strAns) = 79) Or (Asc(strAns) = 111)) Then 
b = MsgBox("Le nom est " + aName) 
End If 

L'utilisateur peut repondre par o, 0, oui, Oui ou OUI. L' interrogation If . . .Then verifiera 
avec succes toutes ces entrees, puisque 79 est le code ASCII de 0, et 1 1 1 celui de o. Nous 
disons done : Asc( ) renvoie la valeur ASCII du premier caractere de la chaine passee. 

Fonctions de sous-chaines 

Les fonctions de sous-chaines renvoient une partie de la chaine. Right () renvoie les 
caracteres a partir de la droite, Left ( ) a partir de la gauche. Mid ( ) preleve les caracteres 
a partir du milieu de la chaine. 

Voici le format des fonctions de sous-chaines : 



s 



Left (stringValue , numericValue) 

Right (st ringValue , numericValue) 

Mid (stringValue , startPosition[ , length]) 



Le code suivant illustre le comportement de Left ( ) : 
strA = "abedefg" 

partStl = Left (strA, 1) 1 Renvoie "a". 
partSt2 = Left (strA, 3) 1 Renvoie "abc". 
partSt3 = LeftfstrA, 20) 1 Renvoie "abedefg". 
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Si vous demandez, a Left( ) de renvoyer plus de caracteres qu'il n'en existe, la 
chaine entiere est renvoyee. 



Right ( ) fait la meme chose en sens inverse 



strA = "abcdefg" 

partStl = Right(strA, 1) 

partSt2 = Right(strA, 3) 

partSt3 = Right (strA, 20) 



Renvoie "g". 
Renvoie "efg". 
Renvoie "abcdefg" 



Mid() complete Left() et Right () en prelevant les caracteres a partir du milieu. Mid() 
requiert trois arguments : une chaine suivie de deux entiers. Le premier entier indique oil 
Mid ( ) doit commencer son prelevement (position a partir de 1), et le second entier determine 
combien de caracteres apres cette position seront renvoyes. Si vous ne specifiez pas les deux 
entiers, Mid ( ) prend 1 comme premiere position. 

Mid ( ) peut prelever n'importe quel nombre de caracteres depuis n'importe quel point de 
la chaine. Voici un exemple : 



strA 



"Visual Basic FORTRAN COBOL C Pascal" 



langl 


= Mid 


strA, 


1, 


12) 


1 Renvoie 


"Visual Basic" 


lang2 


= Mid 


strA, 


14, 


7) 


' Renvoie 


11 FORTRAN " . 


lang3 


= Mid 


strA, 


22, 


5) 


' Renvoie 


"COBOL" . 


lang4 


= Mid 


strA, 


28, 


1) 


1 Renvoie 


"C" . 


lang5 


= Mid 


strA, 


30, 


6) 


' Renvoie 


"Pascal" . 



Si 1' argument length (longueur) n'est pas specifie, VB renvoie tous les caracteres situes 
a droite de la position. Si la longueur specifiee est plus grande que le reste de la chaine, 
Visual Basic ignore 1' argument length. 



Mid( ) est utilisable a lafois comme fonction et comme commande. Elle est 
commande lorsqu'on Vemploie a gauche de V operateur = d'une instruction 
d' affectation. Elle est fonction partout ailleurs. Voici son format : 

Mid(string, start [, length]) 

L' instruction Mid( ) modifie le contenu de la chaine donnee entre parentheses . 
Le code suivant initialise une chaine avec trois mots, puis change le mot du 
milieu a Vaide de Mid( ) : 

strSentence = "Paul et Marie" 
' Change le mot du milieu 
Mid (strSentence, 6, 2) = "ou" 
1 Apres changement 

intMsg = MsgBox( "Resultat apres changement : " & strSentence) 

1 Affiche "Paul ou Marie" 
Inversion de style 
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UCase() renvoie l'argument chaine en lettres capitales. LCase() le renvoie en lettres 
minuscules. La fonction MsgBox( ) suivante affiche VISUAL BASIC : 

intMsg = MsgBox(UCase( "Visual Basic")) 

Les fonctions LTrimQ et RTrimQ 

LTrim() et RTrim() suppriment les espaces au debut et a la fin de la chaine. LTrim() 
renvoie l'argument chaine sans les espaces de debut, RTrim( ) sans les espaces de fin. La 
fonction Trim( ) supprime les espaces de debut et de fin. 

Voici le format de ces fonctions : 

gLTrim {stringExpression) 
Rlrm{stringExpression ) 
lrm{stringExpression) 

Les instructions suivantes suppriment les espaces de debut, de fin, et des deux : 

8st1 = LTrimf' Bonjour") ' Renvoie "Bonjour". 
st2 = RTrim( "Bonjour ") ' Renvoie "Bonjour". 
st3 = Trim(" Bonjour ") ' Renvoie "Bonjour". 

Sans l'intervention des fonctions, le mot "Bonjour" aurait ete stocke dans la variable en 
compagnie de ses diverses espaces. 

Lorsque Str ( ) convertit un nombre positif en chaine, une espace est toujours ajoutee au 
debut (pour figurer un signe plus imaginaire). En combinant LTrim() a Str(), vous 
eliminez cette espace superflue. Dans la premiere de ces instructions, la valeur est 
stockee dans stn avec le blanc. Dans la seconde, LTrim() supprime le blanc avant 
d'affecter la valeur a str2. 

B stn = Str(234) ' Renvoie " 234". 

str2 = LTrim(Str(234) ) ' Renvoie "234". 

La fonction Reverselt() suivante inclut plusieurs des fonctions de chaines presentees 
ci-dessus. Cette fonction, illustree dans le Listing 8.6, inverse un certain nombre de 
caracteres dans la chaine passee. 

Listing 8.6 : Cette fonction se sert des fonctions de chaines pour inverser 
une chaine 

1: Public Function Reverselt (strS As String, ByVal n 

As Integer) As String 
2: ' Attend une chaine, ainsi qu'un entier indiquant 
3: ' le nombre de caracteres a inverser. 
4: ' Inverse le nombre specifie de 
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5: ' caracteres dans la chaine specifiee. 

6: 1 Renvoie la chaine inversee. 

7: 1 

8: 1 Inverse les n premiers caracteres de la chaine. 
9: 

10: Dim strTemp As String, intl As Integer 
11 : 

12: If n > Len(strS) Then n = Len(strS) 

13: For intl = n To 1 Step -1 

14: strTemp = strTemp + Mid(strS, intl, 1) 

15: Next intl 

16: Reverselt = strTemp + Right(strS, Len(strS) - n) 

17: End Function 

Supposons que la fonction Reverselt () soit appelee par 1' instruction suivante : 

newStr = Reverselt ("Visual Basic", 6) 

Si tout se passe bien, la chaine newStr prendra comme contenu lausiv Basic (les six 
premiers caracteres sont inverses). La ligne 10 declare deux variables locales : la 
premiere, strTemp recevra le contenu inverse de la chaine ; la seconde, intl, est utilisee 
dans la boucle For. 

' La version 6 de Visual Basic propose une nouvelle fonction de chaine qui 

renvoie son argument Single inverse. Le Listing 8.6, destine a illustrer la 
fonction Mid( ), aurait ete bien plus efficace avec StrReverse( ) . 

A la ligne 12, l'instruction If s'assure que l'entier passe a Reverselt () n'est pas plus 
grand que la longueur de la chaine. II est impossible d'inverser plus de caracteres que 
n'en contient la chaine. Si l'argument en question est trop grand, l'instruction If 
l'ajuste, via la fonction Len ( ) , au nombre reel de caracteres, et la chaine est inversee en 
entier. 

A la ligne 13, la boucle For decremente n (la position) jusqu'a la valeur 1. La fonction 
Mid () de la ligne 14 concatene a la nouvelle chaine (le resultat) le caractere situe a la 
position n . Lorsque n atteint 1 , les caracteres inverses sont envoyes a la nouvelle chaine 
(ligne 14). Une fois tous les caracteres inverses, le code les concatene a la partie droite 
de la chaine passee. 
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Fonctions speciales 

Visual Basic dispose de fonctions specifiquement destinees au traitement et a 1' analyse 
des valeurs de date et d'heure. Ces fonctions permettent, par exemple, de savoir a quel 
moment precis un champ a ete edite, notamment pour des questions de securite. En 
outre, les rapports generes par vos applications devraient tous indiquer a quelle date 
precise on les a produits. 

Outre ces fonctions de date et d'heure, il existe des fonctions speciales de formatage 
pour afficher une chaine dans un format donne. 

Fonctions de date et d'heure 

Ce sont vos parametres Windows qui determinent les valeurs renvoyees par Date et 
Time. Sur une installation francaise, la fonction Date renvoie la date systeme dans le 
type Variant (Date) et sous ce format : 

dd-min-yyyy 

Ici, dd est le jour (entre 01 et 31), mm est le mois (entre 01 et 12), et yyyy est l'annee 
(entre 1980 et 2099). Date etant l'une des rares fonctions se passant d'arguments, elle ne 
requiert guere de parentheses. 

Time renvoie l'heure systeme dans le type Variant (Date) et sous ce format : 
hh: mm :ss 

Ici, hh est l'heure (entre 00 et 23) ; mm, les minutes (entre 00 et 59) ; et ss, les secondes 
(entre 00 et 59). 

Now combine les fonctions Date et Time. Now renvoie une valeur de type Variant (Date), 
sous le format suivant : 

ddlmmlyy hh:mm:ss 

II est important de retenir que les fonctions Date, Time et Now renvoient des valeurs qui 
sont, de facon interne, stockee comme des valeurs a precision double (ce qui assure le 
stockage correct de la date et de l'heure). Le meilleur moyen de formater les valeurs de 
date et d'heure est la fonction Format ( ) , que nous etudierons a la derniere section de ce 
chapitre. 

A exactement 19 heures 45 minutes, l'instruction currentTime = Time stocke 19:45:00 
dans la variable currentTime. 
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Si Ton est le 27 aout 1999, l'instruction currentDate 
variable currentDate. 



Date stocke 27/08/99 dans la 



Le 27 aout 1999, a exactement 19 heures 45 minutes, l'instruction currentDateTime 
Now stocke 27/08/99 19:45:00 dans la variable currentDateTime. 



Pour entrer une valeur de date ou d'heure, il faut Ventourer de caracteres 
diese ( #) : 

#21/11/1 993# 

Parce qu'il existe plusieurs formats de dates, Visual Basic doit pouvoir 
reconnoitre une date sous quelque format que vous I'entriez- Du moment 
que vous Vencadrez de dieses, vous etes libre d'utiliser les formats 
suivants : 

dd-mm-yy ; 
dd-mm-yyyy ; 
dd/mm/yy ; 
dd/mm/yyyy ; 
dd NomMois yyyy ; 

dd mmm yyyy (ou mmm est une abreviation telle que "oct") ; 
dd NomMois yy ; 

dd-mmm-yy (ou mmm est une abreviation telle que "oct") ; 
Les heures, quant a elles, peuvent etre exprimees de cesf aeons : 
hh 

hh:mm 
hh:mm:ss 



Fonctions chronometriques 

La fonction Timer renvoie le nombre de secondes ecoulees depuis que l'horioge systeme 
a sonne minuit. Le format de Timer est on ne peut plus simple : 

Timer 

Timer est l'une des rares fonctions qui n'acceptent aucun argument (e'est la raison de 
l'absence de parentheses). Timer est l'outil ideal pour chronometrer un evenement. Vous 
pouvez, par exemple, poser une question a l'utilisateur et mesurer le temps qu'il a pris 
pour repondre. Pour cela, il faut enregistrer la valeur de Timer au moment ou la question 
est posee, puis soustraire cette valeur a celle qu'aura Timer au moment de la reponse. 
La difference entre les deux valeurs represente le nombre de secondes que l'utilisateur a 
pris pour repondre. Le Listing 8.7 illustre cet exemple. 
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Listing 8.7 : Chronometrage du temps de reponse de l'utilisateur 

1: Public Sub CompTime () 

2: 1 Cette procedure mesure le temps de reponse. 

3: Dim intMsg As Integer ' Valeur de renvoi de MsgBoxf). 

4: Dim varBefore, varAfter, varTimeDiff As Variant 

5: Dim intMathAns As Integer 

6: varBefore = Timer 1 Valeur au moment de la question. 

7: intMathAns = Inputbox( "Combien font 150 + 235 ?") 

8: varAfter = Timer ' Valeur au moment de la reponse. 

9: ' La difference entre les deux valeurs represente 

10: 1 le temps de reponse de l'utilisateur. 

11: varTimeDiff = varAfter - varBefore 

12: intMsg = MsgBox("Vous avez mis " + Str(varTimeDiff ) 

& " secondes !") 

13: End Sub 



La ligne 6 stocke la valeur de Timer (le nombre de secondes ecoulees depuis minuit) 
immediatement avant la question. La ligne 7 pose la question, et des que l'utilisateur 
saisit une reponse, la ligne 8 stocke la nouvelle valeur de Timer. La difference entre les 
deux valeurs, calculee a la ligne 1 1 , represente le temps de reponse exact de l'utilisateur. 

Timer ne s'applique qu'aux delais compris dans une meme journee. Les fonctions 
DateAdd ( ) , DateDif f ( ) et DatePart ( ) viennent combler cette lacune. Le Tableau 8.5 decrit 
ces trois fonctions arithmetiques. 



Tableau 8.5 : Fonctions arithmetiques de comparaison de dates 



Fonction 


Description 


DateAdd ( ) 


Renvoie une nouvelle date apres que vous avez ajoute une valeur a une date. 


DateDif f () 


Renvoie la difference entre deux dates. 


DatePart () 


Renvoie une partie d'une date donnee. 



Ces fonctions arithmetiques peuvent traiter les elements de date presentees dans le 
Tableau 8.6. Les valeurs indiquees sont les arguments utilises par DateAdd(), Date- 
Diff () et DatePart (). 

En depit de son nom, DateAdd () s'applique aussi bien aux dates qu'aux heures (c'est 
d'ailleurs le cas de toutes les fonctions de date). L' argument passe a DateAdd ( ) doit etre 
de type Date. Voici le format de DateAdd ( ) : 

DateAdd (interval , number, oldDate) 
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Tableau 8.6 : Arguments des fonctions arithmetiques de date 



Valeur 


Periode 


yyyy 


Annee 


q 


Trimestre 


m 


Mois 


y 


Jour d'une annee 


d 


Jour 


w 


Jour ouvrable ( 1 pour dimanche, 2 pour lundi, et ainsi de suite pour Day ( ) , 




Month (), Year () et DateDiff ( )) 


WW 


Semaine 


h 


Heure 


n 


Minute (notez que ce n'est pas m) 


s 


Seconde 



Ici, interval doit etre l'une des valeurs (sous forme de chaine) du Tableau 8.6. Cette 
argument defmit l'unite de temps qui sera ajoutee ou soustraite (secondes, 
minutes, etc.). L' argument number specifie combien de ces unites seront ajoutees ou 
soustraites. Pour avancer une date, specifiez un interval positif ; et un interval negatif 
pour retarder la date. oldDate est la date ou l'heure de depart (la date ou l'heure a 
laquelle on ajoute ou soustrait) . La valeur de oldDate ne change pas. A la fin, DateAdd ( ) 
renvoie la nouvelle date. 

Imaginons que vous realisez un achat avec une carte de credit dont le delai de facturation 
est de vingt-cinq jours. L' instruction suivante ajoute vingt-cinq jours a la date 
d'aujourd'hui et stocke le resultat dans intStarts : 

intStarts = DateAdd ("y", 25, Now) 

intStarts renvoie alors la date dans vingt-cinq jours a partir d'aujourd'hui. 



Pour ajouter des jours a une date, on utilise indifferemment y, d et w. 
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Imaginons maintenant que votre entreprise inscrive les employes a un programme special 
de retraite au bout de dix ans d'anciennete. L' instruction suivante ajoute dix ans a la date 
d'embauche et stocke la date resultante dans la variable anc : 

anc = DateAdd("yyyy", 10, emb) 

La peri ode specifiee dans la chaine est ajoutee a la date. 

Si vous ne specifiez pas d'annee, toutes les fonctions arithmetiques de date 
utilisent Vannee courante systeme. 



DateDiff () renvoie la difference entre deux dates. Pour obtenir une valeur positive, il 
faut imbriquer DateDiff ( ) dans une fonction Abs ( ) . Cette difference est exprimee dans 
l'unite de temps specifiee. Voici le format de DateDiff ( ) : 

DateDiff (interval, datel , date2) 

L'instruction suivante determine le nombre d'annees d'anciennete d'un employe : 

anc = Abs(DateDiff ("yyyy" , dateEmb, Now)) 

DatePart() renvoie une partie de la date (la partie specifiee par l'unite de temps). 
DatePart ( ) permet d'extraire d'une date le jour, la semaine, le mois, l'heure, etc. Voici le 
format de DatePart () : 

DatePart (interval, date) 

L'instruction suivante stocke le nombre de jours ecoules depuis l'embauche de 
1' employe : 

DatePart ( "w" , dateEmb) 

Les fonctions de date et d'heure que nous avons etudiees traitent des valeurs serielles. 
Ces valeurs sont stockees comme valeurs a precision double arm que les dates et les 
heures soient correctement stockees et que les operations renvoient des resultats 
corrects. 

Une valeur serielle est une representation interne de la date ou de l'heure, de 
VarType 7 (type de donnees Date) ou Variant. 



Voici le format de la fonction DateSerial( ) : 
DateSerial(year, month, day) 
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Ici, year est un entier (entre 00 et 99, pour 1900 et 1999, ou une annee a quatre chiffres) ou 
une expression, month est un entier (entre 1 et 12) ou une expression, day est un entier 
(entre 1 et 31) ou une expression. En passant une expression, vous pouvez specifier un 
nombre d'annees, de mois ou de jours, a partir de, ou depuis, la valeur. Pour mieux 
comprendre ce type d'arguments, examinez les appels de fonctions DateSerial() 
suivants. Chacune d'elles renvoie la meme valeur : 

Bd = DateSerial(1998, 10, 6) 
d = DateSerial( 1988+10, 12-2, 1+5) 

Les fonctions DateSerial( ) permettent de maintenir les arguments de date dans certaines 
limites. Prenons un exemple. L' annee 1996 etait bissextile, et le mois de fevrier de cette 
annee n'avait done que vingt-neuf jours. L'appel de fonction DateSerial() suivant 
semble devoir renvoyer un resultat incorrect, puisque le mois de fevrier, meme dans une 
annee bissextile, ne peut contenir trente jours : 

d = DateSerial(1996, 2, 29+1) 

Mais cette fonction renverra bien le resultat correct, car DateSerial( ) ajuste la date de sorte 
que d corresponde au l er mars 1996, soit le jour suivant le dernier jour de fevrier. 
Le Listing 8.8 illustre une utilisation interessante de la fonction DateSerial( ) . 

Listing 8.8 : Ce code calcule le prochain jour ouvrable apres la date specifiee 



1 : Function DueDate (dteAnyDate) As Variant 

2: ' Attend une valeur date. 

3: 1 Calcule le prochain jour ouvrable 

4: 1 apres la date specifiee. 

5: 1 Renvoie la date de ce jour-la. 

6: 

7: Dim varResult As Variant 
8: 

9: If Not IsNull(dteAnyDate) Then 

10: varResult = DateSerial(Year(dteAnyDate) , 

Month (dteAnyDate) +1,1) 

11: If Weekday (varResult) = 1 Then ' Dimanche 

ajouter un jour. 

12: DueDate = Result + 1 

13: Elself Weekday (varResult) = 7 Then ' Samedi : ajouter deux jours. 

14: DueDate = varResult + 2 

15: Else 

16: DueDate = varResult 

17: End If 

18: Else 

19: varResult = Null 

20: End If 

21 : End Function 
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Lorsque cette fonction est appelee, elle recoit une valeur de date stockee comme Date 
ou Variant. Comme l'indiquent les commentaires, la fonction renvoie la date du 
premier jour ouvrable du mois suivant la date argument (entre 2, lundi, et 6, vendredi). 

La fonction DateValueO differe seulement de DateSerial() en ce qu'elle accepte les 
arguments de type chaine. En voici le format : 

Datevalue {stringDateExpression ) 

Ici, stringDateExpression doit etre une chaine reconnaissable par Visual Basic comme 
date (voir les exemples donnes plus haut pour l'instruction Date). Si l'utilisateur doit 
entrer une date valeur par valeur (le jour, puis le mois, puis l'annee), vous pouvez 
employer Datevalue ( ) pour convertir ces valeurs au format seriel interne. Si l'utilisateur 
doit entrer une date d'un seul tenant (qui sera stockee dans une variable chaine), telle 
que 19 octobre 1999, DateValueO convertit egalement cette chaine en valeur serielle 
de date. 

Les fonctions TimeSerial ( ) et TimeValuef) s'appliquent de la meme facon, mais aux 
heures. Si l'utilisateur indique l'heure a l'aide de trois valeurs, TimeSerial( ) convertit 
ces valeurs au format seriel interne (type Date ou Variant). Voici le format de 
TimeSerial ( ) : 

TimeSerial (hour, minute, second) 

Tout comme DateSerial( ) , TimeSerial ( ) accepte pour arguments des expressions, 
qu'elle ajuste en consequence. 

Quand l'heure est entree sous forme de chaine, TimeValue() convertit cette chaine en 
valeur d'heure, selon ce format : 

TimeValue (stringTimeExpression) 

Les fonctions Day(), Month () et Year() convertissent chacune l'argument (de type 
Variant ou Date) en numero du jour, du mois et de l'annee. Ces trois fonctions sont fort 
simples : 

8 Day {dateArgument) 
Month {dateArgument) 
Year {dateArgument ) 

Enfin, Weekday ( ) renvoie le numero du jour ouvrable (voir Tableau 8.6) pour l'argument 
date qui lui est passe. 

Les instructions suivantes passent la date du jour (obtenue par Now) aux fonctions Day ( ) , 
Month () et Year() : 
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8d = Day (Now) 
m = Month(Now) 
y = Year(Now) 

Les numeros du jour, du mois et de l'annee de la date courante sont stockes dans les 
trois variables. 

La fonction Forma t() 

Format () est l'une des fonctions les plus puissantes et les plus complexes. Elle renvoie 
l'argument sous un format different de celui qui a ete passe. Voici le format de Format ( ) : 

Format (expression, format) 

Format () renvoie une valeur de type Variant, que Ton utilise generalement comme 
chaine. L'argument expression est une expression numerique ou une expression chaine. 
Format () peut modifier toutes sortes de donnees : nombres, chaines, dates, heures,etc. 
Elle peut notamment servir a afficher un montant en incluant la virgule et le symbole "FT 7 " . 

L'argument format est une variable chaine ou une expression qui contient un ou 
plusieurs des caracteres de formatage presentes aux Tableaux 8.7 a 8.9. Ces trois 
tableaux correspondent aux diverses categories de donnees (chaine, nombre ou date). 
Ces tableaux sont longs. Mais il vous sufhra de quelques exemples pour comprendre le 
fonctionnement des caracteres de formatage. 



Tableau 8.7 


: Caracteres de formatage de chaines 


Symbole 


Description 




Un caractere est cense apparaitre dans la chaine a la position de @. S'il n'y a pas 




de caractere a cet endroit, un blanc est insere. Les @ (s'il y en a plusieurs) 




s'appliquent de droite a gauche. 


& 


Semblable a @, a ceci pres qu'aucun blanc n'est insere si rien n'apparait a la 




place du &. 


! Inverse l'ordre d'application de @ et & (de gauche a droite, done). 


< 


Convertit tous les caracteres en minuscules. 


> 


Convertit tous les caracteres en capitales. 
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Tableau 8.8 : Caracteres de formatage de nombres 



Symbole 


Description 


" " (chaine nulle) 


Le nombre s'affiche sans aucun formatage. 


0 


Tin f ri i it tv 1 f^ct r ' n t * cmrmraifrp Hnne la ftmitip Q 1q r*r\citir\n Hf^ 

un cniiiic cat celiac appaiaiuc uana id ciiainc a la jJUaiLiun uc 




0. S il n y a aucun chiffre a cet endroit, e'est 0 cjui s'affiche. Si 




le champ de format contient plus de zeros que n'en contient le 




nombre a formater, des zeros apparaissent au debut ou a la fin. 




Si le nombre contient plus de positions numeriques, 0 ajuste 




au format demande toutes les decimales , sans toucher a la 




partie entiere. Ce caractere de formatage sert surtout a inserer 




des zeros de debut et de fin. 


# 


Semblable a 0, a ceci pres que rien n'est insere si le champ de 




format contient plus de # que le nombre a formater ne contient 




de chiffre s. 




Associe a 0 ou #, specifie le nombre de chiffres qui doit 




apparaitre de part et d'autre du point decimal. 




Multiplie le nombre par 100 et insere le signe de 




pourcentage % dans la chaine. 




Placees dans les series de 0 ou de # , les virgules permettent — en 




notation anglo-saxonne — de separer les milliers. Une double- 




virgule indique que le nombre doit etre divise par 1000 (pour 




reduction d'echelle). 


E-, E+, e-, e+ 


Si le format contient au moins un 0 ou un #, convertit le 




nombre en notation scientifique. 




Intercale des deux-points entre les heures, les minutes et les 




secondes. 


/ 


Intercale des slashs entre les jours, les mois et les annees. 


-,+,$, space 


S'affichent dans la chaine tels quels et a la position donnee. 


\ 


Le caractere place apres l'antislash apparait a sa position dans la 




chaine. 



> 264 



Chapitre 8 : Sous-routines et fonctions 



Tableau 8.9 : Caracteres de formatage de dates 



Symbole 


Description 


c 


Affiche la date (comme ddddd, si seule la date apparait), l'heure (comme 




ttttt si seule l'heure apparait), ou les deux si les deux valeurs sont 




nrpQpntpc 

Ul V7r>V711lV7> . 


d 


Affiche le jour, de 1 a 31 . 


dd 


Affiche le jour sur deux chiffres, soit de 01 a 31 . 


ddd 


Affiche le jour sur trois caracteres, soit de Dim a Sam. 


dddd 


Affiche le jour en toutes lettres, soit de Dimanche a Samedi. 




Affiche la date selon le Style de date courte specifie dans les Parametres 




regionaux de votre Panneau de configuration (generalement dd/mm/yy). 




Affiche la date selon le Style de date longue specifie dans les Parametres 




regionaux de votre Panneau de configuration (generalement dd mmmm yyyy). 


W , WW 


Voir Tableau 8.6. 


m 


Affiche le mois, de 1 a 1 2. Place apres h ou hh, m represente egalement 




les minutes. 


mm 


Affiche le mois sur deux chiffres , soit de 0 1 a 1 2 . Place apres h ou h h , mm 




rpnrpQpnfp ptralpmpnt Ipq minnfpQ 


mmm 


Affiche le mois sur trois caracteres, soit de Jan a Dec. 


mmmm 


Affiche le mois en toutes lettres, soit de Janvier a Decembre. 


q 


Affiche le trimestre de l'annee. 


y 


Affiche le jour de l'annee, de 1 a 366. 


yy 


Affiche l'annee sur deux chiffres, soit de 00 a 99 (pour l'an 2000, yy 




affichera done 00). 


yyyy 


Affiche l'annee avec tous les chiffres, soit de 1 000 a 9999. 


h , n j s 


Voir Tableau 8.6. 


ttttt 


Affiche l'heure selon le Style de l'heure specifie dans les Parametres 




regionaux de votre Panneau de configuration (generalement hh : nn : ss). 
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AMPM, ampm, AP et ap affichent de diverses manieres l'heure au format anglo-saxon AM/ 
PM. 

Les instructions suivantes mettent en ceuvre les caracteres de formatage de chaines. Les 
commentaires indiquent les valeurs formatees affectees aux variables cibles. 

strS = Format ("AbcDef ", ">") ' ABCDEF 
strS = Format ("AbcDef", "<") 1 abcdef 
strS = Format) "00143646421", "(@) @@-@@-@@-@[a-(a(a" ) 
1 (0) 01-43-64-64-21 

Comme le montre la derniere instruction, les chaines peuvent recevoir les formats les 
plus varies. Si la chaine a formater, par exemple un numero de telephone, est une varia- 
ble chaine issue d'un champ de formulaire ou d'un tableau de donnees, Format () 
s' applique de la meme maniere. 

Imaginons le cas ou le code d'appel exterieur (par exemple 0) est facultatif. Format () 
s'appliquant de droite a gauche, rinstruction : 

strS = Format ( "0143646421 " , "(@) @@-@(a-ia@-(a(a-@(a» ) 

stockera dans strS le numero : 



( ) 01-46-64-64-21 

Si le code d'appel exterieur avait ete saisi, il aurait ete affiche entre les parentheses. 

! a pour effet d'inverser le sens d' application du formatage ; il ne doit etre utilise que 
dans le cas, par exemple, ou des donnees sont susceptibles de manquer a la fin de la 
chaine. L' instruction : 



strS = Format ( "43646421 " , "!(@) @@-(aia-@@-(a@» 

stockera dans strS un numero incorrect : 
(4) 36-46-42-1 

Le Listing 8.9 illustre le fonctionnement du formatage numerique. Les commentaires 
indiquent le resultat du formatage. 



Listing 8.9 : Format() applique aux nombres 

1: strS = Format(9146, "|######|") 1 |9146| 

2: strS = Format (2652. 2, "00000.00") 1 02652.20 

3: strS = Format (2652. 2, "#####.##") 1 2652.2 

4: strS = Format(2652.216, "#####.##") 1 2652.22 

5: strS = Format(45, "+###") 1 +45 

6: strS = Format(45, "-###") 1 -45 
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strS = Format(45, "###-") 1 45- 
StrS = Format (2445, "####.## FF") 1 2445. FF 
StrS = Format (2445, "####.00 FF") 1 2445.00 FF 
10: StrS = Format (2445, "00H00") ' 24H45 

Le Listing 8.10 illustre le fonctionnement du formatage des dates et des heures. Les 
commentaires indiquent le resultat du formatage. 

Listing 8.10 : Format() applique aux dates et heures 

1 : Dim varD As Variant 

2: varD = Now ' Suppose comme date fictive 
3: ' le 21 mai 1999 a 12:30 precises. 

4: strND = Format(varD, "c") ' 21/5/99 12:30:00 

5: strND = Format(varD, "w") ' 6 

6: strND = FormatfvarD, "ww") 1 22 

7: strND = FormatfvarD, "dddd") ' vendredi 

8: strND = FormatfvarD, "q") ' 2 

9: strND = FormatfvarD, "hh") 1 12 

10: strND = FormatfvarD, "d mmmm h:nn:ss") ' "21 mai 12:30:00" 



En resume 

Ce chapitre a detaille la structure generale d'un programme Visual Basic. Lorsque vous 
creez une application contenant plusieurs modules et procedures, vous devez tenir 
compte de la portee des variables afm que les procedures aient acces a toutes les 
donnees necessaires. Les variables, nous l'avons vu, doivent rester locales le plus 
souvent possible. Pour se partager les donnees, vos procedures devront done se passer 
les arguments adequats. Les procedures que vous ecrirez pourront etre des sous-routines 
aussi bien que des fonctions. En creant ces procedures, vous construirez vos propres 
bibliotheques de routines, exploitables dans d'autres applications. 

Pour epauler vos propres procedures, Visual Basic met a votre disposition une multitude 
de fonctions internes, capables d' analyser et de traiter des nombres, des chaines et 
d'autres donnees. Les fonctions internes etant, comme leur nom l'indique, une partie du 
langage Visual Basic, elles sont disponibles dans tous les modules, a tout moment. 

Le prochain chapitre revient a la nature visuelle de Visual Basic, et vous explique 
comment creer des boites de dialogue standards. 
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Questions-reponses 

Q Pourquoi les controles ne peuvent-ils etre locaux ou globaux ? 

R Les controles doivent etre accessibles a la totalite du code. lis sont done, pour ainsi 
dire, publics pour toutes les applications. Les controles sont, en fait, des objets bien 
distincts du code. Ainsi, a moins que vous ne creiez des variables de controles pour 
y stocker les valeurs de proprietes de certains controles, vous n'avez jamais a vous 
soucier de la portee des controles. 

Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris. II convient de comprendre 
les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trouverez 
ces reponses a 1' Annexe A. 

Quiz 

1. Quelles variables ont la plus grande portee : les locales, celles de niveau module ou les 
publiques ? 

2. Quelles variables ont la portee la plus restreinte : les locales, celles de niveau 
module ou les publiques ? 

3. Le mot cle ByRef est optionnel. Vrai ou faux ? 

4. Combien de valeurs une sous-routine peut-elle renvoyer ? 

5. Nommez des fonctions qui peuvent constituer un equivalent abrege de If . 

6. Que se passe-t-il si le premier argument de Choose ( ) est inferieur a 1 ? 

7. A quoi sert la fonction Abs ( ) ? 

8. Dans chacune des instructions suivantes, que recevra la variable strS ? 

B a. strS = Format( "74135", "&&&&&-&&&&") 
b. strS = Format (12345. 67, "######.###") 

9. Sans consulter la table ASCII, dites ce que intN contiendra apres execution de 
1' instruction d' affectation suivante : 

intN = Asc(Chr(192)) 

10. Quelle est la difference entre les fonctions Now et Time ? 
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Exercices 

1. Reecrivez le Listing 8.1 de sorte que SalesTax() soit une fonction qui renvoie a la 
procedure appelante le montant total de la taxe. La procedure appelante, 
GetTotal ( ) , devra afficher dans une boite de message la valeur renvoyee par Sales- 
Tax(). 

2. Reecrivez en fonction I If ( ) 1' instruction If suivante : 

If (intTotal > 10000) Then 

strTitle = "Bon boulot !" 
Else 

strTitle = "Vire ! " 
End If 

3. Reecrivez en fonction Choose () l'instruction If suivante : 

If (ID = 1) Then 
intBonus = 50 
Elself (ID = 2) Then 

intBonux = 75 
Elself (ID = 3) Then 

intBonus = 100 
End If 

4. Dans les instructions suivantes, quelles sont les valeurs affectees ? 



intN = Int(-5.6) 
into = Fix(-5.6) 
intP = CInt(-5.6) 
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Les boTtes de dialogue 



Dans ce chapitre, vous apprendrez a ajouter des boites de dialogue a vos applications. 
Vous decouvrirez le controle Common Dialog, qui permet de creer six sortes de boites de 
dialogue standards. Le controle Common Dialog permet d'afhcher des boite de dialogue 
familieres a l'utilisateur, qui choisira sans peine parmi une liste de fichiers ou imprimera 
facilement un rapport depuis votre programme. 

Voici ce que nous etudierons aujourd'hui : 

• 1' importance des boite de dialogue communes ; 

• comment disposer le controle Common Dialog ; 

• les methodes du controle Common Dialog ; 

• les proprietes des boites de dialogue ; 

• comment repondre aux boites de dialogue ; 

• l'instruction On Error Goto, qui permet de gerer avec simplicity le bouton Annuler. 

Les boites de dialogue communes 

Plus votre programme se conforme a l'apparence generale des applications Windows 
populaires, telles que Microsoft Word, plus rapidement vos utilisateurs s'y adapteront. 
Si vous comptez vendre vos programmes, il est capital de seduire l'utilisateur, et notam- 
ment de le convaincre d'acheter les futures mises a jour. Et si, plutot que de lancer vos 
programmes sur le marche, vous developpez des applications pour une societe precise, 
1' important reste ; un programme convivial et coherent signifie pour vous moins de 
maintenance et plus de productivity. 
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Pour creer une application qui, entre autres taches, ouvre des fichiers et envoie des 
impressions, un choix entre deux partis s'offre a vous : 

• imiter les boites de dialogue apparentees des autres applications ; 

• innover et tenter d'ameliorer les styles de boites de dialogue standards. 

Rien ne vous empeche, par exemple, d'innover dans le type de boite de dialogue qui 
s'affiche lorsque l'utilisateur selectionne Fichier, Ouvrir. Mais ce serait imprudent. Car 
votre application ne serait deja plus standard, et vos utilisateurs devraient revenir sur les 
habitudes acquises dans les autres applications, meme pour effectuer une operation tres 
simple. En outre, de tels programmes demanderaient plus de travail, car vous devriez 
concevoir de nouvelles boites de dialogue pour toutes les manipulations. 



Faire 

Vos applications doivent presenter les memes menus et les mimes boites de 
dialogue que les applications Windows standards. 

Pour ceux qui veulent gagner du temps et se conformer aux standards, Visual Basic 
dispose du controle Common Dialog, qui permet de generer des boites de dialogue avec 
le moins de programmation possible. Ces boites de dialogue auront exactement le meme 
aspect et le meme fonctionnement que les boites de dialogue similaires des applications 
Windows standards. Voici les options Common Dialog : 

• Couleurs. Affiche une boite de dialogue dans laquelle l'utilisateur peut choisir sur 
une palette de couleurs, et meme definir des couleurs personnalisees. 

• Police. Affiche une boite de dialogue dans laquelle l'utilisateur choisit parmi des 
polices, des attributs et des tailles de caracteres. 

• Ouvrir. Affiche une boite de dialogue dans laquelle l'utilisateur selectionne un 
fichier a ouvrir a partir des dossiers et des lecteurs, voire d'un reseau. 

• Imprimer. Affiche une boite de dialogue dans laquelle l'utilisateur selectionne une 
imprimante ou en modifie les parametres. 

• Enregistrer. Affiche une boite de dialogue dans laquelle l'utilisateur specifie le nom 
et le lieu d'enregistrement d'un fichier. 

Aide Windows. Lance le moteur d'aide Windows et affiche la boite de dialogue 
initiale du systeme d'aide de votre application. 

Le controle Common Dialog vous permet d'ajouter diverses boites de dialo- 
gue a votre application, avec un effort minimum. 
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Vous pouvez, aussi bien, creer des boites de dialogue standards sans Vaide du 
controle Common Dialog. Vous devrez alors reproduire sur lafeuille la dispo- 
sition exacte des zones de texte, barres de defilement, zones de liste, et autres 
elements inevitables . Mime avec tres peu de controles sur lafeuille, Vecriture 
d'une boite de dialogue est toujours fastidieuse . Bref, ilfaut vraiment avoir une 
excellente raison pour se passer du controle Common Dialog ! 



Les boites de dialogue generees par le controle Common Dialog sont dites modales. 



Est modale une boite de dialogue que I'utilisateur doit necessairement fermer 
( en cliquant sur OK ou sur Annuler) avant de poursuivre toute autre operation 
dans V application. 



Ajouter le controle Common Dialog 

Inutile de chercher le controle Common Dialog dans votre Boite a outils, vous ne l'y 
trouverez pas. La Boite a outils ne contient pas tous les controles disponibles ; d'abord, 
parce qu'elle occuperait la moitie de l'ecran ; ensuite, parce que vous n'avez pas besoin 
de tous ces controles tout le temps. Mais avant d'utiliser le controle Common Dialog, il 
va bien falloir 1' ajouter a la Boite a outils. 

Pour ajouter les controles , suivez ces etapes : 

1 . Appuyez sur Ctrl-T (raccourci clavier pour Projet, Composants). La boite de dialogue 
Composants s'affiche (voir Figure 9.1). 



Figure 9.1 

La boite de dialogue 

Composants liste 

tous les controles 

disponibles 

sur votre systeme. 



Controles | Concepteuts | Objetsain 

□ ActiveX Conference Control 

□ br549 OLE Control module 

□ C:\WINDOWS\5YSTEM\refedit.dll 

□ C:\WINDOW5\5Y5TEM\TDC. OCX 
_J cdmwu OLE Control module 

D Controle d'administration d'images Kodak 

□ Controle de numerisation d'images Kodak 

□ Controle d'edition d'images Kodak 

□ Controle des miniatures Kodak 

n DicoBrowser ActiveX Control module 
D Direct-Animation Library 

□ EYEDOG OLE Control module 

iJ I 




Elements selectionnes 



Active Setup Control Library 

hemin d'acces: C:\WINDOW5\SYSTEM\A5CTRLS.OCX 
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2. Faites defiler la liste jusqu'a l'option Microsoft Common Dialog Control 6.0. 

3. Cochez la case et cliquez sur OK. Le controle Common Dialog s'affiche au bas de la 
fenetre Boite a outils. 

Profitez-en pour jeter un coup d'ceil aux autres contrdles disponibles dans 
la boite de dialogue Composants. Tous sont des contrdles ActiveX. Micro- 
soft Calendar Control 8.0, par exemple, permet d'ajouter a vos applica- 
tions des fonctions de calendrier, telles qu'en exigerait un programme de 
gestion de planning ou un programme de facturation. Si vous decide z 
d'ajouter de nouveaux contrdles a votre Boite a outils (ca ne coute rien), 
vous pouvez egalement parcourir leurs proprietes specifiques . Consultez 
I'aide en ligne au sujet des evenements et des methodes supportes par ces 
contrdles. Vous trouverez dans les revues specialisees et sur V Internet des 
contrdles supplementaires capables d' accelerer le developpement de vos 
programmes. Le Chapitre 17 vous apprendra a ecrire vos propres contrdles 
ActiveX. 



Fonctionnement du controle Common 
Dialog 

La Figure 9.2 montre un controle Common Dialog place au milieu d'une feuille. 
Comme vous pouvez le constater, il ne ressemble pas vraiment a une boite de dialogue. 
II semble meme trap petit pour servir a quoi que ce soit. Et Visual Basic ignore vos 
tentatives de redimensionnement du controle, meme s'il est entoure de poignees. 



Figure 9.2 

Place sur la feuille, 
le controle Common 
Dialog ne ressemble 
pas a grand-chose. 




A l'execution du programme, le controle Common Dialog prend la forme de Tune des 
boites de dialogue evoquees plus haut. En fait, Visual Basic se charge d'afficher la boite 
de dialogue au centre de l'ecran, quelle que soit la position du controle Common Dialog 
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sur la feuille. Vous pouvez done le placer a l'ecart, et disposer les autres controles 
comme bon vous semble. Lorsque le controle Common Dialog sera declenche, la boite 
de dialogue s'affichera automatiquement au centre de l'ecran. Le reste du temps, Visual 
Basic masque le controle Common Dialog de sorte qu'il ne se superpose pas, lors de 
l'execution, aux autres controles de la feuille. 

Pour que le programme declenche le controle Common Dialog en afhehant un type speci- 
fique de boite de dialogue, vous devez ecrire votre code de facon appropriee. 

C'est a l'aide des proprietes et des methodes que Ton specifie quelle forme de boite de 
dialogue le controle Common Dialog doit afficher. Les methodes, vous vous en souve- 
nez peut-etre, sont des procedures internes appliquees a des controles particuliers. Voici 
les methodes du controle Common Dialog : 

ShowColor . Affiche une boite de dialogue Couleur. 

• ShowFont. Affiche une boite de dialogue Police. 

• ShowHelp. Affiche une boite de dialogue Aide Windows. 

• ShowOpen. Affiche une boite de dialogue Ouvrir. 
ShowPr inter. Affiche une boite de dialogue Imprimer. 

• ShowSave. Affiche une boite de dialogue Enregistrer. 

Soit un controle Common Dialog nomme dbFont. Apres quelques reglages de proprie- 
tes, il suffit d'appliquer a ce controle la methode ShowFont pour afficher une boite de 
dialogue de type Police : 

dbFont .ShowFont ' Affiche une boite de dialogue Police 

De me me, pour afficher — par exemple, en reponse a une selection de menu Fichier, 
Ouvrir — une boite de dialogue de type Ouvrir, il suffit d'appliquer la methode Show- 
Open au controle dbFont : 

dbFont .ShowOpen 1 Affiche une boite de dialogue Ouvrir 

Comme vous le voyez, un seul controle Common Dialog suffit pour afficher divers types 
de boites de dialogue. Toutefois, avant de declencher le controle par une methode, il est 
indispensable de definir quelques proprietes. 

' ) Pour les applications reclamant plusieurs types de boites de dialogue, deux 

solutions s'offrent a vous. Ou bien vous placez un seul controle Common 
Dialog et lui appliquez differentes methodes (comme dans V exemple ci-dessus). 
Ou bien vous placez plusieurs controles Common Dialog, un pour chaque type 
de boite de dialogue requis. Un seul et meme controle Common Dialog est plus 
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facile a gerer. Toutefois, le fait de placer plusieurs contrdles Common Dialog 
vous epargne de modifier les proprietes chaque fois qu'un type de boite de 
dialogue est requis. 

Les boites de dialogue generees par le controle Common Dialog ne font rien d' autre que 
proposer diverses selections a l'utilisateur. En d'autres mots, si l'utilisateur selectionne 
une police de caracteres dans la boite de dialogue Police, puis qu'il clique sur OK, le 
texte affiche a l'ecran ne bougera pas pour autant. Pas plus qu'un fichier ne s'ouvrira 
lorsque l'utilisateur aura opere son choix dans la boite de dialogue Ouvrir. Le controle 
Common Dialog fournit une interface commune pour les boite de dialogues et definit 
des proprietes selon les reponses de l'utilisateur. Son role s'arrete la. C'est a vous, a 
votre code, qu'il incombe d'analyser les valeurs de proprietes des boites de dialogue, et 
de determiner la reaction du programme. 



La boite de dialogue Couleur 

Les couleurs disponibles sur Windows vont de plusieurs centaines a plusieurs millions. 
La boite de dialogue Couleur offre a l'utilisateur un moyen simple de choisir parmi ces 
teintes. Supposons, par exemple, que vous permettiez a l'utilisateur de changer la 
couleur de l'arriere-plan d'une feuille. II n'est pas question de le demander ainsi : 

strAns = InputBox( "Quelle couleur voulez-vous appliquer a 
l'arriere-plan ? ") 

Car la propriete BackColor, comme vous vous en souvenez, appelle un code de couleur 
hexadecimal. (C'est d'ailleurs le cas de toutes les proprietes liees a la couleur, telles que 
ForeColor.) L'utilisateur peut toujours repondre a la lnputBox() par "rouge" ou "bleu", 
la pauvre propriete BackColor n'y comprendra rien. La reponse de l'utilisateur ne peut 
en aucun cas etre affectee ainsi : 

frmTitle. BackColor = strAns 1 Cela ne marchera JAMAIS ! 

La boite de dialogue Couleurs offre a l'utilisateur un moyen de selectionner une couleur, mais 
se charge egalement de convertir la valeur choisie en code hexadecimal. Une fois la boite de 
dialogue refermee, il ne vous reste qu'a affecter la valeur renvoyee a la propriete BackColor de 
la feuille. 

Pour que le controle Common Dialog affiche la boite de dialogue Couleurs, suivez ces 
etapes : 

1. Dans la propriete DialogTitle du controle Common Dialog, saisissez le libelle qui 
doit apparaitre sur la barre de titre. Par exemple, Couleur d ' arriere-plan. 
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2. Affectez a la propriete Flags du controle l'une des valeurs presentees au 
Tableau 9.1. 



Tableau 9.1 : Valeurs de la propriete Flags pour la boite de dialogue Couleurs 



Litteral nomme 


Valeur 


Description 


cdlCCRGBInit 


1 


Definit la valeur initiale 


cdlCCFullOpen 


2 


Affiche la boite de dialogue complete (incluant la section 
Definition de couleurs personnalisees) 


cdlCCPreventFullOpen 


4 


Desactive l'option Definition de couleurs personnalisees 


cdlCCHelpButton 


8 


Affiche un bouton Aide dans la boite de dialogue 



Ce tableau decrit 1' aspect premier de la boite de dialogue Couleurs. Pour definir 
plusieurs de ces valeurs, il suffit de les additionner. 

3. Declenchez l'affichage de la boite de dialogue Couleurs en appliquant, dans le code, 
la methode ShowColor au controle Common Dialog. 

Supposons que vous vouliez afficher la boite de dialogue Couleurs, laisser l'utilisateur 
operer son choix, et afficher un bouton d'aide. Supposons encore que le controle Common 
Dialog soit nomme cdbColor. Voici a quoi ressemblerait le code : 

1 Definit les proprietes Flags. 

cdbColor. Flags = cdlCCFullOpen + cdlCCHelpButton ' Boite de dialogue complete. 
1 Affiche la boite de dialogue Couleur. 
cdbColor. ShowColor 

La Figure 9.3 montre la boite de dialogue resultante. 



Figure 9.3 

La boite de dialogue &<*t« debase: 



Couleur, affichee 
par la methode 
ShowColor. 



rrrrn 
irrrn 
irr ■■! 
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Couleuis personnalisees : 
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1 T einte ; 


1 BO Flouge : 


| Satui. : 


0 Vert : 


i Lum. : 


0 Bleu 



Ajoutet aux couleuts petsonnalisees 
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Pour afficher par defaut un jeu de couleur restreint, tout en laissant a l'utilisateur la 
possibilite de cliquer sur le bouton Definition de couleurs personnalisees, il suffit 
d'omettre la valeur cdlCCFullOpen. La Figure 9.4 montre cette boite de dialogue 
restreinte. 



Figure 9.4 

La boite de dialogue 
Couleur en mode restreint. 



Couleurs 


^■?|x| 


Couleurs de base : 




mrrmr 


rrr 


mr r r r 


mrr 


irrrr 


rmr 


Couleurs personnalisees : 




urrrr 


rrr 


Definir les couleus personnalisees >> j 


OK | Annuler | 





Des que la boite de dialogue se referme, les proprietes du controle sont initialisees 
en fonction de l'utilisateur. La propriete la plus importante est Colon, qui contient des 
lors la valeur hexadecimale correspondant a la couleur selectionnee ou creee. Le code 
suivant pourrait faire suite a l'affichage de la boite de dialogue : 

1 Definit la couleur d ' arriere-plan de la 
1 feuille selon les choix de l'utilisateur. 
frmTitle.ForeColor = cdbColor. Color 



Gestion du bouton Annuler 

Votre code doit etre en mesure de determiner si l'utilisateur a selectionne une couleur 
puis clique sur OK, ou s'il a clique sur le bouton Annuler — ce qui signifie qu'aucune 
propriete ne doit etre modifiee. Cette necessite de gerer le bouton Annuler ne concerne 
pas seulement la boite de dialogue Couleurs, mais aussi toutes les autres boites de dialogue. 

Pour savoir si l'utilisateur a clique sur Annuler, vous emploierez une nouvelle 
commande Visual Basic : l'instruction On Error Goto. Si une erreur quelconque 
survient dans les instructions qui suivent, cette instruction bascule automatiquement le 
code vers V etiquette appropriee. Ainsi, l'etiquette : 

On Error Goto dbErrHandler 
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indique a Visual Basic de passer directement a l'etiquette dbErrHandler si une erreur se 
produit dans les lignes qui suivent (jusqu'a la fin de la procedure). 



0& 



Une etiquette identifie dans le code une section destinee a gerer les erreur s. 
On applique aux etiquettes les memes conventions de denomination que 
pour les variables. En revanche, les etiquettes doivent toujours se terminer 
par un deux-points, ce qui justement les distingue des variables. Selon 
I'exemple donne ci-dessus, la procedure doit inclure, quelque part apres 
V instruction On Error Goto, une etiquette telle que : 

dbErrHandler: 

(Les programmeurs placent en general leurs etiquettes au bas du programme.) 



Si une erreur survient, l'instruction Exit interrompt la procedure, et le code de gestion 
d'erreurs qui suit l'etiquette s'execute. Si l'utilisateur clique sur le bouton Annuler et 
que vous ayez defini la propriete CancelError comme True, Visual Basic declenche une 
erreur. Bien sur, un clic sur le bouton Annuler ne constitue pas en soi une erreur. Mais le 
fait de le traiter comme une condition d'erreur permet d'utiliser un code tel que celui du 
Listing 9.1. 



Listing 9.1 : Gestion du bouton Annuler 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



Private Sub mnuViewColor_Click( ) 
cdbColor. CancelError = True 1 Un clic sur Annuler 

1 equivaut a une erreur. 
On Error Goto dbErrHandler 1 Bascule vers l'etiquette en cas d'erreur. 

' Definit la propriete Flags. 

cdbColor. Flags = cdlCCFullOpen + cdlCCHelpButton ' Affichage complet. 
Color DB 

' Affiche la boite de dialogue Couleur. 
cdbColor. ShowColor 

' Definit la couleur d ' arriere-plan de la 
' feuille selon les choix de l'utilisateur. 

f rmTitle.ForeColor = cdbColor. Color 

Exit Sub ' Fin de la procedure normale. 
dbErrHandler: 

' L'utilisateur ayant clique sur Annuler, 

' la procedure doit etre ignoree. 

Exit Sub 
End Sub 



Si l'utilisateur selectionne une couleur et clique sur OK, la ligne 14 applique cette couleur 
a 1' arriere-plan de la feuille. Plutot que d'interrompre la procedure quand l'utilisateur 
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clique sur OK, il est plus simple de definir les couleurs par defaut (entre les lignes 16 et 
19) de l'arriere-plan de la feuille. 

Le gestionnaire d'erreurs de la ligne 16 s'executera en reaction a toutes les 
erreurs, et pas seulement si Vutilisateur clique sur Annuler. Au Chapitre 16, 
vous decouvrirez Vobjet systeme Err a interroger pour determiner avec 
precision le probleme, sur la base d'un numero d'erreur. 




La boite de dialogue Police 

Le controle Common Dialog permet de generer les boites de dialogue Police communes 
a la plupart des applications. S'il vaut mieux utiliser cette boite de dialogue plutot que 
d'en ecrire une vous-meme, ce n'est pas seulement parce qu'elle est standard. C'est 
aussi que vous ne pouvez savoir quelles polices de caracteres seront installees sur le PC 
de l'utilisateur. La boite de dialogue Police generee par le controle Common Dialog 
recense toutes les polices installees, et affiche le contenu de la boite de dialogue en 
consequence. 

La Figure 9.5 montre une boite de dialogue Police classique, telle que 1' affiche la 
methode ShowFont du controle Common Dialog. 



Figure 9.5 

Une boite de dialogue 
Police standard. 




Comme pour la boite de dialogue Couleurs, il faut regler les valeurs de la propriete 
Flags. Toutefois, la boite de dialogue Police etant plus complexe, les valeurs de Flags 
sont ici differentes. 
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Pour la boite de dialogue Police, V ensemble des valeurs de la propriete Flags 
peut devenir considerable. On recourt done soit a des constantes nommees, soit 
a des valeurs hexadecimales. he Tableau 9.2 presente les valeurs definissables 
pour la propriete Flags. Comme pour la plupart des taches de programmation, 
la maintenance est facilitee par I'emploi de litteraux nommes. he nom des litte- 
raux est generalement explicite, la ou les valeurs hexadecimales ne presentent 
qu'une obscure suite de caracteres. 



Tableau 9.2 : Valeurs de Flags pour la boite de dialogue Police 



Litteral nomme 


Valeur 


Description 


cdlCFANSIOnly 


&H400 


La boite de dialogue n'affichera que des caracteres 
Windows standards 


cdlCFApply 


&H200 


Affiche le bouton Applique 


cdlCFBoth 


&H3 


Recense les polices ecran ou imprimante disponibles ; 
la propriete hDC identifie le contexte de peripherique 
associe a rimprimante 


cdlCFEffects 


&H100 


Rend disponible les options Barre, Souligne, les 
attributs de couleur, etc. 


cdlCFFixedPitchOnly 


&H4000 


L'utilisateur ne pourra selectionner que des polices a 

CapaCClllCllL 11AC 


cdlCFForceFont Exist 


&H10000 


Affiche un message d'erreur si l'utilisateur tente de 
selectionner une police ou un style inexistants 


cdlCFHelpButton 


&H4 


Affiche le bouton Aide 


cdlCFLimitSize 


&H2000 


Restreint les tailles de police a la plage definie par les 
proprietes Min et Max 


cdlCFNoFaceSel 


&H80000 


Aucune police selectionnee par defaut 


cdlCFNoSimulations 


&H1000 


Interdit les simulations de polices graphiques 
independantes du peripherique (GDI) 


cdlCFNoSizeSel 


&H200000 


Aucune taille de police selectionnee par defaut 


cdlCFNoStyleSel 


&H1 00000 


Aucun style de police selectionne par defaut 


cdlCFNoVectorFonts 


&H800 


Interdit la selection de polices vectorielles 




281 < 



Partie II 



Tableau 9.2 : Valeurs de Flags pour la boite de dialogue Police (suite) 



lAttCTCil YlOmYYlC 


Vcileur 


Description 


rr11 n F P r i n + prFnn + c; 

vU-i-vl II J-l 1 L C 1 1 U 1 1 L O 


&H2 


Recense uniquement les polices imprimante 
(specifiees par la propriete hDC) 


cdlCFScalableOnly 


&H20000 


N'autorise que la selection de polices 
dimensionnables 


cdlCFScreenFonts 


&H1 


Recense uniquement les polices ecran supportees par 
le systeme 


cdlCFTTOnly 


&H40000 


N'autorise que la selection de polices TrueType 


cdlCFWYSIWYG 


&H8000 


N'autorise que la selection de polices imprimante ou 



ecran (cette valeur implique que les valeurs 
cdlCFBoth et cdlCFScalableOnly soient egalement 
definies) 



**** 



Les proprietes cdlCFScreenFonts, cdlCFPrinterFonts et cdlCFBoth doivent 
obligatoirement etre definies pour que la boite de dialogue Police s'ajfiche. Si 
vous tentez, d'appliquer la methode ShowFont, alors que ces valeurs de Flags 
n'ont pas ete definies, Visual Basic genere une erreur. 

Le Listing 9.2 met en ceuvre la boite de dialogue Police. 

Listing 92 : Afficher la boite de dialogue Police pour que vos utilisateurs choisis- 
sent dans une liste le style et la taille de la police 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



1 Definir les valeurs de Flags. 
CdbFont. Flags = cdlCFBoth Or cdlCFEffects 
CdbFont .ShowFont ' Affiche la boite de dialogue. 
' Definit les proprietes du label qui 
1 refletera les choix de l'utilisateur. 
LblMessage. Font. Name = CdbFont. FontName 
LblMessage. Font. Size = CdbFont. FontSize 
LblMessage. Font. Bold = CdbFont. FontBold 
LblMessage. Font. Italic = CdbFont. Fontltalic 
LblMessage. Font. Underline = CdbFont . FontUnderline 
LblMessage. FontStrikethru = CdbFont . FontStrikethru 
LblMessage. ForeColor = CdbFont. Color 



Examinez les affectations composites des lignes 6 a 10. Vous n'avez pas encore rencontre 
cette separation des noms de proprietes par des points. Rappelez-vous que, lorsque vous 
cliquez sur les points de suspension de la propriete Font, une boite de dialogue s'affiche et 
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propose les differentes valeurs. C'est que la propriete Font peut contenir une multitude de 
valeurs. A chaque valeur de la propriete Font correspond un style de police, une taille, une 
couleur, etc. Les noms composites doivent etre lus de droite a gauche. Reprenons 
1' instruction de la ligne 8 : 

LblMessage. Font. Bold = CdbFont . FontBold 

Cette instruction ordonne a Visual Basic d'affecter la propriete FontBold de la boite de 
dialogue (valeur True ou False) a l'attribut Bold de la propriete Font du label lblMessage. 



Les Pages de proprietes 

Toutes les proprietes des boites de dialogue communes peuvent etre definies lors de 
l'execution. Mais Visual Basic dispose d'un moyen plus simple de les configurer lors de 
la phase de creation. 

Le controle Common Dialog contient une propriete nominee (Personnalise) . 
Lorsqu'on clique sur les points de suspension de cette propriete dans la fenetre Proprie- 
tes, Visual Basic affiche la boite de dialogue Pages de proprietes (voir Figure 9.6). 



Figure 9.6 

La boite de dialogue 
Pages de proprietes 
permet de definir 
les proprietes lors de 
la creation. 



Pages de piopiiet 



Ouvrir / Enregistrer sous | Couleui U?°!i55JM m P f ' mer I Aide | 
FontName: \~ 

FontSize: [s Min; [o Max: [o T Italic 

f~ Underline 
l~ Strikethru 



HI 



Flags: 



_ 



P CancdEfn 



Cette boite de dialogue Pages de proprietes permet de definir facilement quelques 
proprietes initiales pour la boite de dialogue. II s'agit, en fait, des proprietes les plus 
importantes de chaque style de boite de dialogue. Exemple : pour selectionner par 
defaut dans la boite de dialogue Police le corps 12 et le style Gras, il suffit de saisir 12 
dans le champ FontSize, et de cocher la case Bold. 
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La boite de dialogue Ouvrir 

Le Tableau 9.3 presente les valeurs de Flags que vous devrez definir avant d'appliquer 
la methode ShowOpen. La boite de dialogue Ouvrir, reproduite en Figure 9.7, offre a 
l'utilisateur une interface standard pour selectionner le fichier a ouvrir. Ce type de boite de 
dialogue gere de facon adequate les connexions reseau. 

Les valeurs presentees au Tableau 9.3 s'appliquent egalement a la propriete 
Flags de la boite de dialogue Enregistrer. 



Tableau 9.3 : Valeurs de Flags pour les boites de dialogue Ouvrir 
et Enregistrer 



Litteral nomine 


Valeur 


Description 


cdlOFNAllowMultiselect 


&H200 


Autorise, dans la liste deroulante Nom de fichier, 
les selections multiples. La propriete FileName 
renverra alors une chaine contenant le nom des 
fichiers (separes par des espaces). 


cdlOFNCreatePrompt 


&H2000 


Invite l'utilisateur a creer un fichier. Si cette valeur 
est definie cdlOFNPathMustExist et 
CdlOFNFileMustExist doivent l'etre egalement. 


cdlOFNExplorer 


&H80000 


Affiche la boite de dialogue selon le modele 
Explorateur Windows. 


cdlOFNExtensionDif f erent 


&H400 


Indique que 1' extension du nom de fichier renvoye 
est differente de 1' extension specifiee par la 
propriete Def aultExt. Cette valeur n'est pas 
definie si la propriete Def aultExt contient Null, si 
les extensions correspondent ou si le fichier n'a pas 
d' extension. Cette valeur peut etre inspectee, une 
fois la boite de dialogue fermee. 


cdlOFNFileMustExist 


&H1000 


L'utilisateur ne peut entrer que des noms de 
fichiers existants. Si cette valeur est definie, et que 
l'utilisateur entre un nom de fichier incorrect, un 
avertissement s' affiche. Cette valeur definit 
automatiquement CdlOFNPathMustExist. 


cdlOFNHelpButton 


&H10 


Affiche le bouton Aide. 


cdlOFNHideReadOnly 


&H4 


Masque la case a cocher Lecture seule. 
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Tableau 9.3 : Valeurs de Flags pour les boites de dialogue Ouvrir 
et Enregistrer (suite) 



Litteral nomme 


Valeur 


Description 


cdlOFNLongNames 


&H200000 


Autorise les noms de fichier longs. 


cdlOFNNoChangeDir 


&H8 


Interdit le changement de dossier. 


CdlOFNNoDGrGfGPGnCGLinkS 




Interdit le dereferencement des liens shell (ou 
raccourcis). Par defaut, la selection d'un lien shell 
le dereference automatiquement aupres du shell. 


cdlOFNNoLongNamGS 


&H40000 


Interdit les noms de fichier longs. 


cdlOFNNoRGadOnlyRGturn 


&H8000 


Specifie que le fichier renvoye n'aura pas l'attribut 
Lecture seule et ne sera pas protege en ecriture. 


cdlOFNNoValidatG 


&H100 


Autorise les caracteres invalides dans le nom de 
fichier renvoye. 


cdlOFNOvGrwritGPrompt 


&H2 


Si le fichier selectionne dans la boite de dialogue 
Enregistrer sous existe deja, genere un avertisse- 
ment. (L'utilisateur peut choisir d'ecraser le 
fichier.) 


cdlOFNPathMustExist 


&H800 


Interdit les chemins d'acces non valides. Si cette 
valeur est definie et que l'utilisateur entre un 
chemin d'acces non valide, un avertissement 
s'affiche. 


cdlOFNRGadOnly 


&H1 


Coche par defaut 1' option Lecture seule. Apres la 
fermeture de la boite de dialogue, cette valeur 
indique l'etat de la case a cocher Lecture seule. 


cdlOFNSharGAwarG 


&H4000 


Specifie que les eventuelles erreurs de violation de 
partage seront ignorees. 



Souvent, dans les boites de dialogue de manipulation de fichiers, un nitre est applique 
aux extensions, de sorte que seuls apparaissent les fichiers d'une extension donnee (par 
exemple, les fichiers repondant a la selection joker *.doc). Bien sur, rien n'empeche 
l'utilisateur de passer outre a ce filtre, en appliquant un autre filtre ou en tapant *.*, 
pour afficher tous les types de fichiers. Mais vous pouvez specifier le filtre par defaut a 
l'aide de la propriete Filter : 
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Figure 9.7 

Une boite de 

dialogue Ouvrir 

generee par 

le controle Common 

Dialog. 



Explorer : |^DISK1_V0L1 (CI 



Adobe 
Z]ALW2 
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2l CORTAL 
^ DSAVTK 
I Exchange 



H M Ml *J |§ 



I I host-news LJ F 

:_JINFO_PC.CD LJ £ 

Zj Installation de Internet Explorer 4.0 LJ 1 

C^J Mes documents LJ \ 

_Il Multimedia Files LJ\ 

_ll Program Files [ ] \ 



Nom : 

1 





|Texte (-.txt) 




Annuler | 



"FilterDescripl 
FilterDescrip3 



extensionl 
extension3" 



FilterDescrip2 | extension2 



Par exemple, 1'instruction suivante applique un filtre selon lequel seuls les documents 
Word et Excel apparaitront a 1'affichage de la boite de dialogue : 

cdbFiles. Filter = "Documents Word (*.doc) |*. doc | Documents 
Excel (*.xls) | * . xls " 



US* 



0>* 



II nefaut pas confondre V extension donnee dans la description et V extension 
reelle specifiee dans le filtre. En V occurrence, Word Docs (*.doc) est ce qui 
s'ajfichera a I'utilisateur ; la premiere instruction de filtre est, en fait, le * . doc 
situe apres la barre. 



Vous pouvez specifier un filtre multiple en incluant pour Filter plusieurs chaines. Si vous 
specifiez plusieurs nitres, vous devez affecter a la propriete Filterlndex le filtre a utiliser 
dans la boite de dialogue Ouvrir courante. Pour le premier filtre, la valeur Filterlndex 
sera 1 , et ainsi de suite. 

La propriete FileName du controle Common Dialog contient, apres fermeture de la boite 
de dialogue, le nom du fichier selectionne. 



La boite de dialogue Enregistrer 

La boite de dialogue Enregistrer est a peu pres identique a la boite de dialogue Ouvrir. 
Seuls changent de menus details, tels les libelles de boutons de commande et quelques 
options. Si, par exemple, votre application exploite une interface multidocument (MDI), 
chaque document pouvant done apparaitre dans sa propre fenetre, I'utilisateur pourra faire 
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une selection multiple dans la boite de dialogue Ouvrir. Cela est, par nature, impossible 
dans une boite de dialogue Enregistrer. 

La Figure 9.8 montre a quel point la boite de dialogue Enregistrer ressemble a sa cousine 
Ouvrir. Les valeurs presentees au Tableau 9.3 s'appliquent aussi a la propriete Flags 
des boites de dialogue Enregistrer, incluant les filtres d'extensions. 



Figure 9.8 

Une boite de dialogue 
Enregistrer generee 
par le controle 
Common Dialog. 



Dans : 1 1=> DISK1.V0L1 (C:| 
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Rich Text Format (RTF) 



±1 

[" Enregistrer | 
| Annuler | 



La boite de dialogue Imprimer 

La Figure 9.9 montre la boite de dialogue Imprimer telle qu'elle s'affiche lorsque vous 
appliquez la methode ShowPrinter a un controle Common Dialog. Dans cette boite de 
dialogue, l'utilisateur peut selectionner une imprimante, indiquer le nombre de copies, 
la sequence de pages a imprimer, etc. Le nombre et le type des options de la boite de 
dialogue Imprimer depend du pilote d'imprimante de l'utilisateur. Une fois que l'utilisa- 
teur a specifie ses valeurs, votre programme interroge les proprietes du controle 
Common Dialog, et lance l'impression selon ces informations. 



Figure 9.9 

Une boite de dialogue 
Imprimer generee par 
le controle Common 
Dialog. 




Elat : Imprimante pal defaut ; Piet 

Type : Epson Stylus COLOR 500 

Emplacement: LPT1: 
Commentaiie : 



Etendue d'impiession 
G lout 




V Imp. dansfichiei 



Copies 



Nombre de copies : fl 3 
[^[J]^ TAssemb. 

Of: ] Annuler 
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Selon le type d' imprimante et de pilote, voire boite de dialogue Imprimer peut 
differer de la Figure 9.9. 



Le code du Listing 9.3 ouvre la boite de dialogue Imprimer en reponse a une selection 
de menu. 

Listing 93 : Gestion de la boite de dialogue Imprimer 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



Private mnuFilePrint_Click( ) 

Dim intBegin As Integer, intEnd As Integer 
Dim intNumCopies As Integer, intl As Integer 
' Suppose que Cancel est definie comme True. 

On Error Goto dbErrHandler 

' Affiche la boite de dialogue Imprimer. 

cbdPrint .ShowPrinter 

' Regoit les valeurs selectionnees par l'utilisateur. 
intBegin = cbdPrint. FromPage 
intEnd = cbdPrint. ToPage 
intNumCopies = cbdPrint. Copies 

' Imprime le nombre de copies demande. 
For intl = 1 To intNumCopies 

' Ici, code charge de gerer la sortie imprimante. 
Next intl 
Exit Sub 

dbErrHandler: 

' L'utilisateur a appuye sur Annuler. 

Exit Sub 
End Sub 



Comme le montre le Listing 9.3, il n'y a pas de proprietes a definir avant de pouvoir 
afficher la boite de dialogue Imprimer (sauf peut-etre la propriete DialogTitle, qui 
specif! e le texte qui apparaitra sur la barre de titre). Vous pouvez verifier les valeurs 
renvoyees par la boite de dialogue et stockees dans des proprietes comme Copies, From- 
Page ou ToPage. Ces valeurs correspondent aux selections de l'utilisateur. 
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La boite de dialogue Aide 

Pour savoir comment integrer l'aide Windows a vos programmes a partir du controle 
Common Dialog, il faudra patienter jusqu'au Chapitre 20. 



En resume 

Vous etes maintenant en mesure d'ajouter des boites de dialogue standards a vos 
programmes. Pour une boite de dialogue d'ouverture de fichier, par exemple, il vaut 
mieux offrir a vos utilisateurs une interface familiere. Vos applications n'en seront que 
plus conviviales. 

Le controle Common Dialog implique que vous definissiez certaines proprietes, puis 
que vous lui appliquiez la methode appropriee. Tout ce que fait ce controle, c'est de 
definir lui-meme des proprietes. C'est a votre code de prendre le relais des la fermeture 
de la boite de dialogue, d'interpreter les selections de l'utilisateur, et de gerer de facon 
adequate le bouton Annuler. 

Dans le prochain chapitre, vous apprendrez a suivre les mouvements de la souris afin de 
rendre vos applications reellement interactives. Vous apprendrez egalement a programmer 
les controles de type zone de liste, qui proposent diverses options a l'utilisateur. 



Questions-reponses 

Q Pourquoi le controle Common Dialog ne peut-il generer d'autres styles de 
boites de dialogue standards, tels que la boite de dialogue Zoom de Word ou 
d 'Excel ? 

R Le controle Common Dialog ne peut pas tout faire. II doit rester maniable et ne pas 
consommer trop de ressources memoire. Si les programmes Windows les plus 
courants contiennent de multiples boites de dialogue, toutes ne sont pas assez 
communes pour constituer un veritable standard. Par exemple, la plupart des appli- 
cations Windows se passent de la boite de dialogue Zoom de Word et d'Excel. Du 
reste, les feuilles et controles Visual Basic vous permettent, avec un peu de travail, 
toutes les boites de dialogue que vous voulez. 
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Q Quels controles puis-je ajouter a ma Boite a outils ? 

R Vous pouvez enrichir de controles ActiveX votre collection d' outils. Cela inclut les 
controles ActiveX que vous ecrivez vous-meme (voir Chapitre 17), ainsi que les 
controles externes. Vous trouverez des controles de ce type sur le site Web de Micro- 
soft, ainsi que sur beaucoup d'autres sites. Certaines revues specialisees proposent 
aussi, parfois, des controles "prets a l'emploi". 

Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront la mise en pratique de ce que vous avez appris. II convient de 
comprendre les reponses au quiz et aux exercices avant de passer au chapitre suivant. 
Vous trouverez ces reponses a 1' Annexe A. 

Quiz 

1 . Que faut-il faire dans la Boite a outils avant de pouvoir placer un controle Common 
Dialog sur la feuille ? 

2. Enumerez les differents styles de boites de dialogue que le controle Common Dialog 
peut generer. 

3 . A quoi sert le controle Common Dialog ? 

4. Pourquoi ne peut-on redimensionner le controle Common Dialog sur la feuille ? 

5. En fait, la boite de dialogue Ouvrir n'ouvre aucun fichier. Vrai ou faux ? 

6. A quoi sert la propriete Filter dans les boites de dialogue Ouvrir ou Enregistrer ? 

7. Que fait la propriete Flags ? 

8. Si aucune valeur de Flags n'est definie, Visual Basic ne peut afficher la boite de 
dialogue Police. Vrai ou faux ? 

9. Si aucune valeur de Flags n'est definie, Visual Basic ne peut afficher la boite de 
dialogue Imprimer. Vrai ou faux ? 

10. La methode Show affiche un controle Common Dialog. Vrai ou faux ? 
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Exercices 



1. Modifier le code du Listing 9.2 afin de gerer la selection du bouton Annuler. Assu- 
rez-vous qu'aucune propriete ne sera changee si l'utilisateur clique sur Annuler. 

2. Ecrivez une procedure qui genere la boite de dialogue Ouvrir montree a la Figure 9.10. 
Appliquez un filtre *.txt. Faites en sorte que les selections de l'utilisateur soient 
annulees s'il clique sur le bouton Annuler. 



Figure 9.10 

Creez cette boite 
de dialogue Ouvrir. 




_J CARMDEMO 



CjlNF0_PC.CD D: 

_J Installation de Internet Explorer 4 0 I 1 1 

Mes documents Cj V 

L_J Multimedia Files LJ\ 

!__] Program Files L_]\ 



_^ CORTAL 
2i DSAVTK 
_J Exchange 



Hum 



□ uvrrr 




- 1 Annuler 



1 
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Chapitre 



10 



Gestion de la souris 
et controles avarices 

Vous allez maintenant apprendre a ecrire des applications qui reagissent a l'activite de la 
souris : deplacements, clics, glisser-deposer, etc. L'utilisation de la souris est inherente a 
l'interface et aux applications Windows, et vos programmes doivent etre en mesure de 
repondre d'une maniere adequate a ce type d'evenements. 

Nous explorerons aussi un nouveau genre de controles : les controles de listes. Vous 
avez, sans nul doute, deja manipule des zones de listes dans diverses applications. Ce 
chapitre vous explique comment creer et gerer vos propres controles de listes, et detaille 
les differents types proposes par Visual Basic. 

Les controles de listes donnent a l'utilisateur le choix parmi plusieurs options prede- 
finies. Ces controles nous ameneront egalement a etudier les tableaux de variables. Les 
tableaux de variables permettront a vos applications de traiter efficacement de grandes 
quantites de donnees. 

Voici ce que nous decouvrirons aujourd'hui : 
les evenements souris ; 

• comment identifier les clics de souris ; 

• les operations de glisser-deposer ; 
le controle timer ; 
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• les controles ListBox et ComboBox ; 

comment initialiser, ajouter ou supprimer des elements de controles de listes ; 
les tableaux de variables ; 

• les tableaux de controles. 



Reponse a la souris 

La reponse a la souris est un fondement des applications Windows. Si l'utilisateur se 
sert de sa souris lors de l'execution, Windows passe les evenements souris a votre 
programme. Les programmes que vous ecrivez doivent interroger les evenements souris 
et y repondre au moment et de la facon necessaires. Si l'utilisateur se contente de 
cliquer sur un bouton d'option ou sur une case a cocher, naturellement, le programme 
n'a pas a repondre, car le controle declenche un evenement Click. Mais Visual Basic 
suit egalement les mouvements de la souris lorsque l'utilisateur effectue des glisser- 
deposer ou des copier-coller. 



En fait, les programmes Windows doivent repondre aussi bien a la souris qu'au 
clavier. Le standard Windows veut que tous les programmes puissent etre, si 
necessaire, manipulables a partir du seul clavier. Ainsi, l'utilisateur quiprefere 
le clavier ou dont la souris est hors service pourra, malgre tout, exploiter ses 
applications . Ilfaut toutefois noter que certains programmes, par nature, se 
passent difficilement de la souris. Par exemple, un programme de dessin serait 
inimaginable sans le support de la souris. 



La Boite a outils ne contient aucun controle lie a la souris. Un programme 
repond a la souris par le biais des evenements, et non par les proprietes de 
controles. 



Les evenements souris 

Le comportement du programme par rapport aux evenements souris est entierement 
parametrable. Un evenement souris peut etre declenche par les actions suivantes : 

• mouvement de la souris ; 

clic simple ; 
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double-clic ; 
clic du bouton droit ; 
• glisser-deposer. 

Ajustement du curseur 

Le curseur, ou pointeur, reflete a l'ecran les mouvements physiques de la souris sur le 
tapis. La forme du pointeur (par defaut, une fieche) est souvent modifiee par 1' applica- 
tion. Par exemple, lors d'une operation de glisser-deposer, ou lorsque l'utilisateur place 
le pointeur sur un objet indisponible. Le pointeur peut encore se transformer en sablier, 
pour indiquer qu'un traitement quelconque (tri de donnees, etc.) est en cours. 

Votre application peut controler la forme du pointeur. Le Tableau 10.1 presente les diffe- 
rents types de pointeurs disponibles. Pour changer la forme du pointeur lorsqu'il passe sur 
un controle de la feuille, il faut definir la propriete MousePointer de ce controle. A peu 
pres tous les controles disposent d'une propriete MousePointer, laquelle peut prendre l'une 
des valeurs presentees au Tableau 10.1. Ces valeurs sont a specifier en cours d'execution, 
par 1' affectation de constantes nominees, ou lors de la creation, par le reglage de la 
propriete MousePointer des controles. 



Tableau 10.1 : La forme du pointeur est modifiable 



Constante nommee 


Description 


VbArrow 


Pointeur normal (fieche) 


VbCrosshair 


Pointeur cruciforme 


Vblbeam 


Curseur de texte 


VblconPointer 


Petit carre dans un carre plus grand 


VbSizePointer 


Fieche a quatre pointes (haut, has, gauche, droite) 


VbSizeNESW 


Fieche double (nord-est et sud-ouest) 


VbSizeNS 


Fieche double (haut et has) 


VbSizeNWSE 


Fieche double (nord-ouest et sud-est) 


VbSizeWE 


Fieche double (droite et gauche) 


VbUpArrow 


Fieche vers le haut 


VbHourglass 


Sablier (attente) 
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Tableau 10.1 : La forme du pointeur est modifiable (suite) 



Constants nommsc 


Description 


VbNoDrop 


Ne pas deposer (signe semblable au "stationnement interdit") 


VbArrowHourglass 


Fleche + sablier 


vbArrowQuestion 


Fleche + point d' interrogation 


vbSizeAll 


Double fleche de redimensionnement de fenetre 


vbCustom 


Forme specifiee par la propriete Mouselcon 



1 ) Vous pouvez creer vos propres pointeurs. Le pointeur doit avoir une resolution 

PS^ 0 de 16 x 16 pixels, comme les icones. (Les fichiers d'icdnes portent V extension 
ICO ; la plupart des programmes de dessin vous permettent de creer des 
icones standards.) Pour afficher votre propre fichier icone a la place des 
pointeurs predefinis du Tableau 10.1, il suffit d'en affecter le chemin d'acces a 
la propriete Mouselcon, et de definir la propriete MousePointer comme 99 - 
Custom. La nouvelle forme restera le pointeur par defaut jusqu'd ce que vous 
en changiez de nouveau. Entre ce chapitre et le suivant, le Bonus projet 5, 
"Pratique de la souris,", vous en dira plus sur les pointeurs personnalises . 



Deplacements et dies 

Lorsque l'utilisateur deplace la souris ou clique, Windows genere des evenements souris 
et les envoie a votre programme. Si le programme ne contient pas de procedures evene- 
mentielles appropriees, ces evenements seront ignores. II faut done que le code pare a 
toute eventualite. Le Tableau 10.2 decrit chacun des evenements souris. 



Tableau 10.2 : Evenements souris generes par Windows 



Evenement 


Description 


Click 


L'utilisateur a clique sur un bouton de la souris 


DblClick 


L'utilisateur a double-clique sur un bouton de la souris 


MouseDown 


L'utilisateur a clique et maintient le bouton enfonce 


MouseMove 


L'utilisateur a deplace la souris 


Mouseup 


L'utilisateur a relache le bouton de la souris 
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Les evenements souris sont tous associes a des controles. En consultant la liste Objet de 
la fenetre Code, vous constaterez qu'il existe, de meme, des evenements souris pour 
presque tous les controles, ainsi que pour les feuilles. Par exemple, pour repondre a un 
clic sur votre feuille f rmTest, vous utiliseriez une procedure evenementielle f rmTest 
_Click(). 

Certains evenements lies aux dies de souris impliquent que vous interrogiez 
un argument de procedure evenementielle pour determiner sur quel bouton 
V utilisateur a clique. Ces arguments ne sont passes que par les procedures 
evenementielle s MouseDown et MouseUp. 

Un double-clic, est-ce un seul evenement, ou deux evenements Click ? En fait, la 
reponse depend de la vitesse de l'utilisateur. Windows fournit les evenements de clics 
dans l'ordre suivant : 

1. MouseDown 

2. MouseUp 

3. Click 

4. DblClick 

5. MouseUp 

Ainsi, l'evenement MouseDown a lieu en premier lorsque l'utilisateur clique sur un 
bouton. Ensuite vient l'evenement MouseUp, puis l'evenement Click. Enfin, les evene- 
ments DblClick et MouseUp se produisent si l'utilisateur double-clique. (Windows ne 
declenche pas d'evenement MouseDown quand l'utilisateur double-clique.) 

Les procedures evenementielles MouseDown, MouseMove et MouseUp exigent toujours ces 
quatre arguments : 

• intButton. Indique de quel bouton il s'agit : 1 pour le bouton gauche, 2 pour le 
bouton droit, et 4 pour les deux (ou pour le bouton central sur les souris a trois 
boutons). 

• intShif t. Indique, a l'aide d'une comparaison de bits, si l'utilisateur a appuye sur Alt, 
Ctrl ou Maj pendant le deplacement de la souris ou le clic. 

sngX. Coordonnee horizontale en twips correspondant au deplacement ou au clic. 

• sngY. Coordonnee verticale en twips correspondant au deplacement ou au clic. 

Visual Basic genere un evenement de mouvement pour chaque deplacement de 10 a 
15 twips, ce qui represente une infime portion de l'ecran. (Visual Basic ne reagit pas a tous 
les twips.) 
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L'instruction suivante declare une procedure evenementielle MouseDown de sorte que 
Ton voie l'ordre de transmission des arguments : 

Private Sub imgMouse_MouseDown (intButton As Integer, intShift As 
nteger, sngX As Single, 
[ic:ccc]sngY As Single) 

sngX et sngY contiennent les coordonnees en twips du clic. intButton contient 1 , 2 ou 4, 
selon le bouton sur lequel l'utilisateur a clique. II n'est pas toujours indispensable de 
savoir quel bouton a ete utilise. Si le programme doit repondre differemment aux clics 
droits et aux clics gauches, on interrogera l'evenement MouseDown. Pour savoir si l'utili- 
sateur a conjointement appuye sur Maj, Ctrl ou Alt, on precede a une verification 
comme celle qui est mise en ceuvre dans le Listing 10.1 . 

Listing 10.1 : Determiner quelles touches ont ete frappees conjointement 
a l'evenement souris 



1: Private Sub imgMouse_MouseDown( intButton As Integer, intShift 

As Integer, sngX As Single, sngY As Single) 

2: Dim intShiftState As Integer 

3: intShiftState = intShift And 7 1 And binaire. 

4: Select Case intShiftState 

5: Case 1 

6: 1 Combinaisons Maj . 

7: Case 2 

8: 1 Combinaisons Ctrl. 

9: Case 3 

10: 1 Combinaisons Alt. 

11 : Case 4 

12: 1 Combinaisons Maj -Ctrl. 

13: Case 5 

14: 1 Combinaisons Maj-Alt. 

15: Case 6 

16: 1 Combinaisons Ctrl-Alt. 

17: Case 7 

18: ' Combinaisons Maj-Ctrl-Alt. 

19: End Select 

20: End Sub 



A la ligne 3, la comparaison And speciale interroge un bit interne pour determiner les 
touches conjointement utilisees. 

Faire 

Interrogez les combinaisons touches! souris lorsque vos applications permet- 
tent la selection de texte avec la louche Maj, ou la selection multiple avec la 
touche Ctrl. Beaucoup de controles, tels que les zones de listes, que vous 
decouvrirez, plus loin, gerent automatiquement les combinaisons Ctrl-souris 
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pour la selection des elements. Pour ces contrdles, vous n'avez done pas a 
vous occuper de ce type d'evenements clavier! souris . 

Le Projet bonus 5, situe entre ce chapitre et le suivant, contient le code 
d'une application complete qui met en ceuvre la gestion des mouvements et 
des dies de souris. 

Les operations de glisser-deposer 

Votre application doit egalement, si necessaire, etre en mesure de suivre les operations 
de glisser-deposer. Le glisser-deposer est l'operation pendant laquelle l'utilisateur 
clique sur un objet, maintient le bouton enfonce, et fait glisser l'objet vers un autre 
emplacement. La programmation du glisser-deposer est fort simple, car le systeme 
d' exploitation Windows envoie tout au long de l'operation les informations adequates. 

Visual Basic supporte deux types d'operations de glisser-deposer : 

le glisser-deposer automatique ; 

le glisser-deposer manuel. 

La premiere methode est la plus simple. Le glisser-deposer automatiquement se gere a 
l'aide de proprietes de controles. A peu pres tous les controles de la Boite a outils disposent 
de la propriete DragMode. Cette propriete permet a l'utilisateur de deplacer le controle avec 
la souris. Au cours du deplacement, Visual Basic affiche la silhouette du controle. II reste a 
s'assurer que le controle arrive bien a destination, la oil l'utilisateur relache le bouton. Si le 
glisser-deposer automatique illustre le deplacement, il ne deplace pas reellement l'objet. 

L'evenement DragDrop de la feuille determine le point de chute de l'objet. Pour configu- 
rer le glisser, il suffit de definir la propriete DragMode du controle comme 1 - Automatic. 
Le controle peut alors etre deplace par glissement, et la silhouette suivra le deplace- 
ment. La procedure evenementielle Form_DragDrop( ) prend en charge la suite de 
l'operation, et place le controle a l'endroit voulu. 

Par defaut, e'est la silhouette du controle qui apparait lors du deplacement. Vous pouvez 
remplacer cette silhouette par une icone specifique, en affectant a la propriete Draglcon le 
chemin d'acces d'un quelconque fichier icone (par exemple, les fichiers fournis avec 
Visual Basic dans le dossier \Graphics). Cette icone apparaitra en lieu et place de la 
silhouette reelle lors du glisser-deposer. Quand un utilisateur fera glisser le controle, 
l'icone se substituera au pointeur. Voici un exemple de code gerant le glisser-deposer : 

1: Private Sub f rmTitle_DragDrop (Source As Control, X As Single, Y As Single) 

■ 2: ' Ici, le controle deplace 

3: ' est passe comme argument. 
4: Source. Move X, Y ' Deplace le controle. 

5: End Sub 
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A la ligne 4, la methode Move applique au controle les coordonnees de son nouvel 
emplacement (la oil l'utilisateur a relache le bouton). 

L 'evenement DragOver a lieu lorsque l'utilisateur fait glisser un controle sur 
un autre. Pour indiquer qu'une telle operation n'est pas permise par le 
controle de destination, vous pouvez modifier I'icone. II suffit, pour cela, de 
changer le pointeur dans les procedures evenementielle s DragOver des 
controles qui n'acceptent pas qu'on depose un objet dessus. DragOver peut 
recevoir quatre arguments : 

• le controle ; 

• les coordonnees x du pointeur ; 

• les coordonnees y du pointeur ; 

• Vetat du deplacement, qui prend trois valeurs differentes : Id (le deplace- 
ment atteint V objet), 1 (le deplacement quitte V objet), et 2 (le controle est 
deplace au-dessus de V objet). 



Le glisser-deposer manuel fonctionne comme le glisser-deposer automatique, a trois 
differences pres : 

La propriete DragMode doit etre defmie comme 0 - Manual. 

• Le controle repond a un evenement MouseDown avant le debut du deplacement, de sorte 
que les coordonnees initiales du controle soient enregistrees. 

Le code est ajoute dans la procedure evenementielle MouseDown. 

Pour achever le glisser-deposer, la procedure evenementielle MouseDown applique a 
l'objet la methode Drag. Le code suivant deplace l'image a condition que la propriete 
DragMode du controle image soit definie comme 0 - Manual : 

Private Sub imgMouse_MouseDown (Button As Integer, Shift As 
Integer, X As Single, Y As Single) 
' On a clique sur l'image. 

txtMouse.Text = "On a clique sur l'image a la position " & X & "," & Y 
imgMouse.Drag 
End Sub 

La methode Drag autorise le glisser-deposer. Sans la methode Drag, la procedure evene- 
mentielle MouseDown ( ) ne peut gerer l'operation. On se sert du glisser-deposer manuel 
pour imposer des restrictions au deplacement, avant et pendant l'operation. 




Le Projet bonus 7 situe apres le Chapitre 14, propose une application qui met 
en ceuvre les dies du bouton droit et les menus contextuels. 
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Les contrdles ListBox 

Vous allez maintenant decouvrir les autres controles qui apparaissent dans la Boite a 
outils. Les controles que nous allons etudier exigent un peu de programmation pour 
fonctionner. II ne suffit pas, comme pour les boutons de commande, de les disposer sur la 
feuille ; il faut aussi les initialiser, ce qui n'est faisable qu'a partir du code. Par exemple, 
vous ne pouvez pas remplir une zone de liste deroulante de ses elements lors de la phase 
de creation. Les controles multivaleurs ne s'initialisent pas aussi facilement que les labels. 
Pour cela, il faut programmer. 

Voici les differents types de zones de liste : 

zone de liste simple ; 

• ComboBox liste deroulante ; 

• ComboBox simple ; 

• ComboBox deroulante. 



Les zones de liste simples 



Le controle zone de liste simple permet a l'utilisateur de selectionner un ou plusieurs 
elements dans une liste predefinie. Pour ajouter une zone de liste simple a votre feuille, 
double-cliquez sur le controle ListBox de la Boite a outils. 

On peut initialiser depuis la fenetre Proprietes certaines proprietes des zones 
de liste : position, taille, couleur, etc. II n'en va pas de mime pour la liste des 
valeurs du controle. 



Si vous n'initialiserez. pas, en general, la liste de valeurs du controle ListBox 
depuis la fenetre Proprietes, c'est que Visual Basic vous permet de lefaire lors 
de V execution. Dans la fenetre Proprietes, cliquez sur la propriete List d'un 
controle ListBox : une liste s'affiche, dans laquelle vous pouvez ajouter des 
valeurs. Mais les valeurs des contrdles ListBox, la plupart du temps, viennent 
de l'utilisateur ou d' autres sources de donnees. Seules devraient etre 
initialisees depuis la fenetre Proprietes les petites zones de liste dont les valeurs 
ne sont pas appelees a changer. Pour le reste, vous utiliserez des methodes qui 
construisent la liste au cours de V execution, ce qu'explique la suite de ce 
chapitre. 

Pour ajouter des elements a une liste, on se sert de la methode Addltem (voir 
Listing 10.2). 
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1: Private Sub Form_Load() 

2: ' Initialise les valeurs du controle. 

3: IstColors.Addltem "Rouge" 

4: IstColors.Addltem "Bleu" 

5: IstColors.Addltem "Vert" 

6: IstColors.Addltem "Jaune" 

7: IstColors.Addltem "Orange" 

8: IstColors.Addltem "Blanc" 

9: End Sub 



La procedure evenementielle Form_Load ( ) charge les valeurs initiales. Naturellement, le 
plus gros des valeurs sera ajoute lors de l'execution. Grace a la procedure evenemen- 
tielle Form_Load ( ) , la partie disponible des valeurs sera deja chargee lorsque l'utilisateur 
affichera la feuille contenant la zone de liste. Au demarrage du programme, le module 
d'execution charge les feuilles. Le chargement des feuilles declenche l'evenement Load. 
Les commandes Load et Unload permettent de specifier a quel moment precis une feuille 
doit etre chargee, ou dechargee pour liberer des ressources. 

Apres le chargement des valeurs initiales, c'est la methode Addltem qui permettra d'ajouter 
les autres elements en cours d'execution. Le Listing 10.2 donnait en exemple l'applica- 
tion de Addltem a la zone de liste nommee IstColors. II suffit de specifier l'element apres 
le nom de la methode. Les elements seront ajoutes a la liste dans l'ordre selon lequel 
vous les avez entres — a moins que vous ne definissiez la propriete Sorted comme True, 
auquel cas les elements apparaitront dans l'ordre alphabetique ou numerique. 



— 1 L' initialisation des valeurs de la propriete List depuis la fenitre Proprietes 
rend la maintenance moins aisee. Si les valeurs initiales sont specifies dans le 
code, il sera plus simple d'ajouter des elements par la suite. 



L' instruction suivante ajoute la couleur Aqua a la liste configured dans la procedure 
evenementielle Form_Load() : 



IstColors.Addltem "Aqua" 



' // n'est pas toujours evident de distinguer commandes, declarations, methodes, 

ps^* 06 proprietes et controles. Considerez la methode comme une sorte de requite que 
Vobjet fait pour lui-meme. Ainsi, IstColors .Addltem "Aqua " ne signifie rien 
d'autre que : "Ajoute-moi un element nomme Aqua". En tant que controle 
ListBox, IstColors sait comment repondre a cette requite, parce que la 
methode fait partie de son repertoire. La plupart des controles disposent de 
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leur propre jeu de methodes . A propos des contrdles externes que vous pourrez 
ajouter, la liste des methodes est generalement fournie dans la documentation. 

La procedure Form_Load( ) ci-dessus charge une feuille avec, en son centre, la zone de 
liste IstColors. (Voir Figure 10.1.) 



Figure 10.1 

La zone de liste contient 
les elements specifies. 




Couleurs 



Si vous initialisez des valeurs de la zone de liste lors de la creation, ilfaut vider 
la propriete List dans la fenetre Proprietes apres avoir nomme le controle. 
Visual Basic affiche automatiquement le nom du controle ListBox comme 
premier element de la liste. 

La Figure 10.1 montre une zone de liste simple. 

Une zone de liste simple affiche les elements specifies dans la liste des valeurs. 
C'est le programmeur qui initialise la liste ; I'utilisateur ne peut ajouter direc- 
tement des elements. 

Si la hauteur ou la largeur de la zone de liste ne permet pas d'afficher tous les elements, 
des barres de defilement verticale et horizontale apparaissent. Et si des valeurs viennent 
s'ajouter a la liste dans le cours de l'execution, Visual Basic ajoute automatiquement les 
barres de defilement. 

Le but de la zone de liste est de permettre a I'utilisateur de choisir dans une liste plutot que 
d'avoir a saisir les valeurs. Lorsque I'utilisateur selectionne un element de la liste, voici ce 
qui se passe : 

• L' element selectionne est mis en surbrillance. 

• La selection est copiee dans la propriete Text de la zone de liste. Ainsi, IstColors . Text 
change au cours de l'execution, selon les choix de I'utilisateur. 

Text ne peut contenir qu'une seule valeur. Pour mieux illustrer cette propriete, imagi- 
nons qu'une zone de texte nommee txtColor soit ajoutee a la feuille de la Figure 10.1. 




303 < 



Partie II 



Des que l'utilisateur fait une selection dans IstColors, la procedure suivante envoie 
1' element a la zone de texte : 



Private Sub lstColors_Click( ) 

' Copie 1' element selectionne dans la zone de texte. 

txtColor.Text = IstColors. Text 
End Sub 



Si vous placez sur la feuille une zone de texte destinee a afficher l'element selectionne, 
il faut vider la propriete Text de la zone de texte dans la fenetre Proprietes. De la sorte, 
rien n'apparaitra avant que l'utilisateur n'ait effectue une selection. La propriete Font 
des zones de texte doit presque toujours etre modifiee, car la valeur par defaut donne un 
affichage trop petit. Pour afficher plus d'un element a la fois, il peut aussi etre necessaire 
d'agrandir la zone de liste. Dans la Figure 10.2, l'element selectionne dans la zone de 
liste a ete envoy e a la zone de texte. 



Figure 10.2 

La zone de texte 
contient l'element 
de liste selectionne. 



:TnIx] 



Jaune 



Couleurs 



L'element selectionne 
apparaTt ici 



Chaque element de la zone de liste se voit affecter une valeur index, pour etre distingue 
des autres. L' index commence a 0 pour le premier element, et ainsi de suite (il ne peut y 
avoir de doublons). La propriete Listlndex de la zone de liste contient la valeur d'index 
de l'element selectionne. Vous pouvez ainsi determiner quel element a ete choisi. 
D'autres methodes du controle ListBox, telles que Removeltem, se servent des valeurs de 
la propriete Listlndex. Par exemple, pour retirer le troisieme element de la liste, voici 
ce que serait le code : 

IstColors. Removeltem 2 

A chaque suppression d'un element, les valeurs d'index sont automatiquement renume- 
rotees. Exemple : le quatrieme element de la liste a la valeur d'index 3 (rappelons que 
l'index commence a 0), mais si vous supprimez un element situe avant, le quatrieme 
element deviendra le troisieme, et prendra 2 pour valeur d'index. Si la propriete Sorted 
est defmie comme True, Visual Basic retrie les valeurs d'index apres chaque ajout ou 
suppression. 
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Vous pouvez, si necessaire, permettre a Vutilisateur de faire des selections 
multiples dans la zone de liste. Vutilisateur appuie sur la touche Ctrl et 
clique sur divers elements. Mais la propriete Value de la zone de liste ne 
peut contenir toutes les valeurs selectionnees . Que faire ? Vous I'apprendrez 
dans le Projet bonus 5, a la suite du Chapitre 11. 

Les valeurs d'index des zones de liste ressemblent beaucoup aux tableaux, 
que nous etudierons a la fin de ce chapitre. 

L'utilisateur ne peut lui-meme ajouter des valeurs a la zone de liste. Cela, seul le code 
peut le faire, a l'aide de la methode Addltem. L'utilisateur ne peut, non plus, supprimer 
des elements. C'est le privilege de la methode Removeltem. 

Supposons qu'il faille retirer tous les elements que nous avons ajoutes a la zone de liste. 
On pourrait appliquer la methode Removeltem a chacun. Mais il y a plus simple : une 
boucle For. Le code suivant reprend l'exemple de la zone de liste IstColors : 



1 Supprime les cinq elements de la liste. 
For intl = 0 To 5 

IstColors. Removeltem 0 
Next intl 



Naturellement, pour vider entierement la liste a l'aide d'une boucle For, il faut connaitre 
le nombre exact des elements. Mais, chaque element ayant ete ajoute dans le code, cela 
ne devrait pas etre bien difficile. 

On peut aussi permettre a l'utilisateur d'ajouter des valeurs a la liste, a l'aide, par exem- 
ple, d'une zone de texte et d'un bouton de commande qui declencherait la methode 
Addltem. Meme dans un tel cas, il reste possible de tenir une comptabilite precise des 
valeurs de la liste, via une variable qui serait incremented ou decremented chaque fois 
que l'utilisateur ajoute ou supprime un element. 

En realite, il est inutile de recourir a une variable compteur de ce type. Visual Basic se 
charge, en interne, de suivre revolution du contenu de la liste. La propriete ListCount 
contient et met a jour le nombre total des elements de la liste. La valeur de ListCount est 
toujours superieure a la plus grande valeur de Listlndex, puisque Listlndex commence a 0. 

Ainsi, pour connaitre le nombre actuel des elements de la liste, ou pour leur appliquer 
une methode a l'interieur d'une boucle For, la propriete ListCount peut etre utilised 
comme ceci : 



1 Supprime tous les elements de la liste. 
intTotal = IstColors. ListCount 1 Stocke le nombre. 
For intl = 1 To intTotal 
IstColors. Removeltem 0 
Next intl 
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Le controle ListBox dispose d'une methode, Clear, qui supprime instantane- 
ment tous les elements, sans qu'une boucle soit necessaire. Si done vous voulez 
vider completement la liste, I 'instruction IstColors . Clear est ce qui sefait de 
plus simple. 



Les contrdles Combo Box 

Le controle ComboBox est disponible en trois parfums 

• ComboBox liste deroulante ; 

• ComboBox simple ; 

• ComboBox deroulante. 



Alors que la zone de liste apparait toujours dans la forme et la tattle que vous 
lui avez attributes, la ComboBox liste deroulante ( ou zone de liste deroulante 
modifiable) s'affiche sur une seule ligne jusqu'a ce que I'utilisateur clique 
dessus pour I'ouvrir. 

La ComboBox simple est une zone de liste simple combinee a une zone de texte. 
L'utilisateur peut ajouter des elements a la liste en entrant des valeurs dans la 
zone de texte connexe. 



La ComboBox deroulante (ou zone de liste deroulante fixe) n'occupe sur la 
feuille qu'une seule ligne, jusqu'a ce que I'utilisateur selectionne le controle. 
Alors seulement, la ComboBox s'ouvre et affiche la liste des elements. L'utilisa- 
teur peut selectionner un element ou entrer une nouvelle valeur dans la zone de 
texte connexe. 

Pour ce qui est de Initialisation et de la manipulation a partir du code, les controles 
ComboBox fonctionnent comme les zones de liste. La difference principale tient a 
l'aspect sur la feuille et a la facon dont I'utilisateur y opere ses selections. 

Les trois sortes de ComboBox s'obtiennent a partir du meme controle ComboBox de la 
Boite a outils. Apres avoir place le controle sur la feuille, vous en specifiez le type a 
l'aide de la propriete Style. Le style par defaut est 0 - Dropdown Combo (ComboBox 
deroulante). 

Rappelez-vous que la propriete Sorted trie automatiquement les elements de la 
liste, selon I'ordre alphabetique ou numerique ; et cela, meme si I'utilisateur 
ajoute des valeurs. Si la propriete Sorted n'est pas definie comme True, les 
elements apparaitront dans I'ordre dans lequel ils ont ete ajoutes. 
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La ComboBox liste deroulante fonctionne comme une zone de liste, a cela pres que 
cette derniere occupe generalement plus de place sur la feuille. La ComboBox liste 
deroulante ne s'ouvre pour afficher son contenu que lorsque l'utilisateur clique sur la 
petite fleche. 

La Figure 10.3 montre une feuille presentant deux ComboBox liste deroulante, qui 
contiennent les memes elements. Avant que celle de droite n'ait ete deroulee, les deux 
ComboBox occupaient le meme espace sur la feuille. 



Figure 10.3 

Avant que l'utilisateur 
ne la selectionne, 
la ComboBox liste 
deroulante occupe 
tres peu d 'espace. 




On se sert des ComboBox liste deroulante pour offrir a l'utilisateur de multiples choix 
tout en economisant de l'espace sur la feuille. Comme vous pouvez le voir sur la 
Figure 10.3, la ComboBox liste deroulante n'affiche pas de texte tant que l'utilisateur ne 
l'a pas selectionnee. II convient done d'indiquer a l'utilisateur, via un label ou une boite 
de message, quels types d'elements lui sont proposes. 

On ajoute des entrees aux ComboBox liste deroulante comme aux zones de liste : par la 
methode Addltem. Le code suivant ajoute six couleurs aux controles de la Figure 10.3 : 

Private Sub Form_Load() 

' Initialise les deux ComboBox. 

cboColon .Addltem "Rouge" 

cboColoM .Addltem "Bleu" 

cboColon .Addltem "Vert" 

cboColon .Addltem "Jaune" 

cboColon .Addltem "Orange" 

cboColon .Addltem "Blanc" 

cboColor2. Addltem "Rouge" 
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cboColor2.AddItem "Bleu" 
cboColor2.AddItem "Vert" 
cboColor2.AddItem "Jaune" 
cboColor2.AddItem "Orange" 
cboColor2.AddItem "Blanc" 
End Sub 

Les ComboBox liste deroulante supportent les memes methodes et les memes proprie- 
tes que les zones de liste. 

Le deuxieme style de Comb oBox, la ComboBox simple, fonctionne comme une 
combinaison de zone de liste et de zone de texte. Ainsi, l'utilisateur peut selectionner un 
element ou en entrer un nouveau. Lorsque la propriete Style est definie comme 1 - 
Simple Combo, le controle peut etre dimensionne comme une zone de liste. Si, a un 
moment donne de 1' execution, la hauteur et la largeur specifiers ne permettent pas 
d'afficher tout le contenu, des barres de defilement s'affichent automatiquement. 

Sur la Figure 10.4, la liste des couleurs est contenue dans une ComboBox simple. 
Les elements sont ajoutes a Taide de la methode Addltem ; les utilisateurs peuvent aussi 
entrer de nouvelles valeurs. Apres avoir dispose le controle sur la feuille, vous devez en 
effacer la propriete Text. Autrement, le nom du controle apparaitrait dans le champ de la 
zone de texte. Vous pouvez aussi bien specifier dans cette propriete Text une valeur par 
defaut, que l'utilisateur sera libre d'accepter ou de modifier. 

Figure 10.4 

L'utilisateur peut 
selectionner 
une couleurs 
ou entrer 

une nouvelle valeur. 




Dans la ComboBox simple de la Figure 10.4, les couleurs apparaissent dans l'ordre 
alphabetique. Vous avez devine ? Eh oui, la propriete Sorted est definie comme True. 
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__i — ) Si la propriete Style de la ComboBox simple est definie comme 1 - Simple 
ypSo Combo, vous devez specifier les dimensions du contrdle. A la difference des 

' listes deroulantes, les ComboBox simples gardent la taille qui leur a ete 

attribute. 



La ComboBox simple n'ajoute pas automatiquement les entrees utilisateur. C'est a vous et 
a votre code de faire en sorte que le contenu soit mis a jour — si, du moins, l'utilisateur est 
autorise a entrer de nouvelles valeurs. Les ComboBox simples ne servent generalement 
qu'a proposer a l'utilisateur des choix predefinis. Pour lui permettre d'ajouter des 
elements, vous devez ecrire pour le controle une procedure evenementielle LostFocus( ) , 
comme celle-ci : 

8 Private Sub cboColor_LostFocus() 
cboColor2.AddItem cboColorl .Text 
End Sub 

La procedure evenementielle LostFocus() s'execute lorsque le controle perd le focus, 
ce qui se produit quand l'utilisateur clique sur un autre controle, ou deplace le focus en 
appuyant sur Tab. Des que le focus passe a un autre controle, la procedure evene- 
mentielle LostFocus ( ) s'execute, et la valeur entree par l'utilisateur dans la ComboBox 
(valeur stockee dans la propriete Text) est affectee a l'aide de la methode Addltem. La 
feuille de la Figure 10.4 contenait un bouton de commande, car le focus doit passer a un 
autre controle pour que la valeur saisie par l'utilisateur soit enregistree. C'est a cette 
seule condition que de nouvelles entrees sont ajoutees aux ComboBox simples. 

La ComboBox deroulante est, sans doute, la plus interessante. Le controle reste ferme 
jusqu'a ce que l'utilisateur le selectionne ; ce qui economise de la place. Dans la 
ComboBox deroulee, l'utilisateur peut selectionner une valeur existante ou ajouter un 
nouvel element. Selected, ListCount, ainsi que d'autres proprietes des zones de liste 
qui s'appliquent egalement aux ComboBox deroulantes. Contrairement aux zones de 
liste deroulante, les ComboBox deroulantes autorisent l'ajout de nouveaux elements. 

Assurez-vous que la propriete Style du controle est bien definie comme 0 - Dropdown 
Combo (valeur par defaut). La Figure 10.5 reprend l'exemple de la liste de couleurs — 
mais, cette fois, c'est une ComboBox deroulante qui est utilisee. 

Prenez garde de bien vider la propriete Text du controle lorsque vous disposez votre 
ComboBox deroulante sur la feuille ; sans quoi, le nom du controle apparaitrait dans la 
zone de texte. Comme pour la ComboBox simple, les valeurs eventuellement ajoutees 
par l'utilisateur ne sont stockees qu'a partir du moment oil le controle perd le focus. 
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Figure 10.5 

L'utilisateur peut 

selectionner 

un element ou entrer 

line nouvelle valeur. 



M3 



Quelle est votre 
couleur preferee ? 



Noir! 




Rouge 




Vert 






Bleu 






Jaune 




Orange 





Ajoutet une 
couieur 



Le controle Timer 

Le controle Timer vous permet de generer des reponses sur la base des valeurs envoyees 
par l'horloge interne du PC. Vous pouvez ainsi ecrire un code qui s'executera au bout 
d'un certain laps de temps, ou programmer des traitements en arriere-plan. L'horloge 
interne declenche un evenement timer dix-huit fois par seconde. Cette horloge est 
capitale pour le fonctionnement du processeur, de la memoire et du disque dur, les 
donnees etant traitees selon un ordre tres strict. 




Votre PC genere un evenement timer dix-huit fois par seconde, quelle que soit 
la vitesse du processeur. 



Les applications Visual Basic repondent aux evenements timer. Ces evenements sont 
generes par l'horloge interne du PC, et Windows les envoie au programme en cours 
d'execution. Vous pouvez predefinir l'intervalle de temps dans lequel Windows envoie 
cette information a votre programme. Comme pour les autres evenements, vous pouvez 
aussi ecrire des procedures evenementielles qui s'executeront chaque fois qu'un evene- 
ment timer aura lieu. Retenez ceci : le code peut s'executer sur la base d'intervalles de 
temps, independamment de la vitesse du PC, parce que le temps est une constante. 

Le controle Timer recoit les evenements timer et y repond en fonction des proprietes 
que vous avez definies. Lorsque vous disposez le controle Timer sur la feuille, vous 
determinez la frequence des evenements timer. Cet intervalle correspond a l'une des 
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proprieties du controle Timer. Lorsque ce laps de temps s'est ecoule, le controle Timer 
declenche la procedure evenementielle appropriee. 



Comme pour les autres contrdles, vous pouvez placer sur la feuille autant de 
contrdles Timer que vous voulez- Par exemple, vous pouvez placer trois contrd- 
les Timer differents, dont I'un declenchera un evenement specifique toutes les 
minutes, V autre toutes les demi-heures, et le troisieme toutes les heures. 



1 C'est en experimental que vous decouvrirez tous les emplois possibles du 

ps^ 0 controle Timer. Les procedures evenementielles Timer permettent, notamment, 
de piloter des tdches en arriere-plan. II est aussi possible de simuler une 
animation en redessinant une image a chaque declenchement de V evenement, 
par exemple toutes les demi-secondes. 



Pour disposer le controle Timer sur la feuille, double-cliquez sur l'outil correspondant 
de la Boite a outils, puis placez le controle resultant a l'ecart des autres controles de la 
feuille. Comme le controle Common Dialog, le controle Timer ne peut etre dimensionne, 
et n'apparait pas sur la feuille lors de 1' execution. 

La Figure 10.6 montre un controle Timer au centre de la feuille. 



Figure 10.6 

Le controle Timer 
peut etre deplace sur 
la feuille, mais non 
redimensionne . 



Le controle Timer supporte tres peu de proprietes. Des six proprietes definissables lors 
de la creation, cinq sont plutot communes : 

Left et Top specifient la position du controle. 

Enabled active le controle. 

Tag contient les informations que vous etes libre d'adjoindre au controle. 
Index specifie l'indice du controle dans un tableau de controle. 
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Si vous definissez comme False la propriete Enabled lors de la creation, le 
controle Timer ne commencera a repondre aux evenements que lorsque le code 
definira Enabled comme True. 

La seule propriete reellement specifique au controle Timer est Interval. La propriete 
Interval specifie la frequence a laquelle le controle repondra aux evenements. Cet 
intervalle en millisecondes peut etre defini lors de la creation ou lors de l'execution. Si, 
par exemple, vous affectez a la propriete Interval la valeur 1000, les evenements timer 
se produiront toutes les 1 000 millisecondes, soit une fois par seconde environ. 

Evidemment, le controle Timer connait quelques limites. Notamment, la propriete 
Interval ne peut contenir que des valeurs situees entre 0 et 64,767. Lintervalle maxi- 
mal sera done de 65 secondes, pas plus. II est cependant possible, dans la procedure 
evenementielle Timer du controle, d'ignorer les evenements jusqu'a ce qu'un certain 
laps de temps se soit ecoule. Ainsi, meme si la procedure evenementielle du controle se 
declenche toutes les 60 secondes, vous pouvez faire en sorte que les evenements ne 
rencontrent une reponse qu'une heure (ou deux, ou plus) apres la derniere execution de 
la procedure evenementielle. 



Le controle Timer n'est pas d'une exactitude absolue. Les cristaux a Vinterieur 
de I'ordinateur sont tres precis, mais le temps que Windows envoie V evenement 
au programme, un peu de cette precision s'est perdu. En outre, d'autres evene- 
ments sy steme (transfert par reseau, activite du modem, etc.) peuvent ralentir 
I'activite du timer. Malgre les apparences, I'ordinateur ne peut reellement pas 
faire deux choses a la fois, et le controle Timer de votre application Visual 
Basic n'a pas toujour s la priorite. Conclusion : le controle Timer est efficace 
pour des tach.es reclamant une ponctualite a la seconde pres. Visual Basic ne 
dispose pas de controles plus precis. 

Le controle Timer ne supporte qu'un seul evenement : l'evenement Timer. Ainsi, pour 
un controle Timer nomme tmrClock, vous ne pourrez ecrire qu'une seule procedure 
evenementielle: tmrClock_Timer( ) . Cette procedure contiendra le code qui doit 
s'executer chaque fois que s' ecoule 1' intervalle specifie. 

A titre d'exercice, nous vous invitons a creer une application simple qui mette en ceuvre 
le controle Timer. Suivez ces etapes : 

1 . Creez un nouveau projet et placez un controle Timer sur la feuille. 

2. Affectez a la propriete Interval la valeur 1000, de sorte que le controle reponde a la 
procedure evenementielle toutes les secondes. 
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3. Nommez le controle tmrTimen et placez-le dans le coin inferieur gauche de la 
feuille. 

4. Ajoutez, a cote du premier, un controle Timer nomme tmrTimer2. Affectez a sa 
propriete Interval la valeur 500, de sorte que le controle reponde a la procedure 
evenementielle toutes les demi-secondes. 

5. Ajoutez a la feuille deux zones de texte nominees txtTimel et txtTime2. Disposez- 
les conformement a la Figure 10.7. 



Figure 10.7 

L' application timer 
est presque terminee. 




6. Affectez la valeur 1 a la propriete Text de chaque zone de texte, et reglez la taille de 
la police a 18. Definissez egalement les deux proprietes Alignment comme 2 - 
Center, de sorte que le texte soit centre dans les zones de texte. Affectez enfin aux 
deux proprietes Width la valeur 1 000. 

7. Double-cliquez sur le premier controle Timer. Dans la fenetre Code qui s'affiche, 
entrez la procedure evenementielle tmrTimel_Timer( ) suivante (Visual Basic insere 
automatiquement les lignes d'encadrement) : 

Private Sub tmrTimer1_Timer( ) 
' Ajoute 1 a la valeur affichee. 
txtTimerl .Text = txtTimerl .Text + 1 
End Sub 

8. Ajoutez au second timer la procedure evenementielle suivante : 

Private Sub tmrTimer2_Timer( ) 

1 Ajoute 1 a la valeur affichee. 

txtTimer2.Text = txtTimer2.Text + 1 
End Sub 

Ce code incremente de 1 la valeur des zones de texte (ces valeurs sont par defaut de 
type Variant). 
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9. Ajoutez un label sous chaque zone de texte : "Lent" pour la premiere ; et "Rapide" 
pour la seconde. 

10. Executez l'application. Votre feuille devrait ressembler a la Figure 10.8. Voici ce qui se 
produit : la premiere zone de texte s'actualise toutes les secondes, 1' autre toutes les 
demi-secondes. Dans les limites de la precision du controle Timer, la seconde zone de 
texte devrait done se mettre a jour deux fois plus rapidement que la premiere. 

Figure 10.8 BB^^^^^^^^HZHE] 

Les deux zones de 
texte s 'actualisent 
a des intervalles 
differents. 




Les tableaux 



Nous avons vu que les controles ListBox exploitent les valeurs d'index. Chaque element 
de la liste se voit attribuer une valeur d'index : 0 pour le premier, 1 pour le deuxieme, et 
ainsi de suite. La zone de liste en elle-meme est unique, mais elle peut recouvrir une 
multitude de valeurs. Ces valeurs se distinguent par leur valeur d'index. 

Cette indexation des elements de liste offrent une analogie interessante avec le concept que 
nous allons maintenant etudier : les tableaux. La zone de liste est un controle avec des 
elements indexes. Un tableau est une liste de variables qui contient des elements 
indexes. La terminologie exacte nomme les valeurs d'index des tableaux des indices. 



•0 s 



Un tableau est une liste de variables, de noms et de types de donnees identi- 
ques. Le terme indice designe chaque variable de la liste. 



L'indice est la valeur d'index d'un element de tableau. 



Les variables suivantes sont proprement individuelles et ne font pas partie d'un tableau : 
intCount curPay sngLength strDeptCode 
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Les variables individuelles se preterit bien au stockage de valeurs individuelles (la prime 
accordee a tel ou tel commercial, etc.)- En revanche, pour stocker une liste de valeurs 
similaires, on se servira plutot d'un tableau. 

II ne s'agit pas, une fois que vous saurez declarer et utiliser les tableaux, d'y stocker toutes 
vos donnees Visual Basic. Pour les boucles ou les entrees utilisateur, vous continuerez a 
employer les variables individuelles, faites pour cela. Les tableaux, eux, sont faits pour 
recevoir des listes de donnees. En cas d'occurrences multiples de donnees devant etre 
suivies dans votre application (par exemple, les champs d'une table lue en memoire), les 
tableaux permettront de stocker d'une facon adequate les donnees. 

Imaginons que vous ayez a etablir des statistiques au sujet des primes accordees a 
100 commerciaux. Vous devez calculer, pour toutes ces primes, la moyenne, le maxi- 
mum, le minimum et la variation moyenne des valeurs. Vous pouvez declarer 100 variables, 
chacune portant un nom different, tel que curBonusl , curBonus2, etc. Et pour cumuler 
tout 5a ? II faudrait, pour chaque addition ou chaque comparaison, repeter les 100 varia- 
bles dans une meme instruction... C'est la qu'interviennent les tableaux. Au lieu de 
declarer 100 variables, vous declarez un seul tableau, portant un seul et meme nom, et 
contenant la liste des 100 primes. Pour parcourir les valeurs du tableau, nul besoin de 
lister les 100 variables ; il suffrt d'une boucle For qui passe d'un indice a l'autre, de 1 a 
100. Sans l'aide des tableaux, de telles manipulations seraient quasi impensables. 

Pour mieux illustrer cet exemple, voici un fragment du code qui aurait servi a addition- 
ner les 100 variables individuelles : 

curTotal = curBonusl + curBonus2 + curBonus3 + curBonus4 + . . . 

Et voici, en comparaison, le code qui additionne les 100 valeurs du tableau : 

8 For intCtr = 1 To 100 
curTotal = curTotal + curBonus(intCtr) 
Next intCtr 

La boucle aurait aussi bien pu parcourir les valeurs en sens inverse. En outre, il n'est pas 
necessaire d'acceder aux elements du tableau dans l'ordre. Supposons que vous vouliez 
calculer la moyenne de la premiere et de la derniere prime du tableau. C'est ce que fait 
1' instruction suivante : 

curAvgBonus = (curBonus(1) + curBonus(100) ) / 2.0 

Cette simple ligne en dit deja beaucoup sur les tableaux : 

Les indices sont indiques entre parentheses apres le nom du tableau. 
• Les elements d'un tableau ont tous le meme type de donnees. 
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• Les elements du tableau peuvent etre appeles dans n'importe quel ordre, pourvu 
qu'on specif! e l'indice. 

Les indices vont de 1 au nombre des elements du tableau. 

A dire vrai, ce dernier point depend de vos preferences. Par defaut, le premier indice est 
0. Mais les programmeurs Visual Basic (contrairement aux programmeurs C et C++) 
preferent, en general, commencer par l'indice 1 . Pour ce faire, il suffit d'inclure dans la 
section de declarations du module 1' instruction suivante : 

Option Base 1 

Visual Basic offre un autre moyen de definir la plage des indices ; nous verrons cela 
dans la prochaine section. 

Certains programmeurs Visual Basic appliquent aux tableaux une convention 
de denomination plus precise ; Us emploient, par exemple, le prefixe strar 
pour les tableaux de chaines (string array) et le prefixe intar pour les tableaux 
d'entiers (integer array). Libre a vous, naturellement, d' employer des prefixes 
francises tels que chtab ou entab. 

Visual Basic supporte deux types de tableaux : les tableaux statiques et les 
tableaux dynamiques . La tattle des tableaux statiques est definitive et n'est pas 
modifiable lors de V execution, alors que la tattle des tableaux dynamiques est 
modifiable a tout moment. Nous ne traiterons, dans ce livre, que des tableaux 
statiques, beaucoup plus efificaces, et beaucoup plus utilises. 

D'une certaine maniere, on accede aux valeurs d'un tableau comme le facteur distribue 
le courrier d'un immeuble : l'adresse est la meme, seul change le nom des destinataires. 

Declaration des tableaux 

Comme les variables individuelles, les tableaux doivent etre declares avant de pouvoir 
etre utilises. On se sert, pour cela, des memes instructions de declaration Public et Dim. 
Le choix de l'instruction depend de la portee voulue et du lieu de declaration du tableau. 

Public permet de declarer les tableaux publics, destines a servir dans tous les modules de 
1' application. L'instruction Public doit apparaitre dans la section de declaration du 
module. Utilisee dans la section de declaration du module, l'instruction Dim declare un 
tableau de niveau module. Utilisee a l'interieur d'une procedure, Dim declare un tableau 
local. 
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Seule difference entre la declaration des tableaux et la declaration des variables : la 
presence dans l'instruction des indices. Voici le format des deux instructions : 

Public arName (intSub) [As dataType][, arName(intSub) 

Q[As dataType] ] . . . 
Dim arName(intSub) [As dataType][ , arName [intSub) [As dataType]] .. . 

On applique aux tableaux les memes conventions de denomination qu'aux variables (a 
ceci pres que vous pouvez preciser un deuxieme prefixe). Les tableaux peuvent avoir 
n'importe quel type de donnees. Ici, dataType peut done etre Integer, Single, etc. 
intSub indique le nombre d'elements, et la facon dont on se refere a ces elements. Dans 
les formats d' instructions presentes ci-dessus, intSub s'emploie de la maniere suivante : 

[intLow To] intHigh 

(Ou intLow represente la plage inferieure, et intHigh la plage superieure.) 

' I Nous ne parlous ici que des tableaux unidimensionnels, e'est-a-dire des 

tableaux a indice unique. Visual Basic supporte egalement les tableaux multi- 
dimensionnels , ou tables. 



II y a, en fait, (et e'est une particularite de Visual Basic) une exception a la regie selon 
laquelle un tableau doit relever d'un seul type de donnees. En effet, les tableaux peuvent 
etre declares comme de type Variant ; auquel cas, les elements contenus pourront etre 
de types de donnees differents. 

L'instruction suivante declare un tableau de type Integer contenant cinq elements (on presup- 
pose ici que 1'instruction Option Base 1 apparait dans la section de declarations) : 

Din intCounts(5) As Integer 

La Figure 10.9 illustre le stockage du tableau dans la memoire. 




Sans l'instruction Option Base 1, la declaration Dim du tableau intCounts 
aurait donne un tableau a six elements ( indices 0d 5). 



Qu'y a-t-il dans intCounts(l ) , intCounts(2) , etc. ? Eh bien, personne ne le sait pour 
l'instant. Comme les variables, les elements du tableau doivent avant toute chose etre 
initialises. En precisant l'indice, vous pouvez utiliser les elements de tableau comme 
vous le feriez pour des variables. Par exemple : 

SintNumber = intCounts(2) * intFactor / 15 
txtValue.Text = intCounts (4) 
intCounts(5) = 0 
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Figure 10.9 Tab leau intCo unts 

Le tableau intCounts 

contient cinq 

elements ; le premier 

indice est 1 . intCounts(i) 



intCounts(2) 



intCounts(3) 



intCounts(4) 



intCounts(5) 



Les deux instructions suivantes sont equivalentes : 



B 



Dim intCounts(5) As Integer 
Dim intCounts(1 To 5) 



On peut aussi, a l'aide de la clause To, specifier les indices de debut et de fin. Considerez 
les trois declarations de tableaux suivantes : 



Public varCustNumber(200 To 999) As Variant 
Public strCustName(200 To 999) As String 
Public curCustBalance(200 To 999) As Currency 



Dans chaque tableau, le premier indice est 200, le dernier 999. Si, apres une telle 
declaration, vous tentiez quelque chose comme strCustName (4) , Visual Basic genererait 
une erreur. 
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L'indice le plus haut specifie par la clause To n'indique pas necessairement le 
nombre d 'elements ; tout depend de l'indice de depart. Nos trois tableaux, par 
exemple, contiennent chacun un total de 800 elements. 

II pourra vous etre utile, selon le cas, de specifier un indice de depart autre que 0 ou 1 . 
La declaration donnee en exemple ci-dessus, par exemple, serait appropriee a une liste 
de client dont le premier numero de compte est 200. En faisant commencer vos indices a 
200, vous assurez la symetrie entre les numeros de compte et les indices eux-memes. 

Specifiez toujours un indice de fin assez grand, afin de reserver une marge suffisante 
pour les elements a venir. 

Visual Basic inclut une fonction interne speciale, Array ( ) . La fonction Array ( ) permet 
de declarer et d'initialiser les tableaux plus facilement. 



La fonction Array ( ) est assez proche des anciennes instructions BASIC READ 
et DATA. Les petits tableaux dont les valeurs sont dejd connues peuvent etre 
ainsi rapidement initialises. 

Le type de donnees Variant, vous le savez, peut contenir tous les autres types. Suppo- 
sons que vous cherchiez a stocker dans un Tableau Days le nombre de jours de chaque 
mois (sans tenir compte des annees bissextiles). Pour commencer, vous declarez une 
variable Variant : 

Dim Days As Variant 

Puis, plutot que d'utiliser une boucle For, vous initialisez le tableau en une seule etape, a 
l'aide de la fonction Array ( ) : 

Days = Array (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) 

Rappelons que, si l'instruction Option Base 1 apparait dans la section de declarations 
du module, le premier indice de Array ( ) est 1 . On peut declarer et initialiser des chaines 
et des dates de la meme facon, en affectant a une valeur Variant la fonction Array ( ) . 



Exploitation des tableaux 



Comme nous l'avons vu a la section precedente, les elements de tableaux peuvent etre 
impliques dans des calculs, au meme titre que les variables individuelles. Exemple : 

curFamilyDues(5) = curFamilyDues(4) * 1.5 

Pour traiter les donnees d'un tableau, il suffit de specifier l'indice des elements utilises. 
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Pour vous familiariser avec l'utilisation des indices, nous vous proposons quelques 
exemples. Bien que la plupart des programmes recoivent leurs donnees de fichiers et de 
formulaires, les listings qui suivent mettent en ceuvre des tableaux dont les elements sont 
des valeurs renvoyees par la fonction lnputBox(). Les tableaux etant destines a recevoir 
d'importantes quantites de donnees, il n'est pas question de saisir ces donnees dans les 
variables avant chaque execution du programme. Les instructions d' affectation ne convien- 
nent pas non plus aux grandes quantites de donnees exploiters par des programmes inter- 
actifs. 

Dans le Listing 10.3, le programme declare deux tableaux. Les donnees sont, d'une 
part, les noms de 35 families membres d'une association de quartier, et, d' autre part, les 
cotisations annuelles dues. Le programme recoit les donnees puis affiche les resultats. 

Si vous devez executer ce programme, il vaut peut-etre mieux reduire le nombre 
d' elements de 35 a 5 afin de vous epargner une saisie inutile. 



Listing 10.3 : Les tableaux simplifient le stockage des donnees 

1: Private Sub association () 

2: ' Regoit puis affiche les noms et les sommes dues. 

3: Dim strFamilyName(35) As String 1 Reserve les elements du tableau. 

4: Dim curFamilyDues(35) As Currency 

5: Dim intSub As Integer 

6: Dim intMsg As Integer ' Valeur de renvoi de MsgBox(). 
7: 

8: ' Collecte les donnees. 
9: For intSub = 1 To 35 

10: strFamilyName(intSub) = InputBox( "Famille suivante ?") 
21: curFamilyDues(intSub) = InputBox( "Cotisations dues ?") 
22: Next intSub 
23: 

24: ' Les donnees peuvent maintenant etre affichees. 
25: ' (Cet exemple utilise a cette fin des boites 
26: 1 de message pour simplifier les choses.) 
27: intSub = 1 1 Initialise le premier indice. 
28: Do 

29: intMsg = MsgBox( "Famille numero " & intSub & " : " & 

strFamilyName(intSub) ) 
30: intMsg = MsgBoxf "Cotisations dues : " & curFamilyDues(intSub) ) 
31 : intSub = intSub + 1 
32: Loop Until (intSub > 35) 
33: End Sub 

Notez que ce programme regoit et affiche toutes les donnees a l'aide de simples routines. 
La routine d'entree (lignes 9 a 22) utilise une boucle For, tandis que la routine de 
sortie (lignes 28 a 32) utilise une boucle Do. La methode employee pour controler les 
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boucles est sans importance. Ce qui compte, ici, c'est que Ton recoive, traite et affiche 
un grand nombre de donnees en un minimum de lignes, et que suffisent, pour cela, les 
indices du tableau et quelques instructions de boucles. 

Cet exemple met en ceuvre des tableaux paralleles, c'est-a-dire deux tableaux travaillant 
cote a cote. A chaque element d'un tableau correspond un element de l'autre tableau. 
Les tableaux paralleles fonctionnent en memoire comme fonctionnent, dans une table, 
deux champs lies. 

Notre petit programme d' association de quartier fournit une belle illustration, mais ne 
fonctionne que s'il y a exactement 35 families. Et si l'association s'agrandit ? II faudra 
alors modifier le programme. C'est pourquoi la plupart des programmes, contrairement 
a notre exemple, ne definissent pas a priori une quantite limite de donnees. II vaut 
toujours mieux declarer plus d'elements de tableau que Ton n'a deja de donnees. Le 
programme permet de determiner quels elements sont reellement utilises. 

Le prochain programme est semblable a celui du Listing 10.3, a ceci pres qu'il declare 
500 elements pour chaque tableau. Avec un tel nombre, on est certain d'avoir toujours 
assez de valeurs disponibles. Lutilisateur n'entre que le nombre d'element reels. 
Le programme du Listing 10.4 est tres flexible, permettant un nombre d'entrees et de 
sorties different a chaque execution. La seule limte est celle que Ton atteindra lorsque 
l'association approchera les 500 membres. 

Declarez assez d'elements de tableaux pour couvrir vos besoins estimes, mais 
pas plus que vous ne puissiez reellement utiliser. Les elements de tableaux 
occupent de la memoire meme s'ils sont vides. 

Listing 10.4 : On peut declarer plus d'elements que l'on n'a de donnees 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 



Private Sub varyNumb () 

' Regoit puis affiche les noms et les sommes dues. 
Dim strFamilyName(500) As String ' On vise large. 
Dim curFamilyDues(500) As Currency 
Dim intSub As Integer, intNumFam As Integer 
Dim intMsg As Integer ' Valeur de renvoi de MsgBoxf). 
intNumFam = 1 
La boucle demande les noms et les sommes dues 
jusqu'a ce que 1' utilisateur appuie sur Entree 
sans avoir saisi d' information. Des qu'une chaine 
nulle est entree, la boucle Do-Loop s'arrete 
apres avoir stocke la derniere entree. 

Do 

strFamilyName(intNumFam) = InputBox( "Famille suivante ?") 
If (strFamilyName (intNumFam) = "") Then Exit Do ' Interruption. 
curFamilyDues(intNumFam) = InputBox( "Cotisations dues ?") 
intNumFam = intNumFam + 1 1 Ajoute 1 Add a la variable indice. 
Loop Until (intNumFam > 500) 
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Listing 10.4 : On peut declarer plus d'elements que l'on n'a de donnees (suite) 
19: 

20: ' Lorsque la derniere boucle se termine, intNumFam contient 

21: ' 1 de plus que le nombre reel d'entrees. 

22: 

23: ' Affiche toutes les donnees. 
24: For intSub = 1 To intNumFam - 1 

25: intMsg = MsgBox( "Famille numero " & intSub & " : " & 

strFamilyName(intSub) ) 
26: intMsg = MsgBox( "Cotisations dues : " & curFamilyDues(intSub) ) 
27: Next intSub 
28: End Sub 

A la ligne 15, la frappe de la touche Entree sans saisie de valeur provoque l'interraption 
de la boucle. Ce n'est pas parce que 500 elements sont reserves qu'il faut tous les utiliser. 

Le programme du Listing 10.5 montre comment on accede en desordre aux elements du 
tableau. Le programme demande les salaires payes pour chacun des douze derniers mois. II 
attend ensuite que l'utilisateur saisisse le mois a consulter. Le total du mois demande s'affi- 
che alors. Ce listing donne un exemple de programme capable de rechercher des donnees 
precises dans un tableau : on stocke les donnees, puis on attend la requete de l'utilisateur. 

Listing 10.5 : Programme de recherche de donnees 

1 : Private Sub salary ( ) 

2: 1 Stocke 12 mois de salaires, puis affiche les mois selectionnes. 
3: Dim curSal(1 To 12) As Currency ' Reserve des elements 

pour 12 salaires. 
4: Dim intSub As Integer ' Indice de boucle. 
5: Dim intNum As Integer 1 Mois selectionne. 
6: Dim intMsg As Integer ' Valeur de renvoi de MsgBoxf). 
7: Dim strAns As String 
8: 

9: For intSub = 1 To 12 

10: curSal(intSub) = InputBoxf "Salaire pour le mois de " & 

Str(intSub) & " ?", 0.00) 
11 : Next intSub 
12: 

13: 1 Demande le numero du mois. 
14: Do 

15: intNum = InputBox( "Quel mois voulez-vous consulter ? (1-12) ") 
16: intMsg = MsgBox( "Salaires pour le mois de " & Str(intNum) 

& " : " & curSal(intNum)) 
17: strAns = InputBoxf "Autre consultation ? (0/N)") 
18: Loop While (strAns = "0" Or strAns = "o") 
19: End Sub 
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Apres que l'utilisateur a entre les douze salaires dans le tableau (lignes 9 a 11), il peut 
demander a consulter n'importe quel mois (un a la fois), simplement en specifiant le 
numero du mois, qui correspond a l'indice. 

Le Listing 10.6 illustre les diverses operations mathematiques que Ton peut effectuer 
sur les tableaux. Le programme demande une serie de temperatures, et interrompt sa 
demande lorsque l'utilisateur entre -99 pour signaler la fin de la liste. Puis le 
programme calcule la moyenne des temperatures. 

Listing 10.6 : L'utilisateur indique au programme la fin de la serie de donnees 

1: Private Sub tempAvg () 

2: 1 Demande une liste de temperatures puis calcule la moyenne. 

3: Dim sngTemp(1 To 50) As Single 1 Maximum = 50 

4: Dim sngTotalTemp As Single ' Regoit le total. 

5: Dim sngAvgTemp As Single 

6: Dim intSub As Integer ' Indice. 

7: Dim intMsg As Integer ' Valeur de renvoi de MsgBox(). 

8: 

9: 1 Demande a l'utilisateur chaque temperature. 

10: For intSub = 1 To 50 ' Maximum. 

11: sngTemp(intSub) = InputBox( "Temperature suivante ? 

(-99 pour terminer) " ) 
12: 1 Si l'utilisateur veut arreter, decremente de 1 et 

sort de la boucle. 
13: If (sngTemp(intSub) = -99) Then 
14: intSub = intSub - 1 ' Decremente de 1. 

15: Exit For 

16: End If 

17: sngTotalTemp = sngTotalTemp + sngTemp(intSub) 
Additionne le total. 

18: 

19: Next intSub 

20: ' Calcule la moyenne. 

21 : sngAvgTemp = sngTotalTemp / intSub 

22: intMsg = MsgBox( "Temperature moyenne : " & sngAvgTemp) 

23: End Sub 
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Les tableaux de controles 

Vous rencontrerez, dans la suite de cet ouvrage, le terme tableau de controles. Un 
tableau de controles n'est rien d'autre qu'une liste de controles, tout comme un 
tableau de variables est une liste de variables. L'interet des tableaux de controles est le 
meme que celui des tableaux de variables : on parcourt les donnees a l'aide d'une 
boucle plutot que de saisir le nom de chaque controle individuel. 

Nous n'en dirons pas plus pour l'instant. Les chapitres ulterieurs, tels que le 
Chapitre 16, reviendront de facon plus approfondie sur ce concept. 

En resume 

Ce chapitre vous a explique comment integrer le support de la souris a vos applications. 
Les evenements souris informent votre programme des deplacements, clics et double- 
clics, et indiquent quel bouton a ete utilise. A l'aide des methodes appropriees, vous 
pouvez gerer les operations de glisser-deposer, qui permettent a l'utilisateur de deplacer 
un objet tel qu'un controle, d'une partie a l'autre de la feuille. 

Nous avons egalement decouvert le controle Timer, qui permet de programmer l'execu- 
tion selon des criteres temporels. Le timer se base sur l'horloge interne du PC, et peut 
declencher des procedures apres ecoulement d'un laps de temps defini en millisecondes. 

II existe plusieurs types de controles de listes La Boite a outils comprend a cet effet les 
controles ListBox et ComboBox. La difference entre les types disponibles est parfois tenue, 
mais les exemples d'aujourd'hui auront detaille le fonctionnement et les avantages de 
chacun, afin que vous fassiez le meilleur choix pour vos applications. 

Vers la fin de ce chapitre, nous sommes passe des controles de listes aux tableaux de 
variables, dont la structure est semblable a celle des elements de listes. Un tableau de 
variables contient de multiples valeurs, auxquelles on accede a l'aide d'un indice nume- 
rique. 

Dans le prochain chapitre, nous etudierons la gestion des feuilles. 

Questions-reponses 

Q Comment choisir entre les differents types de listes ? 

R Si les controles de listes s'obtiennent tous a partir des outils ListBox et ComboBox 
de la Boite a outils, ils ont chacun un fonctionnement particulier. Dans la zone de 
liste simple, l'utilisateur ne peut que selectionner l'un des elements proposes, il ne 
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peut pas en ajouter. La liste conserve la taille qui lui a ete attribuee lors de la 
creation ; si necessaire, des barres de defilement s'afficheront automatiquement. 

Le controle ComboBox, selon les specifications de sa propriete Style, peut revetir 
trois formes differentes. La ComboBox deroulante reste fermee jusqu'a ce que 
l'utilisateur clique dessus, ce qui economise de la place sur la feuille. La ComboBox 
simple inclut une zone de texte dans laquelle l'utilisateur peut entrer de nouvelles 
valeurs. De meme, la zone de liste deroulante n'occupe que peu de place, et autorise 
l'ajout d' elements. 

Q Pour presenter a l'utilisateur une liste de valeurs, dois-je utiliser l'une des 
zones de liste ou un tableau ? 

R Ce sont deux choses differentes, et vous n'avez pas a choisir entre zones de liste et 
tableaux. Vous pouvez tres bien utiliser les deux dans une meme application. Le 
tableau est la pour accueillir les donnees recues par votre application, tandis que les 
listes ne servent qu'a presenter des donnees. 



Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris . II convient de compren- 
dre les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trou- 
verez ces reponses a 1' Annexe A. 

Quiz 

1 . Quels evenements souris repondent a des boutons particuliers ? Quels evenements 
souris repondent aux deux ? 

2. Comment determiner quel bouton a servi lors d'un evenement MouseDown ? 

3. Comment modifier l'icone qui apparait lors d'une operation de glisser-deposer ? 

4. Comment creer une procedure evenementielle capable de repondre a un intervalle plus 
grand que 65 secondes (limite approximative du controle Timer) ? 

5 . Comment initialise-t-on un controle de liste ? 

6. Comment le programme reconnait-il les elements que 1'utilisateur a selectionnes ? 

7. Donnez deux moyens de retirer tous les elements d'un controle de liste. 
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8. Quand un controle ComboBox permet a l'utilisateur d'entrer de nouvelles valeurs, 
pourquoi faut-il fournir au moins un autre controle ? 

9. Comment faire en sorte qu'un controle de liste affiche les elements dans l'ordre 
alphabetique ou numerique, independamment de l'ordre dans lequel on les a entres ? 

10. Combien d'elements sont reserves par l'instruction Dim suivante ? 

Dim varStaff (-18 To 4) As Variant 



Exercices 

1. Ecrivez un programme qui affiche dans une zone de liste la liste des membres de 
votre famille. Ajoutez-en assez pour que des barres de defilement s'affichent. Faites 
en sorte que la liste soit automatiquement triee. 

2. Lancez le projet d'exemple Listcmbo, fourni avec Visual Basic. L' application 
contient une base de donnees d'editeurs informatiques americains. Cliquez sur le 
bouton Utiliser le controle ComboBox standard, puis cliquez sur le champ Etat. 
Cliquez ensuite sur le bouton Utiliser le controle ListBox standard, puis ouvrez de 
nouveau le champ Etat. Vous constaterez aisement la difference entre les deux. 

3. Modifiez l'application de l'exercice 1 de facon que les trois sortes de ComboBox 
apparaissent sur la feuille, pour afficher les memes donnees. Faites en sorte que tout 
changement (ajout d'element) dans l'une des ComboBox soit automatiquement 
reporte dans 1' autre. 
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Selections multiples 
dans une zone de liste 

Ce Projet bonus met en ceuvre les zones de liste etudiees au Chapitre 10. II vous permet- 
tra egalement d'approfondir votre comprehension des tableaux. L' application que vous 
allez creer doit permettre les selections multiples ; vous devrez pour cela definir les 
valeurs de proprietes adequates. Vous devrez egalement determiner si l'utilisateur a bel 
et bien selectionne plusieurs valeurs, afin que ces valeurs puissent servir ailleurs dans le 
programme. 

Les selections multiples sont souvent utilisees. Par exemple, une entreprise peut distri- 
buer a ses clients un fichier catalogue dans lequel les divers produits sont proposes sous 
forme de liste. Le client peut decider de n'acheter qu'un seul produit, comme en selec- 
tionner des dizaines. 



Creer la feuille 

Pour qu'une zone de liste accepte les selections multiples, vous devez modifier la 
propriete MultiSelect. Si la MultiSelect a la valeur 1 - Simple (comme opposee de la 
valeur par defaut, 0 - None), l'utilisateur peut effectuer des selections multiples. Si la 
valeur de MultiSelect est 2 - Extended, l'utilisateur peut selectionner une plage 
d' elements en tenant la touche Maj, ainsi que selectionner plusieurs elements discontinus 
en tenant la touche Ctrl (exactement comme dans les boites de dialogue Ouvrir). 
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La Figure PB4.1 montre une feuille sur laquelle des zones de texte affichent 
"Selectionne" si l'element correspondant a ete selectionne dans la zone de liste, et "Non 
selectionne" autrement. La propriete MultiSelect de la liste "Destination" a pour valeur 
2 - Extended. 



Figure PB4.1 

Vou s pouvez effectuer 
des selections 
multiples dans 
les zones de liste. 



Chicago 



Destination 



UN : .ago 

Dates 
Seattle 
Washington ^} 



1 



Washington 



j^lon selectionne 


Non selectionne 


Dallas 


Houston 


|lslon selectionne 


Non selectionne 


Seattle 


Dayton 




Non selectionne 


Non selectionne 



La premiere chose a faire, c'est d'ajouter les controles sur la feuille. Suivez pour cela le 
Tableau PB4.1. 



Tableau PB4.1 : Proprietes des controles de la feuille 



Controle 


Propriete 


Valeur 


Feuille 


Name 


f rmDest 


Feuille 


Caption 


Demo zones de liste 


Feuille 


Height 


6600 


Feuille 


Width 


7230 


Label 1 


Name 


lblListBoxCap 


Label 1 


Caption 


Destination 


Label 1 


FontStyle 


Bold 


Label 1 


FontSize 


24 
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Tableau PB4.1 : Proprietes des controles de la feuille (suite) 



Contrdle 


Propriete 


Valeur 


Label 1 


Height 


600 


Label 1 


Left 


2190 


Label 1 


Top 


120 


Label 1 


Width 


3060 


Label 2 


Name 


lPlChicago 


Label 2 


BorderStyle 


Fixed Single 


Label 2 


Caption 


Chicago 


Label 2 


FontStyle 


Bold 


Label 2 


FontSize 


18 


Label 2 


Height 


495 


Label 2 


Left 


360 


Label 2 


Top 


1995 


Label 2 


Width 


2655 


Label 3 


Name 


lPlWashington 


Label 3 


Caption 


Washington 


Label 3 


BorderStyle 


Fixed Single 


Label 3 


FontStyle 


Bold 


Label 3 


FontSize 


18 


Label 3 


Height 


495 


Label 3 


Left 


4035 


Label 3 


Top 


1980 


Label 3 


Width 


2655 


Label 4 


Name 


lblDallas 
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Tableau PB4.1 : Proprietes des controles de la feuille (suite) 



Contrdle 


Propriete 


Valeur 


Label 4 


Caption 


Dallas 


Label 4 


BorderStyle 


Fixed Single 


Label 4 


FontStyle 


Bold 


Label 4 


FontSize 


18 


Label 4 


Height 


495 


Label 4 


Left 


360 


Label 4 


Top 


3480 


Label 4 


Width 


2655 


Label 5 


Name 


lblHouston 


Label 5 


Caption 


Houston 


Label 5 


BorderStyle 


Fixed Single 


Label 5 


FontStyle 


Bold 


Label 5 


FontSize 


18 


Label 5 


Height 


495 


Label 5 


Left 


4035 


Label 5 


Top 


3480 


Label 5 


Width 


2655 


Label 6 


Name 


lblSeattle 


Label 6 


Caption 


Seattle 


Label 6 


BorderStyle 


Fixed Single 


Label 6 


FontStyle 


Bold 


Label 6 


FontSize 


18 


Label 6 


Height 


495 
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Tableau PB4.1 : Proprietes des controles de la feuille (suite) 



Contrdle 


Propriete 


Valeur 


Label 6 


Left 


360 


Label 6 


Top 


4920 


Label 6 


Width 


2655 


Label 7 


Name 


lblDayton 


Label 7 


Caption 


Dayton 


Label 7 


BorderStyle 


Fixed Single 


Label 7 


FontStyle 


Bold 


Label 7 


FontSize 


18 


Label 7 


Height 


495 


Label 7 


Left 


4035 


Label 7 


Top 


4920 


Label 7 


Width 


2655 


Zone de liste 


Name 


IstFirstList 


Zone de liste 


Height 


840 


Zone de liste 


Left 


2865 


Zone de liste 


MultiSelect 


2-Extended 


Zone de liste 


Top 


870 


Zone de liste 


Width 


1335 


Zone de texte 1 


Name 


txtChicago 


Zone de texte 1 


FontSize 


18 


Zone de texte 1 


FontStyle 


Bold 


Zone de texte 1 


Height 


495 


Zone de texte 1 


Left 


120 
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Tableau PB4.1 : Proprietes des controles de la feuille (suite) 



Contrdle 


Propriete 


Valeur 


Zone de texte 1 


Text 


Non selectionne 


Zone de texte 1 


Top 


2520 


Zone de texte 1 


Width 


3105 


Zone de texte 2 


Name 


txtWashington 


Zone de texte 2 


FontSize 


18 


Zone de texte 2 


FontStyle 


Bold 


Zone de texte 2 


Height 


495 


Zone de texte 2 


Left 


3840 


Zone de texte 2 


Text 


Non selectionne 


Zone de texte 2 


Top 


2520 


Zone de texte 2 


Width 


3105 


Zone de texte 3 


Name 


txtDallas 


Zone de texte 3 


FontSize 


18 


Zone de texte 3 


FontStyle 


Bold 


Zone de texte 3 


Height 


495 


Zone de texte 3 


Left 


120 


Zone de texte 3 


Text 


Non selectionne 


Zone de texte 3 


Top 


3960 


Zone de texte 3 


Width 


3105 


Zone de texte 4 


Name 


txtHouston 


Zone de texte 4 


FontSize 


18 


Zone de texte 4 


FontStyle 


Bold 


Zone de texte 4 


Height 


495 
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Tableau PB4.1 : Proprietes des controles de la feuille (suite) 



i n n tr/i 1t> 

f III L/tC 


Prnnn ptt> 

1 l L/Lfl ICIC 


1/77 1 P1IY 
V CI. 1 1 11 1 


7nnp Ho to v t A 


Left 


3840 


/nnp H to v to /l 
Z_AJ11C UC LCALC t 


Text 


Non selectionne 


Vnnp /no fovto A 
Z-iUllC UC LCALC *+ 


Top 


3960 


/nnp Ho tpvtp /l 
Z_AJ11C UC LCALC t 


Width 


31 05 


ZAJIIC UC LCALC J 


Name 


txtSeattle 


X /~\no Ho tpvl"p ^ 
ZjUIIC UC LCALC J 


FontSi 79 


1 8 


/ i \\~\ /Ho tpvtp ^ 
ZAJIIC UC LCALC J 


FontStvl p 


Bold 


/ i \ n & /Ho tpvtp H 
ZAJ11C UC LCALC J 


Left 


1 20 


X '\n/^ /Ho tpvtp ^ 
ZAJIIC UC LCALC J 


Heiaht 


495 


x/~\no /Ho tovto S 
Z_jU11C UC LCALC J 


Text 


Non selectionne 


/ t\t~\ a Ho tpvtp S 
z_jU11C UC LCALC J 


Top 


5400 


/ r\r\p* Ho tpvtp ^ 
Z_AJ11C UC LCALC J 


Width 


31 05 


x/~\no Ho tpvtp f\ 
Z_AJ11C UC LCALC \J 


Name 


txtDayton 


/ / \ n o Ho tpvtp /■a 
Z_jU11C UC LCALC *J 


FontSize 


1 8 


7nnp Hp tPYtp f\ 


FontStyle 


Bold 


Zone de texte 6 


Height 


495 


Zone de texte 6 


Left 


3840 


Zone de texte 6 


Text 


Non selectionne 


Zone de texte 6 


Top 


5400 


Zone de texte 6 


Width 


3105 
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Ajouter le code 



Le Tableau PB4.1 ne reserve pas de blancs dans les valeurs des zones de texte ; ce sera le role 
de la procedure Form_Load ( ) . Le Listing PB4.1 fournit le code de ce projet. 

Listing PB4.1 : Initialiser la zone de liste et interroger les selections multiples 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



Private Sub Form_Load() 

1 S'execute au chargement de la feuille. 

IstFirstList.Addltem "Chicago" 

IstFirstList.Addltem "Dallas" 

IstFirstList.Addltem "Seattle" 

IstFirstList.Addltem "Washington" 

IstFirstList.Addltem "Houston" 

IstFirstList.Addltem "Dayton" 
End Sub 

Private Sub lstFirstList_Click( ) 

' Met a jour les six zones de texte en fonction des 
1 elements selectionnes dans la premiere zone de liste. 
If lstFirstList.Selected(0) Then 
txtChicago.Text = "Selectionne" 
Else 

txtChicago.Text = "Non selectionne" 
End If 

If lstFirstList.Selected(1 ) Then 
txtDallas.Text = "Selectionne" 
Else 

txtDallas.Text = "Non selectionne" 
End If 

If lstFirstList.Selected(2) Then 
txtSeattle.Text = "Selectionne" 
Else 

txtSeattle.Text = "Non selectionne" 
End If 

If lstFirstList.Selected(3) Then 

txtWashington .Text = "Selectionne" 
Else 

txtWashington .Text = "Non selectionne" 
End If 

If lstFirstList.Selected(4) Then 
txtHouston.Text = "Selectionne" 
Else 

txtHouston.Text = "Non selectionne" 
End If 
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44: If lstFirstList.Selected(5) Then 

45: txtDayton.Text = "Selectionne" 

46: Else 

47: txtDayton.Text = "Non selectionne" 

48: End If 

49: 

50: End Sub 

Analyse 

Les lignes 3 a 8 initialisent la zone de liste. La propriete MultiSelect ayant pour valeur Exten- 
ded, l'utilisateur peut selectionner plusieurs villes a la fois. 

Lorsque les selections multiples sont autorisees, Visual Basic doit creer un tableau special, 
semblable aux tableaux de variables, mais ne contenant que des proprietes. Ici, le tableau de 
proprietes est nomme Selected. Ce tableau s'etend de Selected(0) a Selected(5), pour 
accueillir les six elements de la liste. 

Les valeurs du tableau sont toutes de type Boolean. Elles seront True ou False, selon la selection. 
Ala premiere execution du programme, toutes les valeurs Selected sont False, puisque aucune 
selection n'a encore eu lieu. Chaque fois que l'utilisateur selectionne un element dans la liste, la 
valeur Selected correspondante devient True. La procedure Click ( ) (lignes 11a 48) se charge de 
mettre a jour les six zones de texte pour refleter les selections . 




Si l'utilisateur de selectionne un element en y cliquant de nouveau, la valeur Selected 
correspondante redevient False. 
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Pratique de la souris 



Ce Projet bonus vous invite a mettre en pratique les techniques de gestion de la souris 
etudiees au Chapitre 10. En repondant aux evenements souris et en interrogeant les 
arguments de la procedure evenementielle, le programme determine si l'utilisateur a 
clique, double-clique, ou s'il a deplace la souris. 

Ce Projet bonus est un peu different des autres. Vous commencerez par etudier un exemple 
dans lequel on change l'icone de deplacement. Puis, vous construirez une application 
capable de repondre aux evenements souris. 



Changer l'icone pointeur 



Comme nous l'avons vu, le pointeur peut changer d'apparence lorsqu'il survole un 
controle. Nous allons creer, a titre d'exemple, une application simplissime : une feuille 
unique avec un bouton de commande au milieu. II s'agit de faire en sorte que le pointeur 
se transforme en "smiley" lorsqu'il est positionne sur le bouton de commande cmdHappy. 
Dans la fenetre Proprietes, affectez au bouton une image du dossier \GraphicsMcons\Misc. 
Le fichier Face03.ico sera parfait. 

Maintenant, defmissez la propriete MousePointer du bouton de commande comme 99 - 
Custom. Cette valeur ordonne a Visual Basic d'afficher l'icone specifiee dans la propriete 
Mouselcon si et seulement si l'utilisateur place le pointeur sur le bouton de commande. 
La Figure PB5.1 montre le pointeur "smiley". 
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Figure PB5.1 

Voila un pointeur 
heu-reux ! 



Lancez cette petite application, et vous constaterez que Visual Basic se charge d'afficher 
1' icone specifiee. 



Programmer la souris 

Nous allons maintenant creer un nouveau projet dans lequel un controle affiche une 
image (comme cela a ete etudie au Chapitre 2). A la propriete Picture de ce controle 
Image, vous affecterez une icone figurant une cible. Cette icone se trouve dans le 
dossier \GraphicsMcons\Misc. Vous ajouterez ensuite a la feuille une zone de texte 
nominee txtMouse (voir Tableau PB5.1). Le contenu de cette zone de texte refletera les 
deplacements et les clics de la souris. Ce projet illustre le fonctionnement des procedures 
evenementielles liees a la souris. 

La Figure PB5.2 montre la feuille que vous allez creer. 



Figure PB5.2 

L'utilisateur doit 
cliquer sur Vintage. 
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Projet bonus 5 : Pratique de la souris 



II faut d'abord creer la feuille. Suivez,pour cela,les specifications du Tableau PB5.1. 
Tableau PB5.1 : Proprietes des controles de la feuille 



Controle 


Propriete 


Vcileur 


Feuille 


NamG 


f pmMni i q p 

1 1 IIIIVIUUOC 


Feuille 


Ha nt i nn 

\jCk^J L 1UI 1 


fipc-t-inn (Hp la ■smiri's 

VJCOL-LVJII U -i- OUU 1 J-O 


Feuille 


Hei nht 

1 iciy 1 1 I 


4230 


Feuille 


Wi rith 


5265 


Zone de texte 


NamG 


t y + M n 1 1 q p 

LA L IVI U U o C 


Zone de texte 


Al i nnmpnt 

r\ _l_ _L y 1 1 1 1 1 ~ \ 1 L 


q . Cpnt pr 

t— ucl 1 LCI 


Zone de texte 


Fnnt ^tvl p 

1 Ul 1 LO LylC 


Bold 


Zone de texte 


1 UN L 


1 4 


Zone de texte 


H p i n h + 


1 095 


Zone de texte 


Left 


840 


Zone de texte 


M 1 1 1 + i 1 i n p 

IVI U _L L _L 1 LI 1 U 


True 


Zone de texte 


Text 


Servez-vous de la souris 


Zone de texte 


Top 


1320 


Zone de texte 


Width 


3255 


Image 


Name 


imgMouse 


Image 


Height 


480 


Image 


Left 


2400 


Image 


Picture 


\Program Files\Microsof t VisualStudio\Common 
\Graphics\Icons\Misc\Bullseye 


Image 


Top 


480 
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Ajouter le code 

Le Listing PB5.1 fournit le code de ce projet. 

Listing PB5.1 : Repondre aux evenements souris 

1: Private Sub Form_Click( ) 

2: txtMouse.Text = "Vous avez clique sur la feuille" 

3: Beep 1 Signale l'evenement Click. 

4: End Sub 

5: Private Sub Form_DblClick( ) 

6: txtMouse.Text = "Vous avez double-clique sur la feuille" 

7: End Sub 

8: 

9: Private Sub Form_MouseDown(intButton As Integer, intShift 

As Integer, sngX As Single, sngY As Single) 

10: 1 Clic sur la feuille. 

11: txtMouse.Text = "Clic sur la feuille a la position " 

& sngX & " , " & sngY 

12: End Sub 

13: ' Arguments ignores dans la procedure precedente. 
14: 

15: Private Sub Form_MouseMove(intButton As Integer, intShift 

As Integer, sngX As Single, sngY As Single) 

16: txtMouse.Text = "Deplacement de la souris..." 

17: End Sub 

18: 1 Arguments ignores dans la procedure precedente. 
19: 

20: Private Sub imgMouse_Click( ) 

21: txtMouse.Text = "Vous avez clique sur 1' image" 

22: End Sub 

23: 

24: Private Sub imgMouse_DblClick( ) 

25: txtMouse.Text = "Vous avez double-clique sur l'image" 

26: End Sub 

27: 

28: Private Sub imgMouse_MouseDown(intButton As Integer, intShift 
As Integer, sngX As Single, sngY As Single) 

29: 1 

30: ' Clic sur l'image. 

31: txtMouse.Text = "Clic sur l'image a la position " & sngX & "," & sngY 

32: End Sub 

33: 

34: Private Sub imgMouse_MouseMove(intButton As Integer, intShift 

As Integer, sngX As Single, sngY As Single) 

35: txtMouse.Text = "Vous vous etes deplace sur l'image" 

36: End Sub 
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Analyse 

Les differentes procedures evenementielles interrogent l'activite de la souris. Les lignes 
1 a 4 contiennent la procedure evenementielle la plus simple, qui repond lorsque que 
Ton clique n'importe oil sur la feuille. L'instruction Beep est la pour signaler l'evene- 
ment Click, qui autrement ne serait jamais percu (il se produit bien trop rapidement). 
Comme nous l'avons vu au Chapitre 10, l'evenement MouseDown a lieu avant 
l'evenement Click (si, du moins, le code contient les deux evenements). Le texte de 
MouseDown s'affichera done pour montrer oil Ton a clique sur la feuille. Puis, lorsqu'on 
relache le bouton de la souris, e'est le texte de l'evenement Click qui s'affiche pour 
disparaitre aussitot (d'oii l'interet de l'instruction Beep). 

// est interessant de noter qu'un double-clic sur la feuille declenche d'abord 
V evenement MouseDown, puis l'evenement Click, puis seulement l'evenement 
DblClick (lignes 9 a 12). Des que vous double-cliquez, le Beep se fait enten- 
dre. Mais vous verrez, avant, les coordonnees s'afficher sur ordre de l'evene- 
ment MouseDown. 

II y a dans tout cela un defaut qui irrite beaucoup de programmeurs : l'evene- 
ment MouseMove se declenche chaque fois que Von clique. 



Les lignes 9 a 12 traitent les arguments de l'evenement MouseDown. Les valeurs en twips 
sngx et sngY indiquent les coordonnees du clic. Notez que ce code reagira aux clics du 
bouton gauche comme aux clics du bouton droit, les deux pouvant declencher l'evenement 
MouseDown. La procedure ne s'execute que si vous cliquez sur la feuille ; et l'evene- 
ment Click a lieu des que vous relachez le bouton. 

Les lignes 15 a 17 gerent le deplacement de la souris sur la feuille, et uniquement sur la 
feuille. 

La ligne 20 a 22 gerent le positionnement de la souris sur l'image. Si vous cliquez sur 
l'image, la procedure evenementielle Click met a jour la zone de texte pour indiquer ce 
qui vient de se passer. Mais l'evenement MouseDown passant avant l'evenement Click, vous 
n'aurez pas le temps de lire cette indication ; en revanche, vous pourrez entendre le son 
genere par 1' instruction Beep. 

Les lignes 24 a 26 gerent le double-clic sur l'image a l'aide d'une procedure evenemen- 
tielle DblClick. Les lignes 28 a 32 traitent l'evenement MouseDown de l'image, avant 
meme que l'evenement Click n'ait lieu. Enfin, les lignes 34 a 36 gerent les mouvements 
de la souris sur l'image. 
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Nous aurions pu afficher dans la zone de texte les coordonnees de l'evenement 
MouseMove, mais ces informations auraient change trop vile pour qu'on puisse 
les lire. 



Grace a ce Projet bonus, vous savez a quoi vous attendre quant a la programmation de la 
souris. Vous savez notamment que l'evenement MouseDown a toujours priorite sur les 
evenements Click et DblClick. 



Implementer le glisser-deposer 
automatique 

Rien de plus simple que d'ajouter a vos applications le support du glisser-deposer. 
D'abord, affectez a la propriete Draglcon du controle image l'icone qui doit s'afficher 
lors de l'operation. Choisissez, par exemple, l'image Clock02.ico. Pour implementer le 
glisser-deposer automatique, definissez la propriete DragMode du controle comme 1 - 
Automatic. Visual Basic s'occupe des details. 

Maintenant, ajoutez la procedure evenementielle MouseDown suivante : 

8 Private Sub Form_DragDrop(cntSource As Control, sngX As Single, sngY As Single) 
cntSource.Move sngX, sngY ' Deposer l'image. 
End Sub 

L' argument Source de l'evenement DragDrop correspond en fait au controle glisser- 
deposer. Les valeurs de coordonnees sngX et sngY specifient le "point de chute" du 
controle. La methode Move se charge de deplacer le controle (en l'occurrence, l'image) a 
la position specifiee. 

Lancez l'application et deplacez l'image a divers endroits de la feuille. Le mode auto- 
matique requiert de votre part un minimum de programmation, et sera done privilegie 
pour la plupart des operations de glisser-deposer. 



Implementer le glisser-deposer manuel 

Pour mettre en ceuvre le glisser-deposer manuel, vous devez definir la propriete Drag- 
Mode comme 0 - Manual, puis remplacer le contenu de la procedure evenementielle 
MouseDown et faire apparaitre le code suivant : 

B Private Sub imgMouse_MouseDown(intButton As Integer, intShift 
As Integer, sngX As Single, sngY As Single) 
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1 Clic sur 1' image. 

txtMouse.Text = "Clic sur 1' image a la position " & sngX & "," & sngY 
imgMouse.Drag ' Amorce le glisser-deposer. 
End Sub 

La seule instruction nouvelle ici est imgMouse . Drag. L'evenement MouseDown doit amorcer 
l'operation de glisser-deposer. Linteret du mode manuel est que vous pouvez programmer 
divers traitements en reponse a l'evenement MouseDown, avant que ne commence le glisser- 
deposer. En mode automatique, le glisser-deposer a lieu sans autre intervention de votre 
part. 

Utilisez le glisser-deposer manuel lorsque vous souhaitez effectuer diverses 
tdches conjointement au glisser-deposer lui-meme. 



La methode Drag active le glisser-deposer. Sans la methode Drag, la procedure evene- 
mentielle MouseDown () ne pourrait amorcer l'operation. Le mode manuel permet 
d'appliquer des restrictions a l'operation de glisser-deposer avant ou pendant qu'elle a 
lieu. 



343 < 



Chapitre 



Gestion des feuilles 



Dans ce chapitre, nous etudierons les feuilles de fagon plus approfondie qu'il n'etait 
possible jusque-la. Vous apprendrez a programmer et a gerer les feuilles a l'aide des 
proprietes, des evenements et des methodes appropries. L'une des methodes les plus utiles 
est Print, qui permet d'afficher du texte sur la feuille directement, sans passer par un 
controle. II est interessant de noter que la methode Print vient tout droit du bon vieux 
langage BASIC, dont la commande PRINT fonctionnait exactement de la meme maniere. 

Nous examinerons egalement les avantages et desavantages respectifs des applications 
MDI (monodocuments) et SDI (multidocuments) . Enfin, vous apprendrez a placer sur 
vos feuilles des barres d'outils et des controles Coolbar, pour offrir a l'utilisateur un 
moyen supplemental d'interagir avec le programme. 

Voici ce que nous decouvrirons aujourd'hui : 

• les proprietes, evenements et methodes des feuilles ; 
les collections de feuilles ; 

• l'affichage de texte sur la feuille a l'aide de la methode Print ; 
les differences entre les applications MDI et SDI ; 
comment creer vos propres proprietes de feuilles ; 

• le controle Toolbar ; 

• le controle Coolbar ; 

• le controle ImagCombo. 
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Proprietes, evenements et methodes 

Au cours des dix precedents chapitres, vous avez decouvert une multitude de controles 
et de commandes. Vous etes done en passe de devenir un vrai pro de la programmation 
Visual Basic. Mais il vous reste a maitriser l'element le plus important d'une application 
Visual Basic : les feuilles. Les feuilles que nous n'avons fait qu'evoquer ca et la pour les 
besoins de notre expose, meritent bien un chapitre entier. 

Vous avez deja appris a regler certaines proprietes pour modifier 1' aspect et le comporte- 
ment d'une feuille. Vous savez que Ton peut y ajouter un libelle, en definir la faille et 
specifier si oui ou non des boutons de controles (tels qu'Agrandir et Reduire) seront 
disponibles. Vous avez egalement utilise la procedure evenementielle Form_Load( ) pour 
initialiser les controles de listes. C'est en effet dans cette procedure que Ton precede aux 
initialisations prealables a l'affichage de la feuille. (Le nom de la feuille n'est pas 
necessaire, car le code apparait dans le module de feuille et s'applique done toujours a la 
feuille courante.) 

La procedure evenementielle Form_Unload ( ) permet de faire "place nette" 
dans I'ecran et la memoire de I'utilisateur, lor squ' une feuille se referme. 
A la difference des methodes Form. Hide et Form. Show, les procedures evene- 
mentielles Form_Load( ) et Form_Unload( ) interviennnent sur la memoire. 
Lors de V execution, Form_Load() charge la feuille en memoire, et 
Form_Unload ( ) fait le menage. Les methodes Show et Hide ne sont que des 
avatars des valeurs True et False de la propriete Visible d'une feuille. 

Faire 

Utilisez les methodes Form. Hide et Form. Show pour masquer et afficher les 
feuilles. N 'utilisez Form_Load() et Form_Unload( ) que pour charger et 
decharger les feuilles de la memoire. 

Vous decouvrirez, dans la prochaine section, une facon particuliere d'employer l'evene- 
ment Form_Unload ( ) . 

On rencontre souvent, dans une procedure Form_Load ( ) , un code semblable a celui-ci : 

frmAForm. Left = (Screen. Width - frmAForm. Width) / 2 
frmAForm. Top = (Screen. Height - frmAForm. Height) / 2 

Ces instructions permettent de centrer la feuille par rapport aux coordonnees de I'ecran. 
Le Chapitre 16 vous presentera les divers types d'objets supportes par Visual Basic. 
L'un de ces objets est Screen, qui represente I'ecran de I'utilisateur. L'objet Screen 
s'ajuste a la resolution d'ecran et a la carte video de I'utilisateur. Pour connaitre la 
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resolution employee, le programme peut, a tout moment, interroger les proprietes Width 
et Height de l'objet Screen. 



Vous vous epargnerez de la saisie en omettant l'objet par defaut dans la 
procedure evenementielle . Ainsi, plutot que de taper le nom de la feuille, 
vous pourriez reecrire les instructions ci-dessus de la maniere suivante : 



Left 
Top = 



(Screen. Width 
(Screen. Height 



Width) / 2 
Height) / 2 



Dans la mesure oil ce code apparait dans une procedure evenementielle de 
la feuille, telle que Form_Load ( ) , vous n'avez pas a specifier le nom de la 
feuille. En revanche, les economies de saisie se payent presque toujour s par 
une certaine ambiguite du code. En specifiant tous les objets, mime les 
objets par defaut, vous assurez la clarte du code etfacilitez la maintenance . 
Que de cruels dilemmes en Visual Basic ! 

L'objet par defaut est l 'objet (feuille, contrdle, etc.) que Visual Basic utilisera 
automatiquement si vous n'en specifiez pas d' autre. 



Le code de centrage presente ci-haut forme un objet d'etude interessant, car il illustre 
les relations qu'entretient la feuille avec l'ecran, les proprietes de l'objet Screen et les 
evenements Load et Unload. Mais la fenetre Proprietes fournit un moyen plus simple de 
specifier la position de la feuille au demarrage : la propriete StartUpPosition, qui peut 
prendre l'une des quatre valeurs presentees dans le Tableau 11.1. 



Tableau 11.1 : StartUpPosition permet de specifier la position initiate de la feuille 



Propriete 


Constante nommee 


Valeur 


Description 


0-Manual 


vbStartUpManual 


0 


Pas de specification. 


1 -CenterOwner 


vbStartUpOwner 


1 


Centre la feuille sur l'ecran. 


2-CenterScreen 


vbStartUpScreen 


2 


Centre l'element sur l'ecran. 


3-WindowsDef ault 


vbStartUpWindowsDef ault 


3 


Coin superieur gauche de 
l'ecran. 



Les evenements de feuilles sont souvent d'une haute importance pour le programme. 
Vous connaissez deja Load et Unload, ainsi que les evenements feuille/souris du chapitre 
precedent. Nous allons maintenant etudier des evenements de feuilles tout aussi utiles. 
Le Tableau 1 1 .2 en presente trois. 
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lableau 11.2 


Irois evenements de teuiiies 


Evenement 


Description 


Activate 


A lieu lorsque la feuille devient active (parce que l'utilisateur a clique ou 




parce qu'il revient a la feuille en basculant d'une autre application). 


Deactivate 


A lieu lorsqu'une autre feuille — ou une autre application — devient active. 


Resize 


a lieu lorsque l'utilisateur redimensionne la feuille ou lorsque le programme 




modifie les proprietes Height et Width. 



La propriete Resize pent egalement servir a reorganiser les contrdles apres 
que l'utilisateur a redimensionne la feuille. Si vous affectez aux contrdles 
une position relative aux proprietes Height et Width de la feuille, ils resteront 
centres quelle que soit la taille de la feuille. 

La Figure 11.1 reproduit la boite de dialogue que Ton obtient par le menu Projet, 
Proprietes. Cette boite de dialogue que nous avons deja evoquee, contient la liste 
deroulante Objet de demarrage, qui propose les differentes feuilles de l'appiication ainsi 
qu'une procedure speciale nominee Main. Certaines applications n'ont pas de feuille de 
demarrage. Ce peut etre le cas d'un utilitaire d'arriere-plan qui n'affiche pas de fenetre. 
II peut aussi s'agir d'une application qui verifie prealablement une valeur quelconque, 
arm de determiner quelle feuille doit apparaitre, ou bien qui demande la saisie d'un mot 
de passe. 




Figure 11.1 

La boite de dialogue 
Proprietes du projet 
permet de specifier 
la feuille ou procedure 
de demarrage. 



Piojetl - Pioprietes du projet 



General | Cteet ) Compilation | Composant] Debogage| 
Type du projet: Objet de demarrage: 



Nom du projet: 



[Frojetl 

Nom du fichier d'aide: 



H fa 



ID de contexte 
d'aide du projet: 



Description du p_rojet: 



Is 



Mode d'execution autonome 
P" Mettre a niveau les controles ActiveX 

I - Demander le n° de licence 
;eryrl en memofre 



Modele de thread 



I □ 

C i hresd par objet 

g Hb'maxde threads I' thresds 



OK | 
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Pour qu'un code s'execute avant tout chargement de feuille, il faut creer une procedure 
Main( ) (dans la section generale du module de code, et non dans le module de feuille), 
et selectionner cette procedure Main ( ) comme Objet de demarrage dans les Proprietes 
du projet. Le code contenu dans Main() s'executera avant tout autre chose. En fait, 
aucune feuille ne s'affichera avant que Main ( ) ne lui applique la methode Show. 

Vous decouvrirez d'autres evenements lies aux feuilles dans les Chapitres 13 
etl4. 



Les collections de feuilles 



Une feuille, nous l'avons mentionne plus haut, peut etre designee comme objet. Visual 
Basic supporte plusieurs types d'objets : les controles, les feuilles et les objets residant 
hors de 1' application, tels que les objets OLE. (OLE, pour object linking and embed- 
ding, signifie "liaison et incorporation d'objets". Vous en apprendrez plus a ce sujet aux 
Chapitres 16 et 17). 

L' ensemble de vos objets feuilles constitue la collection Forms, qui change selon que 
vous ajoutez ou supprimez des feuilles dans le projet. La collection Forms contient le 
nom de toutes les feuilles. Par exemple, f rmAboutBox pourrait etre le nom d'une de vos 
feuilles dans la collection Forms. L' objet nomme Form (sans "s") definit la feuille actuel- 
lement ouverte. C'est a cet objet que Visual Basic se refere lorsque vous appliquez une 
methode de feuille sans specifier de nom. 

La collection Forms est I 'ensemble des feuilles definies dans votre application. 



Acces a la collection Forms 

Visual Basic vous permet de vous referer aux feuilles de la collection Forms sans specifier 
le nom des feuilles individuelles ouvertes. 

Supposons, par exemple, que vous ayez trois feuilles ouvertes : f rmAcPay, f rmAcRec et 
frmAcReview. Lobjet Forms contient ces trois feuilles. Chaque feuille est indexee, a 
partir de 0, et vous pouvez designer une feuille par ce nombre plutot que par son nom. 
Ce nombre, ou indice, est specifie entre parentheses apres le nom de l'objet Forms. Le 
Tableau 1 1 .3 detaille, pour nos trois feuilles d' exemple, les indices correspondants. 
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La collection Forms fonctionne comme un tableau de variables. 



Tableau 11.3 : Les objets de la collection Forms peuvent etre designes 


par leur indice 




Nom de la feuille 


Notation indiciaire 


f rmAcPay 


Forms(0) 


f rmAcRec 


Forms (1 ) 


f rmAcReview 


Forms (2) 



// existe une autre facon de designer une feuille en employ ant son nom. Void 
un exemple : 



Forms! [f rmAcPay] 

Cet exemple se refere a une feuille nommee f rmAcPay comprise dans la 
collection courante. (Les crochets sont obligatoires.) Un autre format inclut 
des parentheses : 

Forms ! ( "f rmAcPay " ) 

Les indices 

On peut egalement se servir d'un indice a la place du nom pour designer un controle 
individuel de la feuille, tel qu'une zone de texte. 

Imaginons qu'une feuille nommee f rmStore contient cinq controles : trois labels 
(lblStoreNum, lblStoreName et lblStoreLoc) et deux zones de liste (IstStoreEmps et 
IstStoreMgrs). Les procedures peuvent designer chaque controle par son indice, 
comme le montre le Tableau 11.4. Notez que le nom du controle individuel doit etre 
distingue de Forms par un point d'exclamation. 

Tableau 11.4 : Les controles de la feuille peuvent aussi etre designes 
par leur indice 



Nom du controle 


Notation indiciaire 


lblStoreNum 


Formslf rmStore(0) 


lblStoreName 


Formslf rmStore(1 ) 



350 



Chapitre 11 : Gestion des feuilles 



Tableau 11.4 : Les controles de la feuille peuvent aussi etre designes 


par leur indice (suite) 




Nom du controle 


Notation indiciaire 


lblStoreLoc 


Formslf rmStore (2) 


IstStoreEmps 


Formslf rmStore (3) 


IstStoreMgrs 


Formslf rmStore(4) 



0>* 



Ne confondez pas les indices designant un controle de la feuille avec les 
indices de la collection Forms. Si Forms precede immediatement V indice, 
c'est a une feuille ou sous-feuille precise qu'il est fait reference. S'il suit le 
nom de la feuille, comme dans le Tableau 11.4, V indice designe I'un des 
controles de la feuille. 



La propriete Count 

Comme les controles, les collections ont des proprietes. Count est l'une des proprietes de la 
collection Forms. La propriete Count vous simplifie la tache en ce qu'elle verifie pour vous 
le nombre de feuilles contenues dans une collection. Grace a Count, vous pouvez ecrire des 
procedures generalistes qui s'appliqueront a toutes les feuilles actuellement ouvertes. La 
propriete Count contient toujours un entier. 

Appliquee a un nom de controle specifique, la propriete Count peut aussi 
indiquer le nombre de controles contenus dans une feuille. Par exemple, 
frmAcPay. Count renvoie le nombre de controles contenus dans la feuille 
frmAcPay. Count tient compte des controles caches. 

Le code suivant declare une variable Integer, intC, et y stocke le nombre de feuilles 
ouvertes : 

B Dim intC As Integer 
intC = Forms. Count 1 Stocke le nombre de feuilles ouvertes. 

Count permet aussi de compter les controles d'une feuille precise. Le code suivant 
declare une variable Integer, intCC,ety stocke le nombre de controles sur une feuille 
nominee f rmMyForm : 

Dim intCC As Integer 

intCC = f rmMyForm. Count 1 Stocke le nombre de controles de 
la feuille. 
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Placee apres le nom d'une feuille, Count indique le nombre de controles qu'elle 
contient. Placee apres Forms, elle indique le nombre de feuilles contenues 
dans la collection. 



Une boucle For est l'outil parfait pour parcourir toutes les feuilles du projet en cours. 
Prenez garde de toujours amorcer la boucle sur une valeur 0, c'est-a-dire sur l'indice de 
la premiere feuille. 

Le code suivant masque toutes les feuilles ouvertes : 

8 For intl = 0 To Forms .Count - 1 
Forms(intl) .Visible = False 1 Masque chaque feuille. 
Next intl 

II est parfois necessaire de masquer toutes les feuilles, par exemple pour effectuer une 
tache systeme requerant l'absence totale d'E/S utilisateur. Une fois la tache effectuee, 
une boucle semblable permettra de definir la propriete Visible de chaque feuille comme 
True. 

Visual Basic supporte un format special de For, For Each. Cette boucle parcourt une 
collection sans qu'il soit besoin de controler une variable de boucle. Voici une boucle 
For Each qui masque toutes les feuilles ouvertes : 

Dim varFrmObj As Variant 
For Each varFrmObj In Forms 

varFrmObj .Visible = False ' Masque chaque feuille. 
Next 

La seule variable de boucle qu'exige For Each est une variable Variant, qui contiendra 
le nom de chaque feuille a chaque iteration de la boucle dans la collection. Dans le 
meme esprit, l'instruction For Each suivante amorce une boucle qui parcourt tous les 
controles de la feuille f rmMyForm, quel que soit le nombre de ces controles : 

For Each varControl In frmMyForm 

Dechargement des feuilles 

Nous avons deja evoque la procedure evenementielle Form_Unload( ) . L'evenement 
Unload est utile pour les routines de nettoyage, par exemple sauvegarder toutes les 
donnees avant que l'application ne se ferme. Mais, surtout, l'evenement Unload joue un 
role central dans la fermeture "propre" des programmes. 

Imaginons une application qui contient plusieurs feuilles. Si l'application masque une 
feuille, l'utilisateur n'a aucun moyen de savoir que la feuille est encore chargee. D'un 
autre cote, meme si l'utilisateur ferme la feuille principale, celle-ci est toujours 
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chargee en memoire et, pour Windows, le programme est toujours en cours d'execu- 
tion. Ainsi, le programme continue d'accaparer de la memoire sans que l'utilisateur 
en ait connaissance. 

Les programmeurs Visual Basic ajoutent souvent le code suivant aux diverses comman- 
des de fermeture (telles que l'option de menu Fichier, Quitter) : 

B For intCtr = (Forms. Count - 1) to 0 Step - 1 
Unload Forms (intCtr) ' Decharge les feuilles affichees comme 
les feuilles masquees. 
Next intCtr 



La methode Print 



La methode Print permet d'afficher du texte sur la feuille sans passer par un controle du 
type label ou zone de texte. Print affiche le texte directement sur la feuille. Print a 
1' inconvenient d'exiger trop de programmation. Print n'etant pas un controle, on ne 
peut se contenter de definir des proprietes lors de la creation. C'est a travers le code seul 
que Ton peut regler le comportement de la methode Print. Par exemple, vous devez 
specifier dans le code la position precise a laquelle Print affichera le texte, sinon elle 
pourrait se superposer aux controles de la feuille. 

La methode Print ne permet pas settlement d'envoyer du texte aux feuilles . 
Comme nous le verrons au Chapitre 13, Print est aussi la fagon la plus 
courante d'envoyer une sortie vers V imprimante . 



Plus generalement, Print permet d'envoyer du texte a un objet. Pour notre expose, cet 
objet sera une feuille. Mais Print peut aussi bien s'appliquer aux controles Picture, 
ainsi qu'aux objets Printer ou Debug (qui est une fenetre d'execution speciale dans 
laquelle vous pouvez envoyer des resultats de tests lors de l'execution). L' objet le plus 
simple auquel puisse s'appliquer la methode Print est la feuille. 

Vous pouvez, des maintenant, vous exercer a la pratique de Print, sans construire une 
application complete. Ouvrez un nouveau projet, puis double-cliquez sur la fenetre 
Forml pour afncher la fenetre Code. Puisque le projet vient juste d'etre cree, les seuls 
objets disponibles sont la feuille Forml et la procedure general e qui contient la section 
de declarations. Toutes les procedures predefinies que la feuille peut reconnaitre sont 
proposees dans la liste deroulante Procedure. Selectionnez Click dans cette liste, puis 
saisissez le code du Listing 11.1. (Comme toujours, Visual Basic insere automatique- 
ment les lignes d'encadrement ; vous ne devez done taper que le corps de la procedure.) 
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Listing 11.1 : La methode Print ecrit directement sur la feuille 

1: Private Sub Form_Click( ) 
2: ' Exemple de methode Print. 
3: Dim strString As String 
4: strString = "Visual Basic" 
5: 1 Affiche trois fois la chaine. 

6: Forml . Print strString & " " & strString & " " strString 
7: End Sub 

Executez le programme. La feuille s' affiche, mais rien ne se passe tant que vous ne 
cliquez pas dessus. Ce qui est tout a fait normal, puisque le code est inclus dans la sous- 
routine Form_Click (). Cliquez plusieurs fois. Le resultat devrait ressembler a la 
Figure 11.2. 



Figure 11.2 

La methode Print affiche 
la sortie directement 
sur la feuille. 
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Print est l'une des manieres les plus simples d'afficher des informations. Pour afficher 
une chaine quelconque sur une feuille de votre programme, il suffit de faire preceder 
Print du nom de la feuille, le tout separe par un point. Voici le format de la methode 
Print appliquee a une feuille : 

frmFormName. Print DataToPrint 

Ici, frmFormName est la feuille de destination, et DataToPrint les donnees a imprimer. 
Print peut envoyer des litteraux (nombres, chaines ou dates), des valeurs de variables et 
des controles. 



Formatage de la sortie Print 

Vous pouvez formater la sortie de Print en incluant les fonctions Spc() ou Tab(). 
Ces deux methodes permettent d'espacer les donnees envoyees par la methode Print. 

Le Listing 11.2 utilise Spc() et le point-virgule (;) pour envoyer deux chaines sur la 
meme ligne. Spc(5) ordonne a la methode Print d'inserer cinq espaces avant d'afficher 
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la chaine sur la sixieme colonne. Si vous terminez l'instruction Print par un point- 
virgule, l'instruction Print suivante affichera le texte a la suite, sur la meme ligne. 

Listing 11.2 : Le point-virgule empeche les sauts de lignes 

1: Private Sub Form_Click () 
2: Dim strString As String 
3: strString = "Visual Basic" 

4: Forml. Print "*"; Spc(5); strString; 1 Remarquez le point-virgule. 
5: Forml. Print Spc(2); strString 

6: End Sub 

Cliquez plusieurs fois sur la feuille, et la sortie suivante s' affichera : 

Visual Basic Visual Basic 
Visual Basic Visual Basic 
Visual Basic Visual Basic 

Le code force Print a sauter cinq espaces avant d'afficher le premier Visual Basic. 
Apres deux autres espaces, la seconde instruction Print affiche egalement Visual 
Basic. Chaque fois que vous cliquez, la procedure evenementielle se repete. 

Si Ton emploie Tab ( ) au lieu de Spc ( ) , la sortie commencera a la colonne specifiee dans 
l'argument entre parentheses. Spc() force l'instruction Print suivante a sauter un 
certain nombre d'espaces, alors que Tab() ordonne au Print suivant de commencer a 
une colonne precise. Le Listing 1 1 .3 donne un exemple. 

Listing 113 : Espacement de la sortie de Print a l'aide des fonctions Tab() et Spc() 

1: Private Sub Form_Click() 
2: Dim strString As String 
3: strString = "Visual Basic" 
4: 

5: Forml. Print "*"; Tab(5); strString; Tab(20); strString 
6: Forml. Print "*"; Spc(5); strString; Spc(20); strString 
7: End Sub 

A la ligne 5, Tab ( ) specifie les colonnes a utiliser, tandis qu'a la ligne 6, Spc ( ) specifie 
un certain nombre d'espaces a sauter. 

Voici la sortie de cette procedure : 

Visual Basic Visual Basic 
Visual Basic Visual Basic 

La methode Print peut egalement servir a inserer des lignes vierges sur une feuille. 
Examinez le code du Listing 1 1 .4. 



a 



355 < 



Partie II 



Listing 11.4 : Print permet aussi d'inserer des lignes vierges 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 



Private Sub Form_Click( ) 
Dim strString As String 
Dim CurLine As Integer 

CurLine = 1 

strString = "Visual Basic" 
1 Affiche la ligne. 

Forml. Print strString & " est sur la ligne n°" & CurLine 

For CurLine = 2 To 6 

Forml. Print 1 Insere des lignes vierges. 
Next CurLine 

1 Affiche la ligne. 

Forml. Print strString & " est sur la ligne n°" & CurLine 
End Sub 



La sortie presente cinq lignes vierges entre les deux chaines 
Visual Basic est sur la ligne n°1 



Visual Basic est sur la ligne n°7 

Les lignes 11 a 13 inserent des lignes vierges parce que la methode Print n'envoie pas de 
donnees. 



Positionnement de la sortie Print 

II faut parfois specifier la position exacte ou la sortie doit s'afficher. A cette fin, 
plusieurs proprietes liees a la feuille peuvent etre utilisees conjointement a la methode 
Print. Ces proprietes renvoient la position courante du curseur texte, qui se deplace au 
fur et a mesure de 1' execution de la methode Print. Les coordonnees du curseur texte 
sont contenues dans les proprietes Currentx et CurrentY. Vous pouvez, a l'aide de ces 
proprietes, definir avec precision le point oil les donnees seront affichees. 

Le comportement de Currentx et CurrentY est affecte par une troisieme propriete, 
ScaleMode. La feuille peut reconnaitre plusieurs modes differents selon le contenu de la 
propriete ScaleMode. Le mode en question concerne l'echelle employee pour l'affichage 
des images et du texte sur la feuille. Le Tableau 1 1 .5 presente les divers modes disponibles. 



> 356 



Chapitre 11 : Gestion des feuilles 



La plupart sont de nature graphique et particulierement utiles pour les sorties impriman- 
tes (nous en reparlerons au Chapitre 13). 



Tableau 11.5 : Les valeurs de ScaleMode determinent les coordonnees 
de la sortie Print 



Constante nommee 


Valeur 


Echelle 


vbUser 


0 


Specifiee par le programmeur. 


vbTwips 


1 


Echelle en twips (valeur par defaut) . 


vbPoints 


2 


Point typographique (environ 0,35 mm). 


vbPixels 


3 


Point le plus petit de l'objet (pour l'ecran, la taille du 
point d'ecran determine celle du pixel). 


vbCharacters 


4 


lillllC U Ull LilIdLlCiC. 


vblnches 


5 


Un pouce (25,4 mm). 


vbMillimeters 


6 


1 mm. 


vbCentimeters 


7 


1 cm. 


vbHimetric 


8 


Certains programmeurs preferent aux pixels les mesures 
Himetric, independantes du materiel ; Windows utilise 
alors la plus haute resolution possible. 


vbContainerPosition 


9 


Utilisee comme valeur positionnelle, la valeur ScaleMode 
du conteneur (un objet qui contient l'objet courant) 
determine la valeur ScaleMode de l'objet courant. 


vbContainerSize 


10 


Utilisee comme valeur positionnelle, la valeur ScaleMode 
du conteneur determine la valeur ScaleMode de l'objet 
courant. 



Pour le texte, la valeur de ScaleMode la plus courante est vbCharacters. Ainsi, si Currentx 
et CurrentY ont toutes les deux la valeur 5, la prochaine sortie Print commencera 
colonne 5, ligne 5. L'origine pour la propriete ScaleMode est le coin superieur gauche de la 
feuille (coordonnees 0, 0). La procedure evenementielle Click du Listing 11.5 exploite 
les proprietes ScaleMode, Currentx et CurrentY. 
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Listing 11.5 : Positionnement de la sortie a l'aide des proprietes CurrentX et 
CurrentY 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



Private Sub Form_Click( ) 
1 Definition de l'echelle 
Forml .ScaleMode = VbCharacters 

Forml .CurrentX = 20 1 Deplacement horizontal de 20 caracteres. 
Forml .CurrentY = 6 ' Deplacement vertical de 6 lignes. 
Forml. Print "Vertical et horizontal " 

Forml .CurrentX = 0 1 Retour vers la gauche. 
Forml .CurrentY = 0 ' Retour vers le haut. 
Forml. Print "Coin superieur gauche" 
End Sub 



La ligne 3 affecte a ScaleMode la constante VbCharacters qui specifie l'echelle carac- 
tere. La sortie du Listing est reproduite en Figure 11.3. Vous pouvez remarquer que la 
sortie du second Print s'affiche plus haut sur la feuille que la sortie du premier. 



Figure 11.3 

CurrentX et CurrentY 
positionnent le curseur 
texte de la methode Print. 




Vertical et horizontal 



Creation de nouvelles proprietes de feuilles 

Vous pouvez creer vos propres proprietes de feuilles. II vous arrivera sans doute, pour 
les besoins d'une application, d'appliquer a une feuille les memes modifications a 
plusieurs reprises. Dans un cas pareil, il peut etre interessant de definir des proprietes 
personnalisees. 

Imaginons, par exemple, que vouliez afficher un titre au bas d'une feuille. Si vous vous 
servez d'un label, il faudra configurer le controle, et le configurer de nouveau chaque 
fois que vous voudrez modifier le titre affiche. En faisant de ce titre l'une des proprietes 
de la feuille, vous vous epargnez une peine inutile. 
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Pour bien comprendre la creation de proprietes personnalisees, rien de mieux qu'un exem- 
ple. Creez un nouveau projet et configurez-le selon les specifications du Tableau 11.6. 
Cette petite application montre comment les valeurs de ScaleMode determinent les coor- 
donnees de la sortie Print. 



Tableau 11.6 : Les coordonnees de Print sont modifiees par les valeurs 
de ScaleMode 



Contrdle 


Propriete 


Valeur 


Feuille 


Name 


f rmTitle 


Feuille 


Caption 


Titre 


Feuille 


Height 


3720 


Feuille 


StartUpPosition 


2-CenterScreen 


Feuille 


Width 


3975 


Bouton de commande 


Name 


cmdTitle 


Bouton de commande 


Caption 


&Voir le titre 


Bouton de commande 


Height 


495 


Bouton de commande 


Left 


1320 


Bouton de commande 


Top 


1200 


Bouton de commande 


Width 


1215 



Lorsque l'utilisateur clique sur le bouton de commande, le titre s'affiche au bas de la 
feuille. Cela est du a la procedure evenementielle Click du bouton de commande : 

81: Private Sub cmdTitle_Click( ) 
2: f rmTitle. BottomTitle = "Nouvelle propriete" 
3: End Sub 

Examinez la ligne 2. II y a quelque chose qui cloche : il n'existe pas de propriete 
nominee BottomTitle. Qu'a cela ne tienne, nous allons la creer ! 

Suivez ces etapes pour ajouter la nouvelle propriete BottomTitle a la liste des proprietes 
de votre feuille : 

1 . Cliquez sur le bouton Code de la fenetre Proprietes pour afficher la fenetre Code. 
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2. Dans la section de declarations qui apparait avant la procedure evenementielle 
cmdTitle_Click ( ) , tapez ceci : 

Dim strTitle As String 

strTitle est done une variable publique, disponible pour le projet entier. Puisque les 
variables publiques sont tant decriees, pourquoi declarer strTitle comme publique ? 
Rappelez-vous que les controles sont publics pour l'application entiere. II n'y a pas de 
controles prives, pas plus que de proprietes privees. La variable strTitle contient en 
fait la valeur de la nouvelle propriete BottomTitle qui ne deviendra reellement 
propriete qu'a la prochaine etape. Or cette propriete BottomTitle doit avoir un acces 
complet et permanent a sa variable reservee strTitle. II faut done que cette variable 
soit publique. 

3. Vous allez maintenant decouvrir un nouveau type de procedure : Property Get. 
II existe une procedure Property Get pour chaque propriete que vous definissez. 
Lorsque le programme rencontre une propriete personnalisee, Visual Basic execute 
automatiquement la procedure Property Get correspondante. Ainsi, apres que Ton 
aura cree la procedure Property Get de la propriete BottomTitle, Visual Basic 
executera automatiquement cette procedure chaque fois que l'application deman- 
dera la valeur de BottomTitle. 

Une procedure Property Get renvoie la valeur de la propriete creee. 



Dans la fenetre Code, saisissez le contenu du Listing 1 1 .6. 
Listing 11.6 : La procedure Property Get renvoie la valeur de la propriete 



Public Property Get BottomTitle ( ) 
' Cette procedure renvoie la valeur 
' de la propriete BottomTitle, 
1 valeur en fait contenue dans 
1 la variable publique strTitle. 
BottomTitle = strTitle 

End Property 



La propriete BottomTitle n'est pas vraiment une propriete. Sa valeur reste contenue 
dans la variable publiques trTitle. Mais, grace a la procedure Property Get, le 
programme n'y voit que du feu et traite BottomTitle comme une propriete normale. 
En verite, la valeur de la propriete est une valeur de variable. 
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4. II faut maintenant fournir a notre pseudo-propriete BottomTitle une procedure 
Property Let. La procedure Property Let change la valeur de BottomTitle. En fait, 
Property Let n'intervient que sur la variable publique qui "represente" BottomTitle 
dans le code, et a laquelle sont affectees les valeurs destinees a cette propriete. 



Une procedure Property Let affecte une valeur a la propriete creee. 



Dans la fenetre Code, saisissez le contenu du Listing 1 1 .7. 



Listing 11.7 : La procedure Property Let affecte une valeur a la propriete 

1: Public Property Let BottomTitle(strTitleEntered) 
2: 1 Cette procedure affecte a la variable 
3: 1 strTitle les valeurs que le programme 
4: 1 est susceptible d'envoyer a BottomTitle. 
5: 

6: 1 L 1 argument passe est la valeur que 
7: 1 le programme stocke dans BottomTitle. 
8: strTitle = strTitleEntered 
9: 

10: ' La sortie suivante s'affichera au bas de la feuille. 

11: f rmTitle.CurrentY = (frmTitle. Height - 600) 

12: 

13: 1 Si la feuille est si petite que meme une seule 
14: ' ligne ne rentre pas, ne rien faire. 
15: If f rmTitle.CurrentY < 600 Then 
16: Exit Property 
17: Else 

18: 1 Affiche sur la feuille la valeur de propriete. 

19: Print strTitle 
20: End If 
21 : End Property 

La ligne 8 affecte a la variable publique 1' argument passe a la procedure. Quel que soit 
le point du programme oil une valeur est affectee a la propriete BottomTitle, cette 
procedure s'execute pour passer la valeur comme argument. 

Les lignes 1 1 et 15 reglent l'affichage du titre. La ligne 1 1 fait en sorte que le libelle 
s' affiche a 600 twips du bas de la feuille, quelle que soit la taille definie en cours 
d'execution par l'utilisateur. Si l'utilisateur a retreci la fenetre au point que meme 
une seule ligne ne puisse apparaitre, la ligne 16 annule toute la procedure. Tant que 
la ligne de texte rentre sur la feuille, la ligne 19 affiche la valeur a la position 
CurrentY. (Currentx vaut 0, soit le bord gauche de la fenetre. Ici, le code n'a jamais 
modifie Currentx.) 
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' ) Des lors que vous avez ecrit les procedures Property Get et Property Let, 

^ v>c6 la propriete BottomTitle fait partie integrante de la liste des proprietes de 
la feuille. Bien que lafenetre Proprietes n'inclura pas toujours la nouvelle 
propriete, ce sera le cas de toutes les autre s liste s de proprietes. Dans la 
Figure 11 .4, on s'apprete a affecter une valeur a Vune des proprietes de la 
feuille ; le menu contextuel qui s'affiche propose bien la propriete Bottom - 
Title. La nouvelle propriete peut etre utilisee comme les autres, par la 
grace des procedures Property Get et Property Let. 



Figure 11.4 

La propriete Bottom- 
Title apparait dans 
le menu contextuel 
de lafenetre Code. 



HI 



[creation] - [Inn I ill-? [Code)] 



Q Fichier 
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_i m 
y n 



_ 
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la variable publique 31 
BottomTitle - strTitle 
1 Property 



Public Property Let BottomTitle [strTitleEntered) 
tte procedure affecte a la variable 
rTitle le3 valeurs que le programme 
t susceptible d'envoyer a BottomTitle. 



L 1 argumem 
1 La sort: 

frmTitle. CurrentY = 

1 ligne ne rentre pas. 
If frmTitle. < 600 Then 
Exit Piufi BackColor 
i? BorderStyle 



End If 
End Propert 
Private Sub 



passe est la valeur que 
ne stocke dans BottomTitle. 
;rTit leEntered 




- £i? Projetl (Pro|etl) 

Q- frmTitle (frmTitle) 



I frmTitle Form 
Alphabetique | Par categorie | 



..A.J.: 



0 - Halftone 
(Aucun) 
False 
3315 



: Lt['l opMode 
3 alette 
=aletteMode 

RightToLeft 
ScaleHeight 
5caleLeFt | 0 
ScahWoda 1-Twip 
Scale Top jo 
ScaleWldth 3855 
ShowInTaskbar True 
5tartUpPo5ition 2 - Center5tree 



■.■"hats i hi-; Button False 
'.''■'hati-i-r-.l'Tlp f ali r 



5. Lorsque vous lancez l'application et cliquez sur le bouton de commande, l'evene- 
ment Click de ce controle se produit, et la procedure evenementielle Click 
s'execute. La procedure evenementielle Click affecte le litteral chaine "Nouvelle 
propriete", la propriete BottomTitle, et les procedures Property s'occupent du 
reste. 
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Les applications multifeuilles 

La plupart des applications que nous avons creees jusqu'ici ne contenaient qu'une seule 
feuille. Nous n'avons pas aborde la question des applications multifeuilles, en raison de la 
simplicite des projets etudies. Pour ajouter une feuille, il suffit de cliquer du bouton droit 
sur la fenetre Projet, puis choisir 1' option appropriee. 

Vous allez maintenant apprendre a travailler sur des applications multifeuilles. Les 
feuilles ajoutees seront des feuilles de donnees speciales. Mais avant toute chose, vous 
devez saisir la distinction entre les programmes SDI (Single Document Interface, inter- 
face monodocument) et MDI (Multiple Document Interface, interface multidocument). 

Lorsque plusieurs feuilles sont en jeu, on doit generalement s'occuper de plusieurs jeux 
de controles. En assignant a chaque feuille un nom assez explicite, vous reduisez la part 
de complications que cela implique. Le nom de la feuille permet a tout moment de 
savoir sur quel jeu de controles on travaille. Du reste, les feuilles peuvent etre affichees 
et masquees a volonte lors de l'execution (l'utilisateur peut aussi basculer de lui-meme 
d'une feuille a 1' autre). 

Meme lorsque plusieurs feuilles sont affichees, il n'y a qu'une feuille active. 
Pour activer une feuille inactive, il suffit a l'utilisateur de cliquer sur Vune de 
ses parties visibles. Une feuille peut aussi etre activee depuis le code au 
moment choisi. La methode frmForm.Show active la feuille frmForm et 
masque les autre s feuilles si la feuille activee manque d'espace. 

Les applications developpees en mode MDI peuvent devenir assez complexes. La plupart 
des applications commerciales sont de type multidocument. Les programmes decrits dans 
la suite de cet ouvrage, plus puissants et exploitant des fichiers et des controles supple- 
mentaires, seront presque toujours des applications MDI. 

Plutot que de cliquer du bouton droit sur la fenetre Projet pour ajouter une feuille, vous 
pouvez aussi choisir, dans le menu Projet, la commande Ajouter une feuille. Visual Basic 
affiche alors la boite de dialogue Ajouter une feuille (voir Figure 1 1 .5). Vous pouvez choi- 
sir entre plusieurs types de feuilles, ou choisir dans la liste proposee a l'onglet Existant. 

Si vous double-cliquez sur l'icone Form, Visual Basic ouvre une nouvelle feuille standard. 
Chaque feuille ajoutee est automatiquement nominee Form2, Form3,etc. II convient de 
donner aux feuilles des noms plus explicites des la premiere etape de la creation. 

Le Chapitre 15 detaille les autres options proposee s dans la boite de dialogue 
Ajouter une feuille. 
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Figure 11.5 

Selectionnez le type 
defeuille a ajouter. 



Nouveau | Existant | 



& & 



Assistant Feuilles A propos de Navigateur 
de donnees 



Boi.e de dialogue Boite de dialogue Ecran d'acceuil Astuce du JoUl 
Connexion 




I - Ne plus afficher cette boite de dialogue 



SDI contre MDI 

Visual Basic supports trois styles d'interface : 

• Interface monodocument (SDI). Une application SDI contient une seule fenetre de 
donnees. Dans l'utilitaire Windows Bloc-notes, par exemple, on ne peut ouvrir 
qu'un seul document a la fois. La barre de menus des applications SDI ne contient 
generalement pas de menu Fenetre, puisque Ton ne peut passer d'une fenetre a 
l'autre. Des que l'utilisateur ouvre un nouveau fichier de donnees, ce contenu vient 
prendre la place de la fenetre precedemment ouverte. 

• Interface multidocument (MDI). Une application MDI contient plusieurs fenetres de 
donnees (fenetres de document). Microsoft Word, par exemple, permet d'ouvrir autant 
de documents que Ton veut. Le code MDI de Word garantit que chaque document 
apparait dans sa propre fenetre (voir Figure 1 1 .6). 

On passe de l'une a l'autre en cliquant sur la fenetre appropriee, ou en la 
selectionnant dans le menu Fenetre. Lorsque l'utilisateur bascule entre les docu- 
ments — c'est-a-dire, de notre point de vue, entre les feuilles — , la fenetre selec- 
tionnee recoit le focus et devient la feuille active. 

• Interface Explorateur. C'est le style mis en ceuvre dans le systeme d'aide Visual 
Basic et dans l'Explorateur Windows. Une application de type Explorateur contient 
deux fenetres : une a gauche et une a droite. La fenetre de gauche affiche une vue 
arborescente des donnees detaillees dans la fenetre de droite. L interface Explorateur 
est appropriee aux applications de gestion de fichiers et d' images. On utilise pour les 
applications de ce type les controles Tree View et ListView, qui permettent de parcourir 
les donnees des deux panneaux. (Ces controles n'apparaissant pas par defaut sur la 
Boite a outils, il faut les ajouter par le menu Projet, Composants.) 
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Figure 11.6 

Les applications 
MDI contiennent de 
multiples fenetres 
de donnees. 
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— ' I Une application SDI peut contenir plusieurs feuilles. MDI signifie simple- 
ment que V application peut inclure une ou plusieurs feuilles filles, chacune 
contenant un jeu de donnees particulier. Dans une application MDI, les 
diverses feuilles apparaissent dans une feuille de controle (on parle aussi de 
feuille parent ou de feuille principale), et ne peuvent s'afficher que dans les 
limites de cette feuille de controle. Une application SDI peut contenir de 
multiples feuilles, mais aucune n'est consideree comme la file d'une autre. Si 
votre application est destinee a traiter un seul jeu de donnees a la fois ( un 
seul fichier client ou le fichier paye d'un seul employe, par exemple), ou si 
elle ne traite pas de donnees en dehors des informations de controle du 
programme, alors le mode SDI est le plus indique. 



Terminologie MDI 

Pour exploiter adequatement le mode MDI, vous devez en connaitre la terminologie. 
La feuille principale qui fait office de toile de fond pour les autres feuilles, est souvent 
designee comme feuille parent ou fenetre parent. La fenetre parent est le receptacle qui 
contient une ou plusieurs fenetres filles. Dans Microsoft Word, par exemple, l'arriere- 
plan gris, avec ses barres de menus, d'etat et d'outils, est la fenetre parent. Chaque 
document Word ouvert s'affiche dans une fenetre fille a l'interieur de la fenetre parent ; 
les fenetres filles ne peuvent sortir des limites de la fenetre parent. 



365 < 



Partie II 



Cette fenetre parent qui impose ses limites aux fenetres filles ne peut contenir que deux 
types de controles : 

• les controles qui supportent la propriete Align ; 

les controles sans interface visible (voir Chapitre 15). 

Si I'utilisateur reduit une fenetre fille, I'icone ou le bouton correspondant s'affi- 
che au bas de la fenetre parent, mais pas sur la Barre des tdches. Les fenetres 
filles ne peuvent jamais depasser les frontieres de la fenetre parent ; les limites 
de la fenetre parent sont les limites absolues de toutes les fenetres filles . 

Techniquement, une fenetre fille se distingue par ce que la propriete MDlChild de la 
feuille correspondante est definie comme True. Du reste, une application MDI peut 
contenir des feuilles non-filles. Ainsi, par exemple, de la boite de dialogue A propos 
(accessible depuis le menu d'aide) ; cette boite de dialogue ne contenant pas de donnees 
proprement dites, elle n'a pas a etre une fille MDI. 

Pour creer une application MDI, choisissez dans le menu Projet l'option Ajouter une 
feuille MDI, puis definissez comme True la propriete MDlChild de la nouvelle feuille. 

L'assistant Creation d'applications 

L' assistant Creation d'applications que nous avons decouvert au Chapitre 1, peut 
egalement servir a creer des applications MDI. C'est une methode plus simple que de 
creer les differentes feuilles et de definir chaque propriete MDlChild "a la main". 

La deuxieme boite de dialogue affichee par l'assistant Creation d'applications vous 
propose de choisir un style d' interface (voir Figure 1 1 .7). 




Figure 11.7 

L'assistant Creation 
d'applications 
propose les trois 
styles d'interface. 
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Quel nom souhaitez-vous donner a votre application? 
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Dans les projets MDI construits par l'assistant Creation d'applications, les multiples 
fenetres filles sont creees a partir de la commande Nouveau du menu Fichier. Lorsque 
l'utilisateur selectionne la commande Fichier, Nouveau (procedure evenementielle 
mnuFileNew . Click( )), le code du Listing 11.8 s'execute. 

Listing 11.8 : Creation d'une variable de reference pointant vers la fenetre fille 

1: Private Sub LoadNewDoc() 

2: Static IDocumentCount As Long 

3: Dim frmD As f rmDocument 

4: 

5: IDocumentCount = IDocumentCount + 1 

6: Set frmD = New f rmDocument 

7: frmD. Caption = "Document " & IDocumentCount 

8: frmD. Show 

9: End Sub 

Ce code est un peu complexe, mais vous en savez deja assez pour le comprendre. A la 
ligne 2, la variable statique IDocumentCount est locale pour la procedure, mais ne sera 
jamais a cours de portee. Ala premiere execution de cette procedure, la valeur de 
IDocumentCount est 0 (les variables statiques commencent toujours par la). Si la proce- 
dure change la valeur de IDocumentCount (elle lui ajoute 1 a chaque execution, ligne 5), 
Visual Basic "retient" la nouvelle valeur. Aucune autre procedure ne peut acceder a 
IDocumentCount, et sa valeur reste toujours identique dans cette procedure-ci. La valeur 
reste la meme, ce qui ne serait pas le cas pour une variable locale automatique , soit le 
contraire d'une variable statique. (Toutes les variables que nous avons jusqu'ici declarees 
localement etaient des variables automatiques.) 

Une variable statique conserve sa valeur mime apres la fin de la procedure 
qui la contient. Ainsi, une variable dont la valeur serait 7 au terme d'une 
procedure, garderait cette valeur meme si la procedure s'executait de 
nouveau (par exemple au sein de la boucle d'une autre procedure) . 

La ligne 3 introduit une instruction d'affectation d'un nouveau genre. En effet, plutot 
qu'une variable, c'est une feuille que Ton declare. L' application contiendra au 
demarrage la feuille fille f rmDocument specifiee lors de la creation. L' instruction Dim de 
la ligne 3 declare une variable frmD qui correspond en fait au meme objet que f rmDocu- 
ment. Au lieu de contenir des donnees Integer ou String, frmD pointe vers un objet 
document qui a les memes proprietes que f rmDocument. frmD est un exemple de controle 
de variable. 

Apres que la variable statique chargee de referencer les nouveaux documents a ete mise 
a jour (ligne 5), l'instruction Set cree un nouveau document et definit frmD comme 
reference de ce document. En pratique, frmD est le nouveau document. L'instruction 
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suivante affecte a la propriete Caption du nouveau document la valeur Document suivie 
du numero de document. Enfin, la derniere instruction applique la methode Show pour 
afficher le nouveau document dans la fenetre parent. 



L' instruction Set fonctionne en gros comme une instruction d' affectation, a 
ceci pres qu 'elle affecte une variable de controle a un contrdle proprement 
dit. La ligne 3 du Listing 11 .8 ne declare pas une nouvelle feuille, mais bien 
une variable de feuille. Cette variable reste vide jusqu'a ce qu'une instruc- 
tion Set I'associe a une feuille determinee (ce qui est fait ligne 6). 

Chaque fois que l'utilisateur choisit Fichier, Nouveau, la procedure LoadNewDoc( ) 
s'execute et cree une nouvelle fenetre fille. Si, dans l'application MDI creee a l'aide de 
l'assistant Creation d' applications, vous selectionnez Fichier, Fermer, rien ne se passe. 
L' assistant ne genere pas de code a cet effet. C'est a vous de programmer le dechargement 
de la fenetre fille active. 

' Les fenetres files font de parfaites boites de dialogue. Le Chapitre 9 vous a 

explique comment generer des boites de dialogue communes. Mais vous 
pouvez creer vos propres boites de dialogue, sous la forme de fenetres files 
equipees des contrdles adequats. Par exemple, un bouton de commande 
defini comme bouton par defaut via la propriete Default, et des zones de 
texte affichant des entrees par defaut. Les boutons de commande peuvent 
egalement etre desactives (propriete Enabled definie comme False), selon 
le contexte dans lequel l'utilisateur invoque la boite de dialogue. Pour 
afficher une telle boite de dialogue, il sufft d'appliquer la methode Show : 

f rmDialog.Show vbModal, Me 

vbModal genere une boite de dialogue modale a laquelle l'utilisateur doit 
repondre par OK ou Annuler avant de faire quoi que ce soit d' autre dans 
l'application. La deuxieme option de Show correspond au nom de la feuille 
parent, mais vous pouvez employer Me si la feuille parent est la feuille stan- 
dard de l'application. 

Les barres d'outils 

Les barres d'outils permettent d'acceder par des boutons aux commandes et options de 
menu courantes. Pour integrer une barre d'outils a votre application, il faut d'abord 
ajouter le controle Toolbar a votre Boite a outils. Une fois la barre d'outils creee, il ne 
reste qu'a ecrire pour chaque bouton une procedure evenementielle Click, comme on le 
fait pour les options de menu. 
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Dans une application MDI, les barres d'outils peuvent apparaitre sur la 
feuille parent seule, ou sur les feuilles filles egalement. 



Ajout du controle Toolbar a la Boite a outils 

Les barres d'outils et les coolbars (que vous decouvrirez dans la prochaine section) 
fonctionnent et s'installent de la meme maniere. Si les barres d'outils sont les plus 
courantes (on en trouve dans a peu pres dans toutes les applications Windows 
d'aujourd'hui), les coolbars sont un peu plus simples a ajouter, car il y a moins de 
valeurs de proprietes a definir. Cette section vous indique les etapes a suivre pour 
ajouter une barre d'outils a votre application. La section suivante traite des controles 
specifiques aux coolbars. 

Comme V indique la section suivante, les coolbars ont ceci de particulier 
qu'elles permettent de faire glisser les controles hors du champ de vision, 
puis de les faire reapparaitre . 

Pour ajouter le controle Toolbar a votre Boite a outils, choisissez Projet, Composants. 
Dans la boite de dialogue Composants qui s'affiche, selectionnez l'entree Microsoft 
Windows Common Controls 6.0, puis cliquez sur OK. Plusieurs nouveaux outils 
apparaissent alors dans la fenetre Boite a outils. Positionnez le pointeur de la souris sur 
chacun d'eux pour en connaitre le nom. 

Pour creer des barres d'outils, voici la procedure generale a suivre : 

1 . Double-cliquez sur le controle Toolbar de la Boite a outils pour inserer une barre 
d'outils en faut de la feuille. (Pour que le contour de la barre d'outils soit visible, 
l'affichage de la grille doit etre active.) La barre d'outils s'etend automatiquement 
sur toute la largeur de la feuille, quelle que soit cette largeur. Ce qui vous epargne au 
moins le reglage des dimensions. 

2. Pour que les boutons de votre barre d'outils puissent presenter des images, et non 
seulement du texte, il faut aussi ajouter a la feuille le controle ImageList. ImageList 
fait partie des controles conjoints qui viennent avec Toolbar lorsque vous ajoutez 
l'outil Microsoft Windows Custom Controls 6.0. Le controle ImageList contiendra les 
images que vous disposerez sur la barre d'outils. La disposition du controle ImageList 
sur la barre d'outils est indifferente. Ce controle n'apparait pas sur la feuille lors de 
1' execution. Sa seule fonction est d'afficher les icones des differents boutons de la 
barre d'outils. 
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Bien que I ' emplacement par defaut — et le plus courant — de la barre 
d'outils soit le sommet de lafeuille, vous pouvez I'afficher en bas, en affec- 
tant a la propriete Align du contrdle Toolbar la valeur vbAlignBottom. 

3. Dans la fenetre Proprietes du controle ImageList, double-cliquez sur (Personnalise) . 
La boite de dialogue Pages de proprietes s'affiche (voir Figure 1 1 .8). 



Figure 11.8 

La boite de dialogue 
Pages de proprietes 
facilite le reglage 
des proprietes du 
contrdle ImageList. 




4. Cliquez sur l'onglet Images. 

5. Cliquez sur le bouton Inserer une image et selectionnez une icone. 

6. A mesure que vous ajoutez des icones, Visual Basic actualise les valeurs Index de 
chacune. Ces valeurs d'index permettront d'associer les icones aux differents 
boutons de la barre d'outils. 

7. Fermez la boite de dialogue Pages de proprietes. 

8. Dans la fenetre Proprietes du controle Toolbar, double-cliquez sur (Personnalise). 
La boite de dialogue Pages de proprietes s'affiche (voir Figure 1 1 .9). Comme pour le 
controle ImageList, la boite de dialogue Pages de proprietes facilite le reglage des 
proprietes. 

9. Definissez les differentes valeurs de proprietes, puis cliquez sur Appliquer pour 
constater les changements apportes a la barre d'outils. Dans les Pages de proprietes 
du controle Toolbar, assurez-vous que l'option ImageList corresponde bien a votre 
controle ImageList. A l'onglet Boutons, l'option ToolTipText permet d'affecter des 
info-bulles aux boutons. 

10. Cliquez sur OK pour refermer les Pages de proprietes du controle Toolbar. 

1 1 . Affectez a chaque bouton de la barre d'outils une procedure evenementielle Click. 
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Figure 11.9 

Le controle Toolbar 
a lui aussi ses Pages 
de proprietes . 
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Definie comme True, la propriete Wrappable permet d la barre d'outils de 
s 'etendre sur une ligne supplementaire pour pouvoir, si necessaire, afficher 
toutes les icones. 

Vous voulez gater vos utilisateurs ? Permettez-leur de personnaliser la barre d'outils, en 
definissant comme True la propriete AllowCustomize du controle Toolbar. A l'execution, 
un double-clic sur la barre d'outils affichera la barre d'outils reproduite en Figure 1 1 .10. 



Figure 11.10 
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Les coolbars sont une nouveaute de la version 6 de Visual Basic. La Figure 11.11 
montre une coolbar Internet Explorer. Grace a une "poignee" speciale, l'utilisateur peut 
faire coulisser la barre vers la droite comme vers la gauche. Les coolbars vous permet- 
tent d'inclure sur une meme barre une profusion de boutons, que l'utilisateur masque ou 
afhche a loisir en faisant glisser la poignee. 



Figure 11.11 

La coolbar, 
coulissante, permet 
de masquer et 
d'afficher les icones 
a volonte. 



Faites glisser la poignee pourD 
I redimensionner la coolbar 

Liens ©J Demerrage de Interne! jJJGuide des chaines jJJHotMail (gratuit] iJJInfcs sur Internet Explorer Internet demarrage 



Cliquez sur la fleche pourD 
afficher les autres boutons 



ins I 

felLemei > 




Pour pouvoir utiliser le contrdle Coolbar, vous devez ajouter a la Boite a 
outils I'outil Microsoft Windows Custom Controls-3 6.0. 



Pour ajouter une coolbar a la feuille, la procedure est la meme que pour la barre d'outils. 
II faut ajouter le controle ImageList, puis associer chaque image a la coolbar, a l'aide de 
la valeur Key. L' installation des coolbars est plus simple, car elle exige moins de regla- 
ges de proprietes. 

Pour ajouter une coolbar, suivez ces etapes : 

1 . Pour ajouter le controle ImageList a votre Boite a outils, choisissez Projet, Composants, 
puis cochez l'option Microsoft Windows Common Controls 6.0. Pendant que vous y 
etes, cochez l'option Microsoft Windows Common Controls-3 6.0, arm d'ajouter 
egalement le controle Coolbar. Cliquez sur OK. Les controles ImageList et Coolbar 
apparaissent sur votre Boite a outils. 

2. Double-cliquez sur le controle ImageList pour ajouter une liste d'images. La posi- 
tion du controle sur la barre n'a aucune importance, puisque ce controle n'apparaitra 
pas sur la feuille lors de l'execution. (Sa seule fonction sera d'afficher les icones sur 
la coolbar.) 

3. Double-cliquez sur la propriete (Personnalise) du controle ImageList pour afficher 
la boite de dialogue Pages de proprietes. 

4. Cliquez sur l'onglet Images. 
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5. Cliquez sur le bouton inserer une image. La boite de dialogue Selectionner un dessin 
permet de specifier le chemin d'acces du fichier graphique qui servira de premiere 
icone. 

6. Selectionnez, par exemple, une image bitmap du dossier Graphics de Visual Basic. 
Lorsque vous double-cliquez sur le fichier, la boite de dialogue se referme, et 
1' image apparait au debut de la liste (voir Figure 11.12). 



Figure 11.12 

La premiere image 
apparait dans la liste 
ImageList. 



Pages de propiietes 
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image - 
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7. Continuez a choisir vos images. 

8. Double-cliquez sur le controle Coolbar pour ajouter les deux bandes coulissantes de 
la coolbar sur votre feuille. 

9. Double-cliquez sur la propriete (Personnalise) pour afficher les Pages de proprie- 
tes du controle Coolbar (voir Figure 11.13). 

10. Dans la zone ImageList, selectionnez la liste d'images appropriee. Le Tableau 11.6 
decrit les autres options proposees a la page General de la boite de dialogue. 

1 1 . Cliquez sur l'onglet Bands pour ajouter les icones. 

12. La page propose egalement les boutons Inserer une bande et Supprimer la bande. 
Les autres options sont detaillees dans le Tableau 1 1 .7. 

13. La propriete Image est capitale pour lTmageList de la coolbar. Chaque valeur Image 
correspond a un element de la liste d'images. Ainsi, pour une liste d'images contenant 
dix icones, vous devrez affecter dix valeurs a Image. 
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Figure 11.13 

Les Pages de 
proprietes facilitent 
le parametrage 
de la coolbar. 
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Tableau 11.6 : Options de la page General pour le controle Coolbar 



Option 



Description 



Orientation Dispose la coolbar a l'horizontale (option par defaut) ou a la verticale. Les 
coolbars sont generalement horizontales. 

Picture Specifie l'image qui apparaitra sur les boutons de la coolbar. En general, on 

se sert plutot du controle ImageList, car l'option Picture affecte une meme 
image a tous les boutons. L'option Picture permet egalement de regler 
d'autres aspects de la coolbar, par exemple la "reaction graphique" d'un 
bouton lorsqu'on le selectionne. 



ForeColor 


Specifie la couleur de premier plan. 


BackColor 


Specifie la couleur d'arriere-plan. 


BandBorders 


Specifie si des lignes apparaitront pour separer les bandes, dans le cas d'une 




coolbar a plusieurs bandes. 


FixedOrder 


Specifie si l'utilisateur pourra modifier l'ordre des bandes. 


VariantHeight 


Specifie si toutes les bandes auront la meme hauteur, ou si la hauteur de 




chaque bande doit dependre du bouton le plus grand. 




Vous ne verrez pas les images sur la coolbar apres avoir ferme la botte de 
dialogue Pages de proprietes. Les images ne s'affichent qu'd V execution. 
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Tableau 11.7 : Options de la page Bands pour le controle Coolbar 



Option 


Description 


Child 


Dans un contexte de programmation avancee, specifie si un controle fils 




(un controle autre qu'un bouton de commande) pourra apparattre sur la 




coolbar. 


Style 


Specifie si 1'utilisateur pourra redimensionner la coolbar : oui si la 




valeur est cc3BandNormal, non si la valeur est cc3BandFixedSize 




(aucune poignee ). 


UseCoolbarPicture 


Determine si la coolbar affichera les images specifiees par la propriete 




Picture de l'onglet Bands ou les images specifiees par le controle 




ImageList. 


Picture 


Specifie les images qui s'afficheront sur la coolbar, a moins que la 




piopneie ubcL/UUJ-Udi rioxui c ii en ueciue auiiemciii. 


Caption 


Specifie le libelle qui apparaitra sous 1' image. 


Width, MinWidth, 


Specifient la taille, en twips, de la coolbar. 


MinHeight 


Key 


Disponibles pour les coolbars utilisees en collection. On peut acceder aux 




boutons par l'indice de collection ou bien par une valeur Key unique. 


Tag 


Contient des informations relatives a la coolbar, destinees au 




programmeur. 


EmbossPicture 


Si la valeur est False, l'image apparait dans ses couleurs originales. Si 




la valeur est True, l'image s'affiche selon les couleurs de premier et 




d'arriere-plan specifiees par les proprietes EmbossHighlight et 




EmbossShadow. 


UseCoolbarColors 


Si la valeur est True, la coolbar emploie les couleurs de premier et 




d'arriere-plan Foreground et Background. Si la valeur est False, les 




bandes s'affichent selon leurs couleurs par defaut. 
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En resume 

Ce chapitre vous a explique comment on programme les feuilles, a l'aide de quels 
evenements, proprietes et mefhodes. En tant qu'arriere-plan de 1' application, la feuille 
est un element central de la programmation. Les feuilles multiples peuvent etre referencees 
de plusieurs facons. Mais les collections Forms que nous avons decouvertes aujourd'hui, 
representent sans doute la technique la plus simple et la plus fiable. 

Vous pouvez parametrer les diverses proprietes de la feuille, mais egalement creer vos 
propres proprietes de feuille. Une fois la nouvelle propriete ajoutee, le code peut definir 
et lire ses valeurs comme il le ferait pour une propriete normale. 

La programmation multidocument (MDI) est un peu laborieuse, mais elle permet 
d'obtenir des applications complexes, dans lesquelles chaque fenetre a son propre jeu de 
donnees. Vous pouvez commencer la creation de vos programmes MDI par 1' assistant 
Creation d' applications, puis completer les details. 

Les controles Toolbar et Coolbar enrichissent vos applications. La barre d'outils permet 
a l'utilisateur d'acceder aux commandes courantes en cliquant simplement sur des 
boutons. Pour que ces boutons affichent des icones, vous devez specifier les fichiers 
graphiques correspondants dans la liste du controle ImageList. Les coolbars sont des 
barres d'outils coulissantes qui permettent a l'utilisateur de faire place a d'autres 
boutons ou elements. Les barres d'outils et coolbars peuvent etre proposees sous formes 
d'options du menu Affichage, arm que l'utilisateur choisisse ce qui lui convient. 

Le chapitre suivant explique comment utiliser le disque dur comme source de donnees 
externe pour les applications Visual Basic. 



Questions-reponses 

Q Pourquoi dois-je m'embarrasser du controle ImageList pour pouvoir afficher 
des icones sur une barre d'outils ou une coolbar ? 

R Les controles Toolbar et Coolbar ont ete concus pour fonctionner avec le controle 
ImageList. C'est aussi simple que ca. Les developpeurs Microsoft auraient pu vous 
permettre d'affecter directement les icones dans la liste des proprietes de la barre 
d'outils ou de la coolbar. II n'en est pas ainsi. Les icones affichees correspondent a 
des elements indexes dans la liste d'images. Mais cela a un avantage : vous pouvez 
definir sur une feuille plusieurs controles ImageList et les employer comme . Par 
exemple, vous pouvez utiliser une liste d'images pour les boutons de la barre 
d'outils lorsque ces boutons sont actifs et disponibles, et une autre liste d'images 
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lorsque ces boutons sont inactifs (parce que l'utilisateur effectue une tache telle 
que les boutons de la barre d'outils ne doivent pas etre disponibles) . II suffit pour 
cela de changer le nom de la liste d'images dans la propriete imageList de la barre 
d'outils ou de la coolbar ; Visual Basic basculera automatiquement vers l'autre jeu 
d'icone. 

Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre. Mais egalement des 
exercices qui vous permettront de mettre en pratique ce que vous avez appris. II convient 
de comprendre les reponses au quiz et aux exercices avant de passer au chapitre suivant. 
Vous trouverez ces reponses a 1' Annexe A. 

Quiz 

1. Comment l'evenement Resize permet-il d'assurer le centrage des controles sur la 
feuille ? 

2. A quoi sert la propriete ScaleMode ? 

3. Quelle est la valeur du premier indice lorsqu'on travaille sur une collection d'objets 
predefinie ? 

4. Une application SDI ne peut contenir plusieurs feuilles. Vrai ou faux ? 

5. Quelle est la difference entre une application SDI et une application MDI ? 

6. Oil affiche-t-on generalement les barres d'outils sur une feuille ? 

7. Quel controle contiennent les icones de la barre d'outils ? 

8. Pourquoi l'emplacement du controle ImageList sur une coolbar n'a-t-il aucune 
importance ? 

9. Quelle est la difference entre Spc ( ) et Tab ( ) ? 

10. Comment inserer une ligne vierge avec Print ? 
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Exercices 

1 . Ajoutez a votre Boite a outils les controles Toolbar, Coolbar et ImageList. 

2. Decrivez la sortie des instructions suivantes : 

BForml .Print "Ligne 1 " ; 
Forml .Print "Ligne 2" 

3. Lancez l'assistant Creation d' applications pour creer une application de style Explo- 
rateur, puis executez le programme genere. 

4. Ecrivez un code qui affiche sur une feuille les nombres 1 a 100. Separez chaque 
nombre d'un espace. N'utilisez aucun controle pour la sortie. Incluez le code dans 
une procedure evenementielle Click qui declenchera la sortie. 

5 . Ecrivez une procedure qui calcule le nombre total de controles contenus dans toutes 
les feuilles d'une application, puis affiche le resultat. 
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Gestion des fichiers 



Ce chapitre de voile le principe des entrees/sorties fichiers (E/S). Le programmeur 
Visual Basic est amene a travailler sur differents types d'E/S. Les types que nous allons 
etudier aujourd'hui sont essentiels a la comprehension des autres techniques de traite- 
ment de fichiers. Lorsque vous maitriserez les E/S fichiers, vous serez en mesure 
d'exploiter les outils plus avances de gestion de fichiers et de base de donnees. 

II existe trois types de fichiers : sequentiels, aleatoires et binaires. L'acces sequentiel est le 
plus simple, mais il a quelques inconvenients : les fichiers sequentiels sont faciles a creer et 
a lire, mais lents et peu souples. L'acces aleatoire est bien plus rapide et bien plus 
commode, mais exige aussi des programmes plus complexes que l'acces sequentiel. Quant 
aux fichiers binaires, ils sont une forme speciale, compressee, des fichiers d'acces aleatoire. 

Les fichiers d'acces aleatoire acceptent tous les types de donnees que vous puissiez decla- 
rer. Vous apprendrez un peu plus bas a declarer vos propres types de donnees, ainsi qu'a 
utiliser les instructions Put # qui permettent de lire ou d'ecrire dans les fichiers de donnees. 

Voici ce que nous decouvrirons aujourd'hui : 

• les types de fichiers ; 

• la difference entre les fichiers sequentiels et les fichiers aleatoires ; 

• 1' importance des numeros de fichiers ; 
comment ouvrir un fichier ; 

comment localiser les numeros de fichier disponibles ; 
les commandes Print #, Write #, Read #, Get # et Put #; 

• les controles de traitement de fichiers. 
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Qui dit programme dit fichiers. Quand bien meme un programme n' exploiter ait aucun 
fichier, il n'en residerait pas moins, lui-meme, dans un ou plusieurs fichiers. Qu'il 
s'agisse d'enregistrer des informations dans une base de donnees ou de simplement 
stocker des informations pour leur propre usage (telles que la position d'une fenetre ou 
les couleurs preferees de l'utilisateur), la plupart des programmes reposent sur des 
fichiers. 

Beaucoup de commandes Visual Basic sont communes a toutes les formes d'E/S 
fichiers. Ces commandes ouvrent et ferment des fichiers, specifient des modes d'acces 
aux fichiers, recherchent des numeros de fichier disponibles, etc. Cette section explique 
le role et le fonctionnement des traitements de fichiers. Nous commencerons cet expose 
par l'instruction qui commence tout programme de traitement de fichiers : Open. 



L'instruction Open 

Les fichiers sequentiels et les fichiers aleatoires ont certaines choses en commun. 
Notamment, l'instruction Open permet d'ouvrir l'un comme l'autre type de fichiers. Le 
type d'acces-fichier opere par Open depend de l'argument specifie dans l'instruction. 
Open reserve un gestionnaire de fichier, ou canal, pour lire ou ecrire dans un fichier. 
L'instruction Open associe au canal un numero. Des que ce canal est ouvert, le flux de 
donnees peut couler. Du mode selon lequel vous ouvrez le numero de fichier — lecture, 
ecriture ou les deux — dependent les modalites du flux de donnees entre le fichier et 
1' ordinate ur. 



Un gestionnaire de fichier, ou canal, est un chemin unique vers un fichier, 
identifie par le numero assigne par l'instruction Open. A partir du moment 
oil Open associe au canal un numero de fichier, le reste du programme 
accede au fichier sous ce seul numero. Unefois qu'il a execute l'instruction 
Open, le programme ne se refere plus au nom du fichier. 



Voici le format de l'instruction Open : 



Open "strNomFichier" [For Mode] [AccessRestriction] [LockType] As 
[tt]intFileNum [Len = intRecordLength] 

Insistons sur ce point : unefois qu'un numero d' identification est attribue au 
fichier de donnees, le programme n 'appelle plus jamais, pour ainsi dire, le 
fichier par son nom. 
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Deux arguments sont obligatoires dans l'instruction Open : le nom du fichier et son 
numero. Les autres arguments sont optionnels. Voici une instruction Open "toute nue", 
incluant les seuls arguments obligatoires : 

Open "fichier.txt" As #1 

Cette instruction ouvre fichier.txt comme fichier numero 1. C'est ce numero qui 
servira de reference pour toute entree ou sortie. Le fichier est ici ouvert en acces alea- 
toire — Random est le mode par defaut quand l'argument Mode n'est pas specifie. Toutes 
les commandes que nous etudierons aujourd'hui s'appliquent aux fichiers texte. Aussi 
rencontrerez-vous surtout les extensions les plus courantes pour de tels fichiers : .txt et 
.dat. 

Les modes d'acces aux fichiers 

Notez que l'argument Mode de l'instruction Open ne comporte aucun prefixe qui indique 
son type de donnees. Mode doit etre un mot cle special qui specifie le mode d'acces au 
fichier. Le Tableau 12.1 detaille les valeurs que peut prendre l'argument Mode. 



Tableau 12.1 : Valeurs possibles de l'argument Mode 



Mode 


Description 


Append 


Ouvre un fichier pour sortie sequentielle, en commencant par la fin du 




fichier. Si le fichier n'existe pas, Visual Basic le cree. Append n'ecrase jamais 




les fichiers de donnees existants. 


Binary 


Ouvre un fichier en acces binaire. Dans le mode Binary, le fichier est 




accessible au niveau octet, c'est-a-dire que Ton peut y lire ou y ecrire octet 




par octet. 


Input 


Ouvre un fichier pour lecture sequentielle, en commencant par le debut du 




fichier. Les donnees sont lues dans l'ordre selon lequel elles ont ete envoyees 




au fichier. 


Output 


Ouvre un fichier pour sortie sequentielle, en commencant par le debut du 




fichier. Si le fichier n'existe pas au moment de l'execution de l'instruction 




Open, Visual Basic le cree. Si le fichier existe, il est ecrase. 


Random 


Ouvre un fichier pour lecture et ecriture aleatoires. Dans ce mode, les 




donnees peuvent etre lues et ecrites dans l'enregistrement selon n'importe 




quel ordre. 
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L' argument For Mode, nous l'avons dit, n'est pas obligatoire dans l'instruction Open. Si 
vous ne specifiez pas de mode, Visual Basic opere automatiquement en mode Random, 
et va meme jusqu'a inserer For Random pour vous. Les instructions suivantes illustrent les 



differents modes d'acces aux fichiers : 






Open 


"Quelconque.txt" 


For Input 


As #1 




Open 


"Append.txt" For 


Append As 


#1 




Open 


"Output.txt" For 


Output As 


#1 




Open 


"Random.txt" For 


Random As 


#1 



Cette derniere instruction est equivalente a la suivante : 
Open "Random.txt" As #1 



L' argument optionnel AccessRestriction permet de restreindre l'execution de l'instruc- 
tion Open aux modes d'acces Read, Write ou Read Write. De telles restrictions sont 
notamment appliquees aux fichiers appeles a circuler sur un reseau. 

Dans l'acces en lecture seule, Read, l'utilisateur peut lire le contenu du fichier, mais pas 
le modifier. L'acces Write permet a l'utilisateur de modifier le fichier, et l'acces Read 
Write lui permet de faire les deux. 



L' argument LockType specifie les operations que d'autres processus peuvent effectuer 
sur le fichier. Cet argument est notamment d'une grande utilite dans les applications 
reseau. II permet de restreindre l'acces au fichier de sorte qu'un seul utilisateur a la fois 
puisse y acceder ou y ecrire. On evite ainsi que deux utilisateurs modifient en meme 
temps un meme fichier (ce qui entrainerait inevitablement la perte des modifications de 
l'un deux utilisateurs). 




// convient de mettre en place une logique de gestion d'erreurs, a Vaide de 
l'instruction On Error Goto etudiee au Chapitre9. Chaque fois que Von 
accede a un fichier, une erreur est susceptible de se produire. Une bonne 
strategic de gestion d'erreurs vous permettra, a defaut de les resoudre, de 
contourner elegamment ces problemes et d'epargner a vos utilisateurs les 
cascades de messages d' erreur inopportuns. 



Les restrictions d'acces 



Verrouillage des fichiers 



382 



Chapitre 12 : Gestion des fichiers 



LockType peut prendre les valeurs Shared, Lock Read, Lock Write et Lock Read Write. 
Shared permet a tous les utilisateurs d'acceder simultanement au fichier. Lock Read 
verrouille le fichier de sorte que seul l'utilisateur qui est en train de le lire puisse y acce- 
der. Lock Write fait de meme pour l'utilisateur qui est en train d'ecrire dans le fichier. 
Lock Read Write verrouille le fichier pour tous les utilisateurs autres que celui qui lit ou 
ecrit dans le fichier. 

La longueur d'enregistrement 

La longueur specifiee par l'argument Len = intRecordLength definit, pour les fichiers 
d'acces aleatoire, la taille des enregistrements de donnees qu'ils recevront du 
programme. Cette taille doit etre specifiee pour tout acces aux enregistrements d'un 
fichier. Le premier enregistrement d'un fichier commence a la position 1 , et tous les 
enregistrements subsequents seront ecrits a des positions incrementees de 1 . La postion 
dans le fichier d'un enregistrement donne est N x intRecordLength, ou N est le numero 
de 1' enregistrement. 

Un enregistrement est une ligne logique qui, dans un fichier, contient un jeu 
de donnees complet. Dans un fichier d'inventaire, par exemple, chaque 
caracteristique d'un element (descriptif, prix, quantite, etc.) constituerait un 
enregistrement. 

On accede aux enregistrements un peu comme on accede aux elements d'un tableau de 
variables. De meme que le premier element d'un tableau est declare comme Array (0) , 
le premier element d'un fichier est stocke a 1' enregistrement numero 1 . Pour tirer le 
meilleur parti de cette symetrie entre les indices de tableaux et les numeros d'enregistre- 
ments, specifiez Option Base 1 dans la section de declarations, ou indexez vos elements 
de tableaux a partir de 1 . 

Localiser un numero de fichier disponible 

Visual Basic tolere l'ouverture simultanee de plusieurs fichiers, a condition que Ton 
attribue a chacun un numero different. Vous devez etre en mesure de determiner le 
prochain numero disponible, notamment si des fichiers sont ouverts dans une fonction 
qui n'a aucun moyen de savoir si d'autres fonctions ont ouvert des fichiers. II existe, a 
cet effet, la fonction FreeFile ( ) qui renvoie le prochain numero disponible. Cette fonc- 
tion garantit que le numero utilise dans une instruction n'est pas deja attribue. Voici le 
format de FreeFile () : 

FreeFile [ (intRangeNumber) ] 
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L' argument intRangeNumber, optionnel, specifie la plage dans laquelle le numero renvoye 
doit etre compris : 1 -255 ou 256-51 1 . En l'absence d'argument intRangeNumber, la plage 
par defaut est 1 -255. Cette valeur est, dans presque tous les cas, conservee telle quelle, car 
il serait surprenant qu'un programme ait a ouvrir plus de 256 fichiers. Si l'argument 
intRangeNumber n'est pas specifie, les parentheses de la fonction sont inutiles. 

Les instructions suivantes utilisent FreeFile() pour obtenir un numero et ouvrir un 
fichier sans ce numero : 



B 



intFileNumber = FreeFile 

Open "AccPay.Dat" For Output As intFileNumber 



Ainsi, FreeFile ( ) permet de s'assurer qu'un numero de fichier n'est pas deja attribue. 
Cette attention peut sembler inutile pour une petite application qui ne traite que quel- 
ques fichiers ; pourtant, meme dans des cas pareils, FreeFile () aide a prevenir les 
erreurs. 



// vaut mieux eviter d'inclure FreeFile dans une instruction Open, comme 
ici : 

Open strFileName For Output As FreeFile() 

Ca marche, mais vous n 'avez, vous, aucun moyen de connaitre le numero de 
fichier, qui peut etre indispensable pour des operations ulterieures. 



L'instruction Close 

Tous les fichiers ouverts avec Open doivent, tot ou tard, etre refermes. C'est le role de 
l'instruction Close. Cette instruction n'accepte pour seuls parametres que le numero des 
fichiers a fermer. Voici le format complet de Close : 

Close # intFileNumber[ , intFileNumber2][, . . .intFileNumberX] 

On peut specifier, dans une meme instruction Close, autant de numeros que necessaire. 
Si aucun numero n'est specifie, tous les fichiers ouverts sont fermes. C'est, par exemple, 
un bon moyen de refermer proprement 1' application. 

Le code du Listing 12.1 ouvre deux fichiers sequentiels — l'un en lecture, 1' autre en 
ecriture — en utilisant le prochain numero disponible, puis les referme. 

Listing 12.1 : FreeFile () permet d'obtenir un numero de fichier libre 

81: Dim intReadFile As Integer, intWriteFile As Integer 
2: 1 Gere le fichier d'entree. 
3: intReadFile = FreeFile ' Obtient le numero du premier fichier. 
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4: Open "AccPay.Dat" For Input As intReadFile 

5: ' Gene le fichier de sortie. 

6: intWriteFile = FreeFile ' Obtient le numero du fichier suivant. 

7: Open "AccPayOut.Dat" For Output As intWriteFile 

8: 1 

9: ' Ici, le code charge d'envoyer au fichier 

10: 1 de sortie le contenu du fichier d' entree 

11: ' (voir plus loin) . 

12: Close intReadFile 

13: Close intWriteFile 

Dans ce code, on n'a pas a preciser de numeros de fichiers, car FreeFile ( ) (lignes 3 et 6) 
renvoie les numeros disponibles qui sont stockes comme entiers nommes. 

En ne refermant pas tous les fichiers ouverts, vous vous exposez au risque — 
certes limite par les performances des materiels modernes — d'une perte de 
donnees. Si la machine est brutalement mise hors tension, les fichiers encore 
ouverts peuvent etre endommages . Vous devez done avoir soin de refermer 
un fichier dont vous n 'avez, plus besoin ; dans tous les cas, le systeme s 'en 
chargera a lafermeture de I 'application. 

Une meme instruction Close peut, comme on l'a vu, refermer autant de fichiers que Ton 
veut. Cette simple ligne ferme tous les fichiers ouverts : 

Close 

Les deux lignes suivantes, en revanche, ne referment que deux fichiers precis : 



B 



Close 3 
Close 6 



En specifiant dans Close les numeros de fichiers, vous ne refermez que les fichiers inde- 
sirables, mais pouvez continuer a travailler sur les autres. 



Les fichiers sequentiels 

Vous connaissez maintenant les instructions qui permettent d'ouvrir et de fermer les 
fichiers et de specifier le mode d'acces. Cette section illustre de plusieurs exemples les 
operations d'E/S en acces sequentiel. Vous decouvrirez notamment que l'instruction Print 
dont nous avons vu, au chapitre precedent, qu'elle permettait d'envoyer du texte a une 
feuille, peut aussi envoyer du texte a un fichier. 
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En creant un fichier de type sequentiel, vous specifiez que l'acces a ce fichier devra se 
faire sequentiellement, c'est-a-dire que l'application devra y lire et y ecrire en allant du 
debut a la fin. Cette obligation de lire et d'ecrire sequentiellement est la plus grande 
faiblesse des fichiers sequentiels. 

Un fichier sequentiel est un fichier dans lequel on lit et ecrit selon Vordre 
allant du debut a la fin. 

Pour exploiter le fichier, le programme devra le prendre en entier, du debut a la fin. 
Meme pour ne mettre a jour qu'un seul octet sur les 1000 octets d'un fichier donne, il 
faudra traiter les 999 autres octets. 

Le type sequentiel est generalement employe pour les fichiers texte (tels que des fichiers de 
parametres), ou pour stacker de petites quantites de donnees n'exigeant pas une haute 
vitesse d'acces. Cette section presente les fonctions qui permettent de gerer les fichiers 
sequentiels. 



L'instruction Print # 

Pour qu'un programme puisse utiliser un fichier, il doit d'abord l'ouvrir. II faut ensuite lui 
envoyer des donnees. Print # est l'instruction la plus couramment employee a cet effet. 
Print # ne peut ecrire que dans les fichiers d'acces sequentiel. En voici le format : 

Print ItintFileNumber , [OutputList] 

Ici, intFileNumber est le numero du fichier ouvert dans lequel on veut ecrire. Output- 
List peut avoir les valeurs suivantes : 

[Spc(intW)) | Tab[ (intN2) ] ] [Expression] [charPos] 



Spc( ) et Tab( ) fonctionnent avec Print # de la meme facon qu'elles fonc- 
tionnent avec l'instruction Print etudiee au chapitre precedent. 



Spc() ou Tab(), il faut choisir. Vous ne pouvez utiliser les deux en meme temps. 
Le Tableau 12.2 detaille les composants de OutputList. 



Tab( ) peut etre incluse dans charPos. Elle a alors le meme role qu'en debut 
d' instruction Print #. Si vous omettez charPos, le prochain caractere appa- 
raitra sur la ligne suivante du fichier. 



La procedure du Listing 12.2 ouvre un fichier nomme Print . txt, y ecrit les chiffres 1 a 
5 , puis referme proprement le fichier. 



> 386 



Chapitre 12 : Gestion des fichiers 



Tableau 12.2 : Le contenu de Print # decrit la sortie de la methode 



CofTiposcmt 


Description 


Spc(intNI) 


Insere des espaces dans la sortie, intN1 etant le nombre d'espaces a inserer. 


Tab (intN2) 


Positionne le point d'insertion au numero de colonne absolu intN2. Sans 




arguments, Tab positionne le point d'insertion au debut de la prochaine zone 




d'ecriture (il y a une zone d'ecriture toutes les 14 espaces). 


Expression 


Expression chaine ou numerique qui contient les donnees a envoyer au 




fichier. 


CharPos 


Specifie remplacement du point d'insertion pour le prochain caractere. 




Un point- virgule ( ; ) indique que le prochain caractere doit suivre 




immediatement le precedent. 



Listing 12.2 : Ecriture dans un fichier sequentiel avec Print # 

1: Private Sub cmdFile_Click( ) 

2: Dim intCtr As Integer ' Compteur de boucle. 

3: Dim intFNum As Integer 1 Numero de fichier. 

4: Dim intMsg As Integer ' Valeur de renvoi de MsgBoxf). 

5: intFNum = FreeFile 

6: ' Vous pouvez changer le chemin. 

7: Open "C:\Print.txt" For Output As #intFNum 

8: 

9: 1 Decrit la procedure. 

10: intMsg = MsgBox( "Fichier Print.txt ouvert !") 
11 : 

12: For intCtr = 1 To 5 

13: Print # intFNum, intCtr 1 Envoie le compteur de boucle. 

14: intMsg = MsgBox( "Ecriture du chiffre " & intCtr & " dans Print.txt") 

15: Next intCtr 

16: 

17: Close # intFNum 
18: 

19: intMsg = MsgBox( "Fichier Print.txt ferme !") 
20: End Sub 

Si vous executez ce code, vous verrez s'afficher plusieurs boites de message indiquant la 
progression de la procedure. La procedure indique qu'elle a ouvert le fichier (ligne 10), 
puis elle ecrit dans le fichier (ligne 13), puis montre le resultat (ligne 14). Enfin, elle 
ferme le fichier (ligne 17) et vous en fait part, avec un contentement non dissimule 
(ligne 19). 
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Pour verifier la sortie, ouvrez le fichier Print .txt dans le Bloc -notes . Voici ce que vous 
devriez voir : 

1 

2 
3 

, 4 
I 5 

Le Listing 12.2 met en ceuvre une instruction Print # simple (line 13). Aucun argument 
n'ayant specifie la position du point d'insertion, la procedure ecrit chaque chiffre sur 
une ligne differente. 

Creer et ecrire dans un fichier, ca ne servirait pas a grand-chose si Ton ne pouvait obtenir 
des informations en retour. C'est ce que nous ferons dans la section suivante. 

L'instruction Input # 

Vous ecriviez ? Eh bien lisez maintenant. L'instruction Input # permet de lire les 
donnees sequentielles. Les donnees sequentielles doivent etre lues sequentiellement, 
c'est-a-dire dans l'ordre et le format dans lesquels elles ont ete ecrites. Voici le format 
de Input # : 

Input # intFileNumber , Variable1[, Variable2][, . . .VariableN] 

Input # requiert un numero de fichier ouvert, ainsi qu'une variable qui stocke les 
donnees lues. L'instruction Input # doit respecter le format de l'instruction Print # qui a 
servi a ecrire dans le fichier. Si les donnees ecrites par Print # etaient delimiters par des 
virgules, ces virgules doivent se retrouver dans Input #. 

Pour qu'une serie de variables ecrites sur une seule ligne puissent etre correc- 
tement lues par Input #, ilfaut soit V ecrire avec Write plutot que Print #, 
soit inserer manuellement des virgules delimitatrices . Dans une variable 
numerique, Input # suspend sa lecture a chaque espace, virgule ou caractere 
defin de ligne. Dans une chaine, Input # suspend sa lecture a chaque virgule 
ou caractere defin de ligne, saufsi la chaine contient des guillemets. 

L'instruction suivante lit, dans un fichier sequentiel ouvert, cinq variables placees sur 
une meme ligne : 

Input XintFileNumber V1 , V2, V3, V4, V5 

Pour pouvoir lire les donnees, Input # doit reprendre le format de l'instruction Print # 
qui a servi a ecrire dans le fichier. 
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Le fonctionnement de Input # est assez simple : l'operation qu'elle effectue est l'exact 
reflet de l'operation Print # correspondante. La prochaine section presente l'instruction 
Write #, qui permet d'ecrire des fichiers de donnees dans un format plus general que 
Print #, de sorte que Ton n'a pas a se soucier de la coherence absolue de Input # avec 
l'instruction de sortie initiale. 

L'instruction Write # 

Write # est done une autre commande d'ecriture sequentielle. Elle ne differe de Print # 
que sur quelques points. D'abord, toutes les donnees ecrites par Write # sont delimitees 
par des virgules. Ensuite, Write # place automatiquement les donnees String entre 
guillemets (les guillemets apparaissent dans le fichier), place automatiquement les 
donnees Date entre caracteres diese (#), ecrit les donnees Boolean sous la forme #TRUE# 
et #FALSE#, et envoie les donnees Null et les codes d'erreurs sous la forme #NULL# et 
#Error errorcodett, respectivement. (errorcode est un numero identifiant l'erreur de 
sortie, par exemple un lecteur non trouve. Vous trouverez dans l'aide en ligne de Visual 
Basic une liste des codes d'erreur et leur signification.) 

La delimitation par virgules est parfois necessaire pour que les donnees puissent etre 
lues par certains tableurs et logiciels de publipostage. Ce format a aussi l'avantage de 
limiter les risques d'erreurs a la lecture, l'instruction Input # n'etant pas tenue de refleter 
exactement l'instruction Write # correspondante. 




Pour une lecture plus simple et plus fiable des donnees, utilisez Write # 
plutot que Print #. 



Voici le format de Write # : 

Write # intFileNumber , [OutputList] 

Ici, OutputList est une liste des variables contenues dans le fichier qui doivent etre lues 
en particulier. 

Nous avons explique, plus haut, comment l'instruction Print # pouvait ecrire une valeur 
par ligne. Print # accepte egalement les memes options de formatage que l'instruction 
Print simple. 

Par exemple, pour ecrire des valeurs l'une apres 1' autre sur une me me ligne, il suffit de 
placer un point-virgule apres la variable intCtr (voir Listing 12.3). 
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Listing 12.3 : Le point-virgule permet d'ecrire plusieurs valeurs 
sur une meme ligne 

1: Private Sub cmdFile_Click( ) 
2: Dim intCtr As Integer 1 Compteur de boucle. 
3: Dim intFNum As Integer 1 Numero de fichier. 
, 4: Dim intMsg As Integer ' Valeur de renvoi de MsgBoxf). 
5: intFNum = FreeFile 
6: ' Vous pouvez changer le chemin. 
7: Open "C:\Print.txt" For Output As #intFNum 
8: 

9: 1 Decrit la procedure. 

10: intMsg = MsgBox( "Fichier Print.txt ouvert") 
11 : 

12: For intCtr = 1 To 5 

13: Print # intFNum, intCtr; ' Remarquez le point-virgule. 

14: intMsg = MsgBox( "Ecriture du chiffre " & intCtr & " dans Print.txt") 

15: Next intCtr 

16: 

17: Close # intFNum 
18: 

19: intMsg = MsgBox( "Fichier Print.txt ferine") 
■ 20: End Sub 

Si vous executez la procedure, voici ce qui s'affichera dans le fichier cree : 
1 2 3 4 5 

Les chiffres sont sur la meme ligne, separes par des espaces. Print # insere ces espaces 
a la place du signe plus imaginaire qui precede les nombres positifs. 

N'hesitez pas a experimenter les differents parametres de Print # afin d'en bien saisir le 
fonctionnement. 

Une fois les donnees ecrites dans un fichier, la lecture de ces donnees a souvent lieu 
dans une autre procedure, voire une autre application. Les procedures du Listing 12.4 
ecrivent les donnees dans un fichier, puis lisent ces memes donnees au travers de 
variables. 

Listing 12.4 : Ecriture et lecture dans un fichier au sein d'une meme procedure 

1: Private Sub cmdFileOut_Click () 

2: ' Cree le fichier sequentiel. 

3: Dim intCtr As Integer 1 Compteur de boucle. 

4: Dim intFNum As Integer 1 Numero de fichier. 

5: intFNum = FreeFile 

6: 

7: Open "Print.txt" For Output As #intFNum 
8: 
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13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



Print # intFNum, intCtr; ' Ecrit le compteur de boucle. 
Next intCtr 



9: For intCtr = 1 To 5 
10 
11 
12 

Close # intFNum 
End Sub 



Private Sub cmdFileIn_Click () 
' Lit le fichier sequentiel. 
Dim intCtr As Integer 1 Compteur de boucle. 
Dim intVal As Integer ' Valeur lue. 
Dim intFNum As Integer ' Numero de fichier. 
Dim intMsg As Integer ' Valeur de renvoi de MsgBox(). 
intFNum = FreeFile 

Open "Print.txt" For Input As #intFNum 

For intCtr = 1 To 5 
Input # intFNum, intVal 

1 Affiche les resultats dans la fenetre Execution. 
intMsg = MsgBox( "Lecture du chiffre " & intVal & " dans Print.txt" 
Next intCtr 

Close # intFNum 

intMsg = MsgBox("Le fichier Print.txt file est maintenant ferme") 
End Sub 



La premiere procedure du Listing 12.4 ecrit les donnees dans le fichier, donnees qui sont 
ensuite lues par la procedure cmdFileln_Click( ) . 

Examinez maintenant la procedure du Listing 12.5 qui cree un fichier nomme 
Write.txt. 



Listing 12.5 : Ecriture dans un fichier sequentiel avec Write 

■ 

1: Private cmdFile_Click () 

2: Dim intCtr As Integer 1 Compteur de boucle. 

3: Dim intFNum As Integer ' Numero de fichier. 

4: intFNum = FreeFile 
5: 

6: Open "c:\Write.txt" For Output As #intFNum 
7: 

8: For intCtr = 1 To 5 

9: Write # intFNum, intCtr; ' Ecrit le compteur de boucle. 

10: Next intCtr 
11 : 

12: Close # intFNum 

13: End Sub 
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Executez cette procedure, puis ouvrez dans le Bloc-notes le fichier cree. Vous constaterez 
immediatement la difference entre Print # et Write #. Voici le contenu de Write . txt : 

1,2,3,4,5, 

Si Ton n'avait pas inclus le point-virgule de formatage, chaque chiffre serait apparu sur 
sa propre ligne, et il n'y aurait pas eu de virgules. (Dans un tel cas, Write # et Print # se 
component de la meme maniere.) 

Plus vous travaillerez sur des fichiers sequentiels , plus vous decouvrirez de 
"trues" propres a ameliorer le code. II peut etre utile, par exemple, d'indi- 
quer en guise de premier fragment de donnees le nombre total de valeurs 
que contient le fichier. Les programmes qui liront ces donnees, pourront 
ainsi exploiter cette information dans des boucles, etc. 

Apres tout ce que vous venez. d'ingurgiter, cela va sans doute vous 
surprendre : les programmeurs Visual Basic n 'exploitent que tres rarement 
les fichiers sequentiels . Cela ne signifie pas pour autant que vous avez perdu 
votre temps, car les principes etudies dans le cadre des donnees sequentielles 
s'appliquent en fait a tous les autres types d'acces. Ouf ! 

Les fichiers aleatoires 

Si les fichiers sequentiels doivent toujours etre lus et ecrits dans le meme ordre, les 
fichiers d'acces aleatoire (ou fichiers aleatoires tout court) peuvent etre lus et ecrits 
dans n'importe quel ordre. Ainsi, les enregistrements ecrits dans un fichier client de type 
aleatoire pourront, par la suite, etre lus dans l'ordre que Ton veut. Si le fichier client 
etait sequentiel, il faudrait parcourir tous les enregistrements precedents avant de 
pouvoir consulter un enregistrement particulier. 

Un fichier d'acces aleatoire, ou fichier aleatoire, est un fichier dans lequel 
on peut lire et ecrire dans n'importe quel ordre. 



Comme l'acces sequentiel, l'acces aleatoire n'est aujourd'hui plus guere utilise dans sa 
forme "pure". Les controles d'acces aux donnees et procedures de traitement de fichiers 
plus avances lui font une rude concurrence. Toutefois, les techniques d'acces aux 
fichiers de base de donnees reposent, en grande partie, sur les principes que vous allez 
maintenant etudier. 
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Nous en profiterons egalement pour aborder une nouvelle technique de programmation : 
les types de donnees personnalises . Les fichiers aleatoires contiennent generalement des 
enregistrements de donnees ; Visual Basic vous permet de definir des type de donnees 
en parfaite adequation avec les enregistrements lus et ecrits dans les fichiers sequentiels. 

L'acces aleatoire 

Le traitement des fichiers aleatoires ressemble, en beaucoup de points, au traitement de 
fichiers sequentiels. Les instructions Open et Close, par exemple, fonctionnent de la 
meme maniere. Seul change le mode d'acces. 

' ) Si vous ne specifiez pas le mode d'acces aufichier, Visual Basic utilise par 

W° defaut le mode aleatoire, et insere lui-meme V argument For Random. Si, 
par exemple, vous tapez : 

Open "Random.txt" As #1 

Visual Basic changera automatiquement la ligne en : 

Open "Random.txt" For Random As #1 

L' instruction suivante ouvre un fichier en acces aleatoire : 

Open "Random.txt" For Random As #1 

Rien n'empeche d'ouvrir un fichier en acces aleatoire pour l'exploiter en mode 
sequentiel. Simplement, on perd les avantages offerts par le mode aleatoire. Mais cela 
est parfois utile, notamment dans le cas d' enregistrements stockes dans un ordre donne 
que Ton voudrait imprimer ou afficher dans cet ordre precis. 

Voici un exemple qui illustre bien la difference entre acces sequentiel et acces aleatoire. 
Supposons un fichier contenant dix lignes d'inventaire. Pour lire la sixieme ligne (ou 
enregistrement), il faudrait, en mode sequentiel, lire d'abord les cinq premiers enregis- 
trements, puis, apres le sixieme, lire encore les quatre derniers enregistrements. En 
mode aleatoire, ont irait directement lire le sixieme enregistrement, pour ensuite fermer 
le fichier. 

II en va de meme pour l'ecriture. Si, en mode sequentiel, on voulait modifier le huitieme 
enregistrement du meme fichier d'inventaire, il faudrait lire les dix enregistrements, 
modifier le huitieme, puis reecrire les dix enregistrements dans le fichier. En mode 
aleatoire, au contraire, on interviendrait directement sur le huitieme enregistrement. 

Evidemment, pour un fichier de dix enregistrements, les avantages de l'acces aleatoire 
ne sont pas si importants. Mais dans le cas d'un fichier contenant 10 000 enregistre- 
ments, quel gain de temps ! Et quelle economie de ressources systeme ! 
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Les instructions Get et Put 

Les instructions Put # et Get # sont a l'acces aleatoire ce que les instructions Print # et 
Input # sont a l'acces sequentiel. La difference principal est que Print # et Input # traitent 
un element de donnees a la fois, jusqu'a la fin du fichier. Ces instructions ne peuvent en 
aucun cas acceder directement a un enregistrement specifique pour le mettre a jour. 

En outre, le format de Put # et Get # differe legerement de celui de Print # et Input # : 

BPut [#]intFileNum, [intRecNum ,] Variable 
Get [#]intFileNum, [intRecNum ,] Variable 

Ces instructions utilisent un numero d' enregistrement (intRecNum). C'est ce numero qui 
permet de lire ou d'ecrire directement un enregistrement precis. La numerotation des 
enregistrements commence a 1 . Les variables lues ou ecrites peuvent prendre n'importe 
quel type de donnees — meme Array (tableau), et meme un type par vous defmi (voir 
section suivante) . Cette capacite de traiter comme unite des variables de tous types est 
pour beaucoup dans la puissance de l'acces aleatoire. 

Les exemples de la section suivante incluent des procedures qui lisent et ecrivent des 
enregistrements specifiques dans un fichier aleatoire. 

Les types de donnees personnalises 

Nous vous avons deja entretenu des variables et des tableaux de variables. Vous allez 
maintenant apprendre a creer vos propres types de donnees, en combinant des types de 
donnees existants. Ces types de donnees personnalises sont parfois appeles structures 
ou — gare a la confusion — enregistrements . 

Supposons que vous vouliez creer un programme pour gerer votre carnet d'adresses. 
Vous pourriez declarer des variables individuelles pour chaque champ : une variable 
pour le nom de famille, une autre pour le prenom, etc. Cela fonctionnerait certainement. 
En revanche, pour peu que la liste des contacts soit importante, la programmation impli- 
quee deviendrait considerable. 

II serait bien plus simple de definir un type de donnees pour chaque categorie d' information, 
et que vous manipuleriez comme n'importe quelle variable individuelle. 

Un type de donnees personnalise consiste en fait de types existants, regroupes pour former 
un nouveau type. Un tel regroupement est appele declaration composite. 
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Un type de donnees personnalise est compose de types existants — eventuel- 
lement mime d'autres types personnalises . 



C'est a l'aide de l'instruction Type que vous creez vos propres types de donnees. En 
voici le format : 

[Private | Public] Type TypeName 
VarNamel [(ArraySize)) As ExistingType [*StringLength] 
VarName2 [{ArraySize)] As ExistingType [*StringLength] 



End Type 

Le nom du type a creer (TypeName) suit le mot cle Type. Ce nom peut etre tout sauf un 
mot reserve, un mot cle ou un nom de variable declaree. Si, par exemple, on a deja 
declare une variable nominee Client, le nouveau type de donnees ne pourra s'appeler 
Client. 

Tous les nouveaux types doivent etre declares au niveau module. On ne peut les declarer 
a l'interieur d'une procedure. Le type peut aussi etre declare dans le module de feuille, 
mais alors comme Private, c'est-a-dire qu'il ne sera reconnu que dans ce module de 
feuille particulier. 

Examinez le code du Listing 12.6. 

Listing 12.6 : L'instruction Type permet de declarer les nouveaux types de donnees 



1 Page module du projet. 

Type UserType 
strFName As String 
strLName As String 

End Type 

Public Names As UserType 



Ce code cree un nouveau type nomme UserType. Ce nouveau type contient deux chaines, 
strFName et strLName. La ligne 6 declare la variable Names comme type UserType. 

lei, UserType nest pas une variable, mais bien le type que Von a defini. Le 
nom de la variable est Names, et strFName et strLName sont des membres 
(ou champs) de cette variable. Le nouveau type est integre au langage Visual 
Basic pour le temps de V execution du programme. On peut maintenant 
declarer des variables Integer, Boolean ou... UserType. 
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Pour acceder aux champs individuels qui constituent le type de donnees, on 
indique le nom de la variable, suivi d'un point, suivi du nom du champ. 



Les instructions suivantes initialisent et traitent la variable que nous venons de declarer : 

Names. st rFName = "Serge" 
Names. strLName = "Pichot" 

lblFName. Caption = "Prenom : " & Names. strFName 
lblLName. Caption = "Nom : " & Names. strLName 

Pour limiter la taille des variables chaines utilisees dans une structure, on inclut dans la 
declaration l'option * StringLength (ou StringLength est la longueur) , juste apres As 
String. La chaine de longueur fixe definit StringLength comme longueur absolue de la 
chaine. Cela est necessaire lorsque les structures doivent etre lues ou ecrites aleatoire - 
ment dans un fichier. La longueur fixe garantit que tous les enregistrements ecrits auront 
la meme taille, afin que l'acces aleatoire se passe sans probleme. 

Le Listing 12.7 reprend le code du Listing 12.6, mais en imposant aux chaines une 
longueur fixe. 

Listing 12.7 : Les chaines de longueur fixe permettent de specifier la longueur 
des enregistrements 



' Page module du projet. 

Type UserType2 
strFName As String * 8 
strLName As String * 20 

End Type 

Public Names As UserType2 



Les chaines de longueur fixe definissent pour les chaines une taille maximale. Notez que 
le contenu de la chaine peut ne pas occuper entierement l'espace reserve, auquel cas 
Visual Basic comble le vide avec des espaces. Ainsi, toutes les variables declarees 
comme UserType2 et ecrites en acces aleatoire auront la meme longueur d'enregistre- 
ment, quelle que soit la taille reelle des donnees contenues dans la variable. 

Les procedures du Listing 12.8 mettent en ceuvre les principes de l'acces aleatoire. 



Listing 12.8 : Ecriture dans un enregistrement particulier 

1: Private Sub cmdCreate_Click( ) 

2: 1 Cette procedure cree le fichier. 

3: Dim intFile As Integer ' Numero de fichier disponible. 

4: Dim intCtr As Integer ' Compteur de boucle. 

5: 
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6: intFile = FreeFile 

7: Open "c:\Random.Txt" For Random As #intFile Len = 5 
8: 

9: ' La boucle parcourt les numeros et ecrit dans le fichier. 

10: For intCtr = 1 To 5 

11: Put # intFile, intCtr, intCtr 1 Le numero d ' enregistrement correspond 

aux donnees. 

12: Next intCtr 
13: 

14: Close intFile 

15: End Sub 

16: 

17: Private Sub cmdChange_Click( ) 

18: 1 Cette procedure modifie 1 1 enregistrement n°3. 

19: Dim intFile As Integer ' Numero de fichier disponible. 

20: 

21 : intFile = FreeFile 

22: Open "c:\Random.Txt" For Random As #intFile Len = 5 
23: 

24: ' Ecrit un nouvel enregistrement n°3. 

25: Put #intFile, 3, 9 1 Value = 9. 

26: Close # intFile 

27: End Sub 

, 28: 

29: Private Sub cmdDisplay_Click( ) 

30: ' Cette procedure affiche le fichier 

31: Dim intFile As Integer ' Numero de fichier disponible. 

32: Dim intVal As Integer ' Valeur lue. 

33: Dim intCtr As Integer ' Compteur de boucle. 

34: Dim intMsg As Integer ' Valeur de renvoi de MsgBox(). 

35: intFile = FreeFile 

36: Open "c:\Random.Txt" For Random As #intFile Len = 5 
37: 

38: intMsg = MsgBox( "Fichier Random. Txt ouvert...") 
39: 

40: ' La boucle parcourt les enregistrements et les affiche. 

41 : For intCtr = 1 To 5 

42: Get # intFile, intCtr, intVal 

43: intMsg = MsgBox( "Lecture de " & intVal & " dans Random. Txt") 

, 44: Next intCtr 

45: Close # intFile 
46: 

47: intMsg = MsgBox( "Fichier Random. Txt ferme") 

48: End Sub 

Notez que l'instruction aleatoire Open de la ligne 7 utilise l'option Len. Ala ligne 11, 
l'instruction Put # ecrit un enregistrement aleatoire avec une longueur de 5 ; c'est 
l'option Len qui specifie cette longueur. Ce parametre est capital : si la longueur d'enre- 
gistrement n'etait pas specifiee, Put # et Get # ne sauraient jamais jusqu'oii chercher 
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dans le fichier un enregistrement particulier. (La formule pour trouver un enregistrement 
est RecordNumber * RecordLength.) 

La feuille de l'application du Listing 12.8 contient trois boutons. Le premier cree le 
fichier, le deuxieme affiche le fichier, le troisieme modifie le fichier. Chacun des boutons 
declenche une procedure evenementielle. Creez cette petite application et executez-la : 
cliquez sur le bouton cmdCreate, puis sur le bouton cmdDisplay. La boite de message 
affiche les donnees ecrites. Cliquez sur le bouton cmdChange, puis de nouveau sur le 
bouton cmdDisplay. Une fois le fichier modifie, 1' enregistrement n° 3 contient la valeur 9 
(au lieu de 3). La sous-routine qui a provoque ce changement, cmdChange_Click( ) , a 
simplement ecrit la valeur 9 dans 1' enregistrement n° 3, a l'aide de l'instruction Put #. 

Imbrication de types de donnees personnalises 

Vous avez cree votre premier type de donnees personnalise. Mais peut-on inclure un 
type personnalise a l'interieur d'un autre type personnalise ? Parfaitement. L'un des 
champs, au lieu d'etre un type interne a Visual Basic, est un type que vous avez cree 
vous-meme. Prenez simplement garde de bien declarer le type a inclure avant de declarer 
le type qui doit le contenir. 

Le Listing 12.9 donne l'exemple d'un type personnalise nomme Address, imbrique 
comme champ dans un autre type personnalise. 

Listing 12.9 : Les types personnalises peuvent etre inclus dans un autre type 
personnalise 

1: 1 Dans la section de declarations du module de code. 

2: Type Address 

3: strStreet As String 

4: strCity As String 

5: strZip As String 

6: End Type 

7: 

8: Type UserType3 

9: strFName As String * 10 

10: strLName As String * 25 

11: typAddr As Address 1 Autre type de donnees. 

12: End Type 

13: 

14: Public Names As UserType3 1 Declare une variable 
d 1 application. 

Le code du Listing 12.10 initialise ces champs et montre comment on accede aux 
champs dans les champs. 
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Listing 12.10 : Le type de donnees public peut servir dans tous les modules 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 



Names. strFName = "Serge" 
Names. strLName = "Pichot" 

Names. typAddr. strStreet = "Clergeot" 
Names. typAddr. strCity = "Perrochonville" 
Names. typAddr. strZip "99000" 

1 Traite les donnees. 

lblFName. Caption = "Prenom : " & Names. strFName 
lblLName. Caption = "Norn : " & Names. strLName 
lblAddr. Caption = "rue : " & Names. strAddr. strStreet 
lblCty .Caption = "Ville : " & Names. strAddr. strCity 
lblZip. Caption = "Code postal : " & Names. strAddr. strZip 



Les controles de fichiers 



Parmi les boites de dialogue communes presentees au Chapitre 9, les boites de dialogue 
Ouvrir et Enregistrer permettent a l'utilisateur de manipuler des fichiers. II peut y selec- 
tionner des dossiers, des lecteurs et meme des lecteurs reseau. 

Pour les traitements de fichiers impliques par vos applications, il peut etre necessaire de 
specifier un repertoire (ou dossier depuis Windows 95) , un lecteur ou un nom de fichier, 
sans passer par des boites de dialogue. 

Visual Basic dispose a cet effet de trois types speciaux de zones de liste : 
• Zone de liste Dossier. Permet a l'utilisateur de selectionner un dossier. 

Zone de liste Lecteur. Permet a l'utilisateur de selectionner un lecteur de disque. 
c Zone de liste Fichier. Permet a l'utilisateur de selectionner un nom de fichier. 
La Figure 12.1 montre une feuille contenant ces trois zones de liste speciales. 



Ces controles de listes speciaux ne fonctionneront pas conjointement, a 
moins que vous ne les programmiez a cet effet. Par exemple, si les trois 
controles apparaissent sur la feuille, et que vous executiez V application, un 
changement dans la liste Lecteur ne modifiera pas le dossier ou le nom de 
fichier affiche dans les deux autres listes. Pour que les choses se passent 
ainsi, vous devez ecrire des procedures evenementielles propres a synchro- 
niser les controles entre eux. 
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Figure 12.1 

Les trois types de 
zones de liste servant 
a la manipulation 
des fichiers. 



Zone de liste Fichier 




Les controles 
de fichiers 




Zone de liste Dossier 
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La zone de liste Lecteur 

La zone de liste Lecteur permet a l'utilisateur de selectionner un lecteur de disque. 
Ce controle ausculte lui-meme le systeme a la recherche des divers types de lecteurs : 
locaux, distants, disque dur, disquette, CD-ROM, etc. Lorsque l'utilisateur clique sur la 
liste, les differents choix possibles sont represented par des icones (voir Figure 12.2). 



Figure 12.2 

L'utilisateur fait 
son choix dans la liste 
Lecteur. 



Les controles 
de fichiers 



Zone de liste Fichier 



Zone de liste Dossier 




Zone de liste Lecteur 




Controle zoned 
~de liste Lecteur 



La zone de liste Lecteur affiche d'abord le lecteur depuis lequel V application 
a ete lancee. Vous pouvez modifier ce comportement par defaut en specifiant, 
dans le code, un autre lecteur. 



400 



Chapitre 12 : Gestion des fichiers 



La zone de liste Dossier 

La zone de liste Dossier permet a l'utilisateur de selectionner un dossier. Ce controle 
analyse le systeme pour etablir l'arborescence des dossiers existants. Lorsque l'utilisateur 
clique sur la liste, les differents choix possibles sont representes par des icones et organises 
hierarchiquement, selon le standard Windows. 

Rappelez-vous que la zone de liste Dossier ne sait pas quel lecteur est selectionne dans 
la liste Lecteur. C'est a vous de relier les deux controles, comme nous l'expliquons a la 
fin de ce chapitre. 



La zone de liste Dossier affiche d'abord le dossier contenant V application . 
Vous pouvez modifier ce comportement par defaut en specifiant, dans le 
code, un autre dossier. 

La zone de liste Fichier 

La zone de liste Fichier permet a l'utilisateur de selectionner un fichier. Ce controle 
analyse le systeme pour etablir la liste de tous les fichiers existants. Lorsque l'utilisateur 
clique sur la liste, les differents choix possibles sont representes par des icones et organises 
hierarchiquement, selon le standard Windows. 

Pas plus que la zone de liste Dossier, la zone de liste Fichier ne sait pas quel lecteur (ou 
quel dossier) est selectionne dans la liste Lecteur (ou dans la liste Dossier). C'est a vous 
de relier les controles dans le code, comme nous l'expliquons a la fin de ce chapitre. 

La zone de liste Fichier affiche d'abord la liste des fichiers contenus dans le 
dossier de V application. Vous pouvez modifier ce comportement par defaut 
en specifiant, dans le code, un autre dossier pour la liste Dossier, puis en 
liant a cette liste la liste Fichier. 

Les commandes de traitement de fichiers 

Visual Basic supporte plusieurs commandes liees aux lecteurs, dossiers et fichiers (voir 
Tableau 12.3). 

RmDir generera une erreur si le dossier a supprimer contient encore des 
fichiers. 
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Tableau 12.3 : Commandes liees aux lecteurs et dossiers 



Coinincinde 


Description 


rhnn'up GirDrivp 


Specific a la. place du lecteur par defaut le lecteur st rDrive. 


ChDir strDirectory 


opcClllc a La place UU UUaSiei pal Uciaui 1c UOaSiei oil U1I uCZUl y. Ol 

aucun lecteur n'est specifie dans la chaine, Visual Basic opte pour le 
lecteur courant. 


Kill strFileSpec 


Supprime les fichiers (representes par des jokers) specifies dans 
strFileSpec. 


MkDir strDirectory 


Cree le dossier specifie dans strDirectory. 


RmDir strDirectory 


Supprime le dossier specifie dans strDirectory. 



Outre les commandes du Tableau 12.3, Visual Basic supporte la fonction Dir() qui 
verifie si des fichiers existent bien, et la fonction Cu rDin ( ) qui renvoie le nom du dossier 
courant. 

Supposons que vous vouliez affecter aux zones de liste Lecteur et Dossier le chemin 
C : \MesFichiers. II sufht d'inserer dans la procedure Form_Load ( ) le code suivant : 

BChDrive "C:" 
ChDir "\MesFichiers" 

En s'affichant sur la feuille, les zones de liste Lecteur, Dossier et Fichier pointeront 
toutes vers C: \MesFichiers, plutot que sur le dossier courant de l'application. 

La fonction Dir() requiert un peu plus d' explications. Imaginons que vous vouliez 
verifier qu'un fichier nomme VENTES98.DAT existe bien a la racine du lecteur D. Vous 
pouvez proceder ainsi : 

If (Dir( "c:\VENTES98.DAT")) = "VENTES98.DAT" Then 

intMsg = MsgBox ("The file exists") 
Else 

intMsg = MsgBox ("The file does not exist") 
End If 

La fonction Dir( ) renvoie le nom de fichier passe comme argument. Le nom de fichier 
est renvoye seulement si le fichier correspondant reside dans le dossier specifie dans 
l'argument. Si Dir( ) ne renvoie pas le nom de fichier, e'est que le fichier n'existe pas 
sur le lecteur designe. 
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Dir( ) accepte egalement les jokers : 

Dir("c: \Ventes*.DAT") 

Dir() renvoie alors le nom du premier fichier correspondant aux jokers passes — si 
pareil fichier existe. Une fois passee la premiere specification joker, vous pouvez appe- 
ler de nouveau Dir( ) sans parentheses ni arguments. Visual Basic renverra les noms de 
fichiers repondant aux jokers, jusqu' a ce que le dernier fichier soit trouve. Si Dir renvoie 
une chaine Null (" "), vous devez inclure une specification de fichier dans le prochain 
appel de Dir( ) ; autrement, Dir genererait une erreur. 

Pour affecter a la zone de liste Lecteur un lecteur specifique, vous devez definir la 
propriete Drive du controle comme ceci : 

drvDisk. Drive = "d: \" 

La lettre de lecteur D: s'affiche alors en haut de la liste. Si l'utilisateur selectionne un 
autre lecteur, l'evenement Change ( ) de la zone de liste Lecteur se produit. Pour definir 
comme lecteur par defaut le lecteur specifie par l'utilisateur, il faut inclure dans drvDisk 
_Change() 1' instruction suivante : 

ChDrive drvDisk. Drive 

Pour que le lecteur s'affiche dans la zone de liste Dossier, definissez la propriete Drive 
du controle a l'aide 1' instruction suivante : 

dirDirect. Drive = drvDisk. Drive 

Cette instruction d'affectation definit, dans la liste Dossier, le lecteur specifie par l'utili- 
sateur. Elle peut etre ajoutee a la procedure evenementielle drvDisk_Change ( ) . 

Lorsque l'utilisateur change de dossier dans la zone de liste Dossier, l'evenement Change 
du controle se produit. Dans la procedure evenementielle Change, vous pouvez definir le 
dossier specifie par l'utilisateur comme dossier courant a l'aide de l'instruction suivante : 

ChDir dirDirect. Path 

La zone de liste Dossier supporte une methode d'acces un peu particuliere : il suffit de 
la propriete Listlndex. La valeur de Listlndex est -1 pour le dossier selectionne, -2 
pour le dossier parent du dossier selectionne, -3 pour le parent du parent, et ainsi de 
suite. La valeur de Listlndex est 0 pour le premier sous-dossier du dossier selectionne, 
1 pour le sous-dossier suivant, et ainsi de suite. 

Pour n'afficher que certains fichiers dans la zone de liste Fichier, affectez a la propriete 
Pattern du controle une chaine specifiant un filtre : 

filFiles. Pattern = "*.vbp; *.frm" 
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Vous pouvez inclure autant de specifications que vous le souhaitez, sous la forme de jokers 
inclus entre les guillemets de la chaine. La zone de liste Fichier se met immediatement a 
jour selon les nitres specifies. Lorsque l'utilisateur selectionne un fichier, l'evenement 
Change de la zone de liste Fichier se produit, et le fichier selectionne est affecte a la 
propriete FileName. Comme pour la zone de liste Lecteur, le fichier selectionne apparait 
egalement avec une valeur List Index de -1 . 

Si l'utilisateur a selectionne un chemin d'acces, vous pouvez repercuter ce choix dans la 
zone de liste Fichier a l'aide de l'instruction d'affectation suivante : 

filFiles.Path = dirDirect.Path 



En resume 

Ce chapitre vous a appris a manipuler les fichiers au niveau le plus fondamental. Main- 
tenant que vous maitrisez ce bases, vous etes pret a affronter les controles et commandes 
de traitement de fichiers plus avances, tels que les fonctionnalites base de donnees de 
Visual Basic. 

Vous avez egalement appris a lire et ecrire dans des fichiers sequentiels et aleatoires. 
Ces fichiers sont utiles pour stocker des valeurs textuelles. Une fois que Ton connait les 
commandes, la programmation de ces fichiers est relativement simple. Ainsi, l'instruction 
Write # reflete l'instruction Read #, et l'instruction Get # reflete l'instruction Put #, etc. 

Les controles de gestion de fichiers de la Boite a outils, une fois installes et correcte- 
ment parametres dans votre application, permettent a l'utilisateur de parcourir ses 
lecteurs, dossiers et fichiers. Ces controles forment un complement interessant aux 
boites de dialogue communes Ouvrir et Enregistre, et permettent d'obtenir des infor- 
mations specifiques sur le contenu du disque. 

Le chapitre suivant vous enseigne a envoyer des donnees vers un autre type de 
peripherique : l'imprimante. 



Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris. II convient de comprendre 
les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trouverez 
ces reponses a 1' Annexe A. 
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Quiz 

1 . Combien de fichiers peut-on fermer avec une meme instruction Close ? 

2. Quelle fonction renvoie le prochain numero de fichier disponible ? 

3. Que se passe-t-il si vous ouvrez un fichier en acces sequentiel Output et que ce 
fichier existe deja ? 

4. Que se passe-t-il si vous ouvrez un fichier en acces sequentiel Append et que ce 
fichier existe deja ? 

5. Quel type de fichier 1' instruction suivante ouvre-t-elle ? 

Open "Test.dat" For Append As #1 

6. Pourquoi les instructions aleatoires Open doivent-elles connaitre la longueur d'enre- 
gistrement de leurs donnees ? 

7. Pourquoi faut-il specifier la longueur absolue des chaines dans un type de donnees 
personnalise quand ces chaines doivent etre lues et ecrites dans un fichier aleatoire ? 

8 . Quelle instruction permet de definir un nouveau type de donnees ? 

9. Le code suivant declare une nouvelle variable nominee CustRec. Vrai ou faux ? 

Type CustRec 

strFName As String * 10 

strLName As String * 15 

curBalance As Currency 
blnDiscount As Boolean 
End Type 

10. Quelle est la difference entre la fonction Dir( ) avec arguments et la fonction Dir( ) 
sans arguments ? 



Exercices 

1. Chasse au bogue : Mauricette a des problemes avec ses fichiers. Lorsqu'elle essaie 
de lancer une application contenant l'instruction ci-dessous, elle obtient une erreur. 
Pouvez-vous lui expliquer pourquoi son instruction ne marche pas ? (On suppose 
qu'un dossier Factures existe bien a la racine du lecteur C.) 

RmDir "C:\Factures" 
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2. Ecrivez une procedure qui cree un fichier sequentiel con tenant les informations 
suivantes : nom, age et couleur preferee. Ecrivez dans ce fichier cinq enregistrements 
(chaque enregistrement devant contenir un nom, un age et une couleur). Utilisez une 
seule boucle For pour ecrire ces informations dans le fichier. Conseil : initialisez trois 
tableaux, un pour chaque categorie de donnees. 

3. Creez de toutes pieces une boite de dialogue semblable a la boite de dialogue 
commune Ouvrir. Utilisez pour ce faire les zones de liste Lecteur, Dossier et Fichier, 
ainsi que des boutons de commande OK et Annuler. Faites en sorte que les listes 
Dossier et Fichier se modifient chaque fois que l'utilisateur selectionne un lecteur ou 
un dossier different. (Naturellement, vous vous servirez toujours de la boite de 
dialogue commune Ouvrir. II s'agit d'un exercice illustrant les relations entre ces 
divers controles.) 
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Ce Projet bonus devrait vous permettre d'approfondir votre comprehension de l'acces 
sequentiel. L' application que nous vous invitons a creer integre egalement le controle 
Common Dialog, sous la forme d'une boite de dialogue commune Ouvrir. Mais vous 
allez surtout mettre en ceuvre les procedures de gestion de fichiers etudiees au 
Chapitre 12. Dans cette application, il s'agit de visualiser le contenu des fichiers . Voici 
les taches a accomplir : 

• permettre a l'utilisateur de selectionner un fichier dans la boite de dialogue Ouvrir ; 

• permettre a l'utilisateur de modifier la couleur d'arriere-plan du fichier a l'aide 
d'une boite de dialogue Couleur ; 

• permettre a l'utilisateur de redimensionner la feuille, et faire en sorte que le 
programme ajuste automatiquement la disposition des controles ; 

• integrer au code de la boite de dialogue Ouvrir un gestionnaire d'erreurs, de sorte 
que l'utilisateur puisse, en cliquant sur Annuler, maintenir a l'ecran le fichier 
courant sans faire d' autre selection ; 

• permettre a l'utilisateur de visualiser les fichiers .BAT et .TXT, tout en limitant a 
4096 octets la taille des fichiers lisibles dans 1' application. 

La Figure PB6.1 montre le visualiseur apres qu'un fichier a ete selectionne. 

Vous ajouterez d'abord les elements graphiques de la feuille, puis vous ecrirez le code 
charge de repondre aux actions de l'utilisateur. 
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Figure PB6.1 

L'utilisateur peut 
visualiser lesfichiers 
.BAT et TXT dans 
la zone de liste. 



i Visualiseur de fichiers 



Fichier 



Couleur de 
fond 



Time Stamp: TueApr 07 17:34:59 1998 
cbDiskPrompt : File copy canceled on: 
Time Stamp: Tue Apr 07 1 7:34:59 1 998 
cbDiskPiompt : net.cat;CATAL0G4.CAB 
Time Stamp; Tue Apr 07 1 7:34:59 1 998 
cbDiskPfompt : E:\WIN93-~5\C0DEFR\ 
Time Stamp: Sat Apr 1 8 1 7:24:42 1 998 
cbD iskPiornpl : File copy canceled on: 
Time Stamp: Sat Apt 18 1 7:24:42 1 998 
cbDiskPrornpl : DANGE~10.CUR;WIN98_4aCAB 
Time Stamp: Sat Api 1 8 1 7:24:42 1 998 
cbDiskPfompt : EAWIN98-~5^C0DEFRS 



EE 



Creer I'interface 

Ajoutez a la feuille les controles detailles dans le Tableau PB6.1 . 

' Dans le Createur de menus, vous devez indenter tous les elements sauf le 

premier, Fichier, qui constitue le nom du menu. Les elements indentes appa- 
raitront comme options de ce menu Fichier. 



Tableau PB6.1 : Controles et proprietes de la feuille 



Controle 


Propriete 


Valeur 


Feuille 


Name 


f rmFile 


Feuille 


Caption 


Visualiseur de fichiers 


Feuille 


Height 


4620 


Feuille 


Width 


6570 


Zone de liste 


Name 


IstFile 


Zone de liste 


Height 


2205 


Zone de liste 


Left 


720 


Zone de liste 


Top 


1320 


Zone de liste 


Width 


4815 
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Tableau PB6.1 : Controles et proprietes de la feuille (suite) 



Contrdle 


Propriete 


Valeur 


Bouton de commande 


Name 


cmdColor 


Bouton de commande 


Caption 


&Couleur de fond 


Bouton de commande 


Height 


495 


Bouton de commande 


Left 


2760 


Bouton de commande 


Top 


480 


Bouton de commande 


Width 


1215 


Element de menu 1 


Caption 


&Fichier 


Element de menu 1 


Name 


mnuFile 


Element de menu 2 


Caption 


&Ouvrir 


Element de menu 2 


Name 


mnuFileOpen 


Element de menu 3 


Caption 




Element de menu 3 


Name 


mnuFileSepI 


Element de menu 4 


Caption 


&Quitter 


Element de menu 4 


Name 


mnuFileExit 


Common Dialog 


Name 


comFile 


Common Dialog 


DialogTitle 


Ouvrir un fichier 


Common Dialog 


InitDir 


c:\ 


Common Dialog 


Filter 


Texte (*.txt) |*.txt|Batch 
(*.bat) |*.bat 


Common Dialog 


CancelError 


True 


Common Dialog 


MaxFileSize 


4096 



Pour parametrer le controle Common Dialog, double-cliquez sur l'entree (Personna- 
lise) de la fenetre Proprietes. Les Pages de proprietes (voir Figure PB6.2) offrent une 
methode plus simple que la saisie des valeurs dans la fenetre Proprietes. 
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Figure PB6.2 

Utilisez la botte 
de dialogue 
personnalisee pour 
entrer les proprietes 
du contrdle 
CommonDialog. 



Pages de propiiete 



Ouvrir / Enregislrec sous | Couleur | Police | Imprimer | Aide | 
DialoaTitle: | |||I,'JI II j " Flags: fo 

FileName: I 



DefaullExt 



InitDir: r^ - 



MaxFileSize: Unyf; 



Filler: |TeKle (' M)F MIBatch |".batjl' -b Fillerlndex: [fT 
W CancelError 



' Vous n 'aurez pas a definir de proprietes liees a la couleur. La botte de dialo- 

^ sVJC S ue Couleur ne necessite pas de tels reglages avant V execution du 
programme. Les selections de couleur de Vutilisateur n'affecteront pas les 
proprietes lies aufichier definies pour le contrdle Common Dialog. 



Ajouter le code 

Le Listing PB6.1 fournit le code evenementiel du projet. 

Cliquez sur le menu Outils, puis choisissez V option Ajouter une procedure. 
La botte de dialogue reproduite en Figure PB6.3 s'affiche. Tapez le nom de 
la procedure, selectionnez son type et sa portee, et Visual Basic insere auto- 
matiquement les lignes d'emballage. Deux lignes de mains a taper, c'est 
toujours ca ! 




Figure PB6.3 

Laissez Visual Basic 
inserer la premiere 
et la derniere lignes 
de procedure. 
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Listing PB6.1 : Chargement du fichier dans un controle zone de liste 



1: Private Sub cmdColor_Click( ) 

2: ' Pour changer le controle d 1 arriere-plan 

3: ' de la zone de liste, 1 1 utilisateur 

4: ' se servira de la boite de dialogue Couleur. 

5: comFile.ShowColor 

6: IstFile.BackColor = comFile. Color 

7: End Sub 

8: 

9: Private Sub Form_Resize( ) 

10: Dim intMsg As Integer ' Valeur de renvoi de MsgBoxf). 

11: 1 Si 1' utilisateur redimensionne la feuille, 

12: 1 ajuste la taille de la zone de liste. 
13: 

14: 1 Cette procedure evenementielle s'execute 

15: ' au premier chargement de la feuille. 
16: 

17: ' S'assure que la feuille est assez grande 

18: 1 pour afficher la zone de liste. 

19: If (frmFile. Width < 400) Or (frmFile. Height < 3500) Then 

20: ' Masque la zone de liste et 

21: ' avertit 1' utilisateur. 

22: IstFile. Visible = False 

23: intMsg = MsgBox("La feuille est trop petite pour afficher le 

fichier", _ vbCritical) 

24: Else 

25: ' Active l'affichage de la zone de liste, 

26: 1 au cas ou. 

27: IstFile. Visible = True 

28: ' Ajuste la taille de la zone de liste. 

29: 1 Ajuste la position du bouton de commande. 

30: IstFile. Width = frmFile. Width - 1440 

31: IstFile. Height = frmFile. Height - 2500 

32: cmdColor.Left = (frmFile. Width / 2) - 500 

33: End If 

34: End Sub 

35: 

36: Private Sub mnuFileExit_Click( ) 

37: ' Option de fermeture du programme. 

38: End 

39: End Sub 

40: 

41: Private Sub mnuFileOpen_Click( ) 

42: Dim strFileLine As String 

43: ' Gere le bouton Annuler. 

44: On Error GoTo comErrorHandler 
45: 

46: ' Affiche la boite de dialogue Ouvrir. 

47: comFile. ShowOpen 

48: ' Continue si 1 ' utilisateur clique sur OK, 

49: ' passe au gestionnaire d'erreurs s'il clique sur Annuler. 



411 < 



Listing PB6.1 : Chargement du fichier dans un controle zone de liste (suite) 
50: 

51: ' Ouvre le fichier selectionne pan 1 1 utilisateur. 

52: Open comFile.FileName For Input As #1 

53: ' Vide la zone de liste pour faire de la place. 

54: IstFile. Clear 

55: 

56: ' Lit une ligne complete du fichier. 

57: Line Input #1, strFileLine 

58: IstFile. Addltem strFileLine 
59: 

60: ' Poursuit la lecture et remplit la zone de liste 

61: ' jusqu'a ce que la fin du fichier soit atteinte. 

62: Do Until (EOF(1)) 

63: Line Input #1, strFileLine 

64: IstFile. Addltem strFileLine 

65: Loop 

66: ' Ferme le fichier. 

67: Close 

68: comErrorHandler: 

69: ' Ne fait rien si 1 1 utilisateur clique sur Annuler. 

70: End Sub 



Analyse 

La premiere procedure evenementielle, lignes 1 a 7, affiche le controle Common Dialog 
a l'aide de la methode ShowColor. Lorsque l'utilisateur fait une selection, la ligne 6 
ajuste en consequence l'arriere-plan de la zone de liste et le fichier est affiche sur un 
fond de la couleur choisie. (La couleur s'applique a l'arriere-plan de la zone de liste 
meme si aucun fichier n'est visualise.) Cette couleur restera en arriere-plan tant que 
l'utilisateur n'en selectionnera pas une autre. 

A la ligne 9 commence la deuxieme procedure evenementielle. Si l'utilisateur redimen- 
sionne la feuille, la procedure evenementielle Form_Resize( ) s'execute automatiquement. 
(Elle s'execute egalement au premier chargement de la feuille.) 

Cette procedure d'ajustement fait en sorte que le bouton de commande et la zone de liste 
restent centres, quelle que soit la taille de la feuille. Si l'utilisateur "ratatine" la feuille au 
point que la zone de liste ne puisse plus s'afhcher, les deux evenements suivants ont lieu 
(ligne 19) : 

• La zone de liste est masquee. (Sinon, Visual Basic genererait une erreur, car il ne 
peut faire ce qui lui est demande sur une feuille si petite.) 

• L'utilisateur est averti par une boite de message que la feuille est trop petite. 
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Projet bonus 6 : Lire et ecrire des fichiers 



En supposant que la zone de liste n'a pas ete masquee, la ligne 27 en ajuste la taille 
selon les nouvelles proprietes Width et Height de la feuille. La position du bouton de 
commande est egalement modifiee en fonction de cette meme propriete Width. 

A la ligne 41 commence la procedure evenementielle la plus longue du programme. 
Cette procedure ouvre et lit le fichier selectionne. Lorsque l'utilisateur clique sur 
Fichier, Ouvrir, la boite de dialogue commune Ouvrir un fichier s'affiche (voir Figure 
PB6.4). La procedure evenementielle appplique pour cela la methode ShowOpen au 
controle Common Dialog. 



Figure PB6.4 

L'utilisateur peut 
choisir un fichier .BAT 
ou .TXT dans la boite 
de dialogue Ouvrir 
un fichier. 



Nom : 
lype: 



Exploia:|t=>DISK1_V0L1 (CO 


A M al *J W jffll 


3 Adobe 


I I host-news I I F 


2jALW2 


□ info.pccd UMi 


CARMDEMO 


CJ Installation de Internet Explorer 4.0 |_J 1 


20 CORTAL 


QMes documents Cj.\ 


2] DSAVTK 


Multimedia Files C] \ 


I Exchange 


LJ Program Files I 1 \ 


«l I >\ 



|Texte ('.tKt) 
P Lecture seule 



Evidemment, la liste des fichiers ajfichee dans la boite de dialogue Ouvrir 
depend du contenu du disque de l 'utilisateur, et ne sera done pas identique a 
la Figure PB6.4. 

Dans la boite de dialogue Types de fichier, l'utilisateur peut selectionner les types .TXT 
et .BAT (tous les dossiers sont affiches, quelle que soit la selection). II peut aller 
chercher son fichier dans n'importe quel dossier de son PC, voire d'un autre PC du 
reseau. 

La ligne 44 definit le gestionnaire d'erreur charge de repondre au bouton Annuler. 
Si l'utilisateur clique sur Annuler, le code saute a la fin de la procedure evenementielle, 
et laisse tel quel tout le contenu de la feuille. 

Quand l'execution du programme a atteint la ligne 52, l'utilisateur a selectionne un 
fichier. La ligne 52 ouvre ce fichier en acces sequentiel, en mode lecture seule. 

Le fichier est ouvert en lecture seule afin que le programme ne puisse en 
modifier le contenu. 
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La ligne 54 vide la zone de liste afin de faire place au contenu du fichier nouvellement 
selectionne. Les lignes 57 et 58 lisent la premiere ligne du fichier et ajoutent cette ligne 
a la zone de liste a l'aide de la methode Addltem. La ligne 57 introduit une nouvelle 
commande : Line Input #. Vous connaissez deja Input # et Get #. Line Input # ne 
devrait done pas vous poser de probleme. En voici le format : 

Line Input #intFileNumber, strLineVar 

Line Input # lit une ligne complete (ou enregistrement) depuis le fichier, et la stocke 
dans la variable chaine strLineVar. Si e'est Input # qui avait ete employee, la ligne 
n'aurait peut-etre pas ete lue en entier. En effet, les lignes contiennnent sans doute des 
virgules et des espaces, et vous savez que Input # arrete sa lecture chaque fois qu'un tel 
caractere est rencontre — meme si e'est au milieu de la ligne. 

Une fois la premiere ligne lue et envoyee a la zone de liste, la ligne 62 amorce une 
boucle qui lira le reste du fichier. La fonction EOF() permet de localiser la fin d'un 
fichier. Le fichier peut contenir plusieurs lignes, et le programme ne peut en connaitre a 
l'avance le nombre exact. E0F() renvoie la valeur True lorsque la fin du fichier est 
atteinte. Si True est renvoyee, la boucle cesse de lire le fichier et le programme poursuit 
son execution a la ligne 66. 



La ligne 62 aurait pu etre celle-ci : 

Do Until (E0F(1) = True) 

Certes, la line 62 aurait pu interroger la valeur renvoyee par EOF( ) . Mais 
cette facon de faire aurait, en verite, donne un programme moins efficace. 
La fonction EOF( ) renvoie une valeur True ou False selon que la condition 
de fin de fichier est satisfaite ou non. Les fonctions , vous vous en souvenez, 
sans doute, deviennent leur valeur de renvoi. En V occurrence , I'appel de 
EOF() devient lui-meme True ou False, et V instruction conditionnelle Do 
Until est done tout d fait inutile. 

La ligne 67 ferme le fichier, et le programme se poursuit pour permettre a l'utilisateur 
d'en choisir un nouveau. 
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Chapitre 



Gestion de I'imprimante 

Vous apprendrez, dans ce chapitre, comment on envoie une sortie vers I'imprimante. Vous 
maitrisez deja l'environnement de developpement, connaissez l'essentiel du langage et 
etes en mesure de creer des applications fonctionnelles. II s'agit maintenant de permettre a 
ces applications d'envoyer des donnees a I'imprimante. 

Sachez que l'interface d'impression Visual Basic est un peu plus complexe que la 
plupart des composants eudies jusqu'ici. Imprimer des donnees depuis un programme 
Visual Basic est en general une operation delicate. Les sections suivantes decrivent les 
divers outils disponibles a cet effet. 

Voici ce que nous decouvrirons aujourd'hui : 

• les objets Printer ; 

• comment determiner les parametres d'impression de l'utilisateur ; 

• l'instruction Is TypeOf ; 

les methodes d'impression ; 

la similitude entre les methodes d'impression et les methodes de feuilles ; 

• les techniques d'impression ; 
comment avertir l'utilisateur ; 
comment imprimer des feuilles. 
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La collection d'objets Printers 



Supposons que vous vouliez imprimer une copie du contenu de la fenetre Code. Pour ce 
faire, vous choisissez Fichier, Imprimer. Un PC peut disposer de plusieurs imprimantes. 
Vos applications doivent avoir acces a toutes les imprimantes connectees, ainsi qu'aux 
eventuels fax internes qui fonctionnent comme des imprimantes. II suffit, pour envoyer 
l'impression, de selectionner le peripherique adequat comme imprimante par defaut de 
Visual Basic. Visual Basic transmettra toutes les sorties a cet imprimante, ignorant la 
specification par defaut du systeme, et cela, jusqu'a ce que l'application se termine ou 
jusqu'a ce que vous definissiez une autre imprimante par defaut. 

Rien de plus simple, done, que d'imprimer vos listings. II n'en va pas de meme pour 
imprimer des sorties depuis un programme Visual Basic. Avant d'entrer dans les details, 
nous allons presenter un jeu d'objets special : la collection Printers. 

La collection Printers est la liste de toutes les imprimantes connectees au PC 
qui execute l'application, incluant les modems internes faisant office de fax. 
Cette collection ne concerne pas le PC sur lequel l'application est developpee, 
mais bien celui sur lequel elle est executee. 

La collection Printers etant la liste des imprimantes du systeme exploitant l'applica- 
tion, son contenu change d'un systeme a l'autre. Si, entre deux executions, l'utilisateur 
desinstalle une imprimante, la collection Printers en sera modifiee. Comment acceder 
aux imprimantes de la collection courante ? C'est ce que nous vous invitons a decouvrir. 




La collection Printers est la meme liste d 'imprimantes qui apparait dans la 
boite de dialogue Imprimantes de Windows. 



Acceder a la collection Printers 

Comme pour les autres types de listes internes que nous avons etudies jusqu'ici, le 
programme peut se referer aux objets de la collection Printers au moyen de valeurs 
d' index. La premiere imprimante (imprimante par defaut) a l'indice 0, la deuxieme 
l'indice 1, et ainsi de suite. On peut ainsi determiner le nombre d' imprimantes du 
systeme en incluant dans une boucle For la reference Printers. Count-1. L'instruction 
For Each permet de parcourir la liste des imprimantes sans qu'il soit besoin de specifier 
un numero (voir Listing 13.1). 
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L'instruction Set Printer permet de definir l'une des imprimantes comme imprimante 
par defaut. L'instruction suivante definit comme imprimante par defaut de Visual Basic 
la deuxieme imprimante du systeme : 

Set Printer = Printers(1) ' Change I'imprimante par defaut. 

II n'est toutefois pas toujours evident de determiner en cours d'execution 1'imprimante a 
utiliser. Comment savoir de quel type d' imprimante il s'agit ? On ne peut interroger que 
des proprietes specifiques. Si, par exemple, vous devez envoyer la sortie vers une impri- 
mante supportant un format de papier particulier, il faudra boucler a travers toutes les 
imprimantes du systeme, jusqu' a ce vous trouviez le peripherique adequat. 

Interroger les proprietes 

Le Tableau 13.1 presente les proprietes d'imprimante les plus importantes, qui permettent 
de chosir une imprimante en fonction des besoins de 1' application. Ces proprietes sont, 
pour la plupart, associees a des constantes nominees. On peut ainsi, pour rechercher 
notre format de papier, interroger les proprietes a l'aide de constantes nominees telles 
que vbPRPSLetter et vbPRPSLetterSmall, plutot que de simples valeurs comme 1 ou 2. 
Les constantes nominees sont un peu plus longues a saisir, mais rendent le programme 
plus clair et la maintenance plus aisee. 

Faites dans l'aide en ligne une recherche sur une propriete pour obtenir la 
liste des constantes nommees qu'elle supporte. 



Tableau 13.1 


: Proprietes des imprimantes 


Propriete 


Description 


ColorMode 


Determine si 1' imprimante peut imprimer en couleur. 


Copies 


Specifie le nombre de copies a imprimer. 




(Cette propriete peut est definie par l'utilisateur dans la boite de dialogue 




Imprimer de votre application, ou par vous-meme dans le code.) 


CurrentX, 


Renvoie ou specifie les cordonnees X et Y auxquelles le prochain caractere 


CurrentY 


(ou dessin) apparaitra. 


DeviceName 


Contient le nom de I'imprimante, tel que Epson Stylus Color 500. 


DriverName 


Contient le nom du pilote d' impression. (Plusieurs imprimantes d'un meme 




fabriquant peuvent exploiter le meme pilote.) 
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lableau 13.1 : 


II...... ".'j' .] ■ . . . / \ 

Proprietes des imprimantes (suite) 


Propriete 


Description 


Duplex 


Determine si rimprimante peut imprimer recto-verso. 


Height 


Revoie la hauteur de la page imprimee pour rimprimante selectionnee 




(en mesures ScaleMode). 


Orientation 


Renvoie ou definit l'orientation de la page (portrait/paysage). 


Page 


Renvoie le numero de la page courante. 


PaperBin 


Renvoie ou definit le bac d' alimentation utilise. 




(Toutes les imprimantes ne disposent pas de bacs multiples.) 


PaperSize 


Renvoie ou definit le format de papier courant. 


Port 


Renvoie le port de rimprimante. 


PrintQuality 


Renvoie la resolution de rimprimante. 


TrackDef ault 


Si la valeur est False, les parametres d'impression courants sont conserves 




lorsqu'on change d'imprimante par defaut ; si la valeur est True, ces 




parametres sont modifies a chaque changement d'imprimante par defaut. 


Width 


Renvoie la largeur de la page imprimee pour l'imprimante selectionnee (en 




mesures ScaleMode). 


Zoom 


Renvoie ou definit le pourcentage d'echelle de 1' impression. Pour une valeur de 




Zoom de 75, par exemple, la page sera imprimee a 75 % de sa taille reelle. (Cette 




propriete n'est pas supportee par toutes les imprimantes.) 



A l'execution, les proprietes de l'objet Printer s'ajustent a celles de rimprimante par 
defaut du systeme. Si une nouvelle imprimante par defaut est selectionnee, les proprie- 
tes se modifient automatiquement. La plupart des proprietes presentees au Tableau 13.1 
peuvent etre definies a l'execution. 




On se sert egalement des proprietes du Tableau 13.1 pour appliquer les 
methodes specifiques d'impression decrites a la section suivante. 
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Le code du Listing 13.1 parcourt les imprimantes courantes du systeme. 

Listing 13.1 : Le code prend connaissance de chaque imprimante du systeme 

1 : Dim prnPrntr As Printer 

2: For Each prnPrntr In Printers 1 Boucle dans la collection. 
3: frmMyForm. Print prnPrntr. DeviceName 
4: Next 

Ce code se contente d'afficher sur la feuille courante le nom de chaque imprimante du 
systeme. 

A la ligne 1, une variable est declaree comme de type Printer. En progressant dans votre 
apprentissage, vous decouvrirez que les variables peuvent etre declarees pour a peu pres 
n'importe quel type : Printer, Form, etc. Ici, la variable prnPrntr permet a la boucle For 
Each de parcourir les imprimantes du systeme. L' instruction For equivalente serait : 

For prnPrntr = 1 to (Printers. Count - 1) 




Rappelez-vous que Printer et Form sont des objets Visual Basic. Vous en 
apprendrez plus a propos des objets au Chapitre 16. 



Afficher sur la feuille le nom de chaque imprimante, ca ne sert pas a grand-chose. 
Neanmoins, la boucle mise en ceuvre dans cet exemple fournit le modele de la plupart 
des traitements d'imprimante. 

Pour continuer dans nos exemples, le Listing 13.2 recherche, parmi toutes les impri- 
mantes du systeme, une imprimante capable d'imprimer un graphique en couleur. 

Listing 13.2 : Recherche d'une imprimante couleur sur le systeme de l'utilisateur 

1 : Dim prnPrntr As Printer 

2: For Each prnPrntr In Printers 

3: If prnPrntr. ColorMode = vbPRCMColor Then 

4: 1 Definit I'imprimante couleur comme imprimante par defaut. 

5: Set Printer = prnPrntr 

6: Exit For 1 Ne cherche pas plus loin. 

7: End If 

8: Next 1 Continue la boucle si necessaire. 
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Partie II 



Controle de la sortie 

L'objet Printer permet d'envoyer des donnees vers rimprimante par defaut sans se 
soucier du type du peripherique ni du port. Pour envoy er une sortie (documents, 
images, etc.) vers rimprimante, on applique a l'objet Printer des methodes. L'objet 
Printer est d'une programmation un peu fastidieuse, mais il permet de developper des 
procedures generalistes qui simplifieront la gestion des sorties dans les programmes 
subsequents. 

Pour envoy er les donnees a une imprimante autre que V imprimante par 
defaut, ilfaut d'abord la definir a I'aide de I 'instruction Set Printer. 



Une fois selectionnee l'imprimante par defaut, on peut envoyer la sortie vers rimpri- 
mante de l'utilisateur. Cette section explique comment controler l'objet Printer et diriger 
du texte vers l'imprimante. Vous decouvrirez, dans le chapitre suivant, des methodes et 
commandes graphiques qui peuvent egalement s'appliquer a l'objet Printer. 

Avec l'objet Printer, on construit la sortie. En d'autres termes, envoyer une sortie a 
l'objet Printer ne signifie pas imprimer reellement. Ce sont les methodes NewPage 
ou EndDoc qui amorcent reellement l'impression. (Si aucune methode EndDoc n'a ete 
appliquee, l'impression se lance automatiquement a la fermeture de 1' application.) 



Imprimer vers l'objet Printer 

La methode Print offre le plus simple moyen de diriger une sortie vers l'objet Printer. 
Les instructions suivantes envoient un message vers l'imprimante : 

8 Printer. Print "Ce rapport presente les resultats du " 
Printer. Print dteStart; " au "; dteFinish; "." 
Printer. Print "Pour plus d 1 informations, contactez M. Pichot." 



En fait, Windows se charge des details de l'impression. Ainsi, si Vimpri- 
mante n'a plus de papier ou est hors tension lorsque l'impression demarre, 
Windows envoie a l'utilisateur un message d'avertissement (voir 
Figure 13.1). Celui-ci peut cliquer sur Reessayer s'il a regie le probleme, ou 
sur Annuler pour decommander la tache d' impression. 

On peut aussi bien envoyer vers l'imprimante des litteraux, des variables, des valeurs de 
controles, etc. En fait, tout ce que Ton peut envoyer a la feuille avec Print, on peut 
l'envoyer a l'envoyer a l'objet Printer. Voici un exemple : 
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Figure 13.1 

Windows avertit 
I'utilisateur des 
erreurs d 'impression. 



Dossiei Impiimante: 



© 



Une erreur d'impression a eu lieu sui HP LaserJet Series II. L'imprimante n'est pas piete. 
Assurez-vous que l'imprimante est sous tension et connectee. Pour poursuivre rimpression, 
cliquez sur Reessayer 



sngTaxRate = 12.5 

strTitle = "Encyclopedie du gibolin" 
Printer. Print "Ouvrage achete : " & strTitle 
Printer. Print "Montant de la taxe : " & sngTaxRate 

Sans arguments, la methode Print imprime des lignes vierges : 

Printer. Print 1 Imprime une ligne vierge. 

// convient de signaler a I'utilisateur le debut de V impression. La derniere 
section de ce chapitre explique comment envoy er ce type d'avertissements. 



Nous avons vu, au Chapitre 1 1 , que la methode Print permettait d'envoyer une sortie vers la 
feuille. Comme vous le voyez ici, Print est une methode generaliste capable d'envoyer une 
sortie vers tout objet valide qui accepte les donnees textuelles. 

La methode NewPage permet d'afficher la sortie en haut de la page suivante : 
Printer. NewPage ' Passer a la page suivante. 



L'echelle de la sortie 

L'echelle permet, par exemple, de creer des marges qui seront respectees par toutes les 
methodes d'impression. Une fois definie la propriete ScaleMode, qui specifie le type de 
mesures employees par le programme, vous pouvez determiner la disposition de la sortie 
sur la page a l'aide des autres proprietes d'echelle. Le Tableau 13.2 presente ces proprietes. 

Les methodes suivantes definissent une marge superieure de 3 cm et une marge gauche 
de 5 cm : 

8 Printer. ScaleMode = vbCentimeters ' Echelle centimetres. 
Printer. ScaleTop = 3 
Printer. ScaleLeft = 5 

Les methodes Print subsequentes respecteront ces specifications. 
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Tableau 13.2 


Proprietes d'echelle 


Propriete 


Description 


ScaleLef t 


Dpfimt l'oncritip rip la ponrrlrtTiripp Vinri7nntalp ^ nonr la 7nnp H'lmnrpQ^ion 




Par exemple, une valeur ScaleLef t de 1 0 deplace la marge de gauche de 10 




unites ScaleMode. 


ScaleMode 


Specifie l'unite de mesure utilisee pour l'echelle. Les valeurs les plus 




couramment employees pour l'impression de texte sont vbPoints (valeur 2), 




vbCharacters (largeur de caracteres par delaut de 1 imprimante), vblnches 




et vbCentimeters. 


ScaleHeight 


Modifie le systeme de coordonnees verticales de l'objet Printer. 


ScaleTop 


Definit Forigine de la coordonnee verticale Y pour la zone d'impression. 




Par exemple, une valeur ScaleTop de 5 deplace la marge superieure de 




5 unites ScaleMode. 


ScaleWidth 


Modifie le systeme de coordonnees horizontales de l'objet Printer. 



Les proprietes CurrentXet CurrentY 

A moins que les proprietes ScaleHeight et ScaleWidth ne definissent un autre systeme 
de coordonnees X,Y, les proprietes Currentx et CurrentY de l'objet Printer ont toutes 
deux pour valeur de depart 0 (origine 0, 0). (Les coordonnees utilisent toujours les 
unites de mesure specifiees par ScaleMode.) Vous pouvez modifier cette origine pour 
imprimer une sortie a une position precise sur la page. 

Les proprietes Currentx et CurrentY respectent toujours les marges definies 
par ScaleLeft et ScaleTop. Ainsi, la paire de coordonnees Currentx, 
CurrentY correspond au premier caractere en haut a gauche de la page, a 
I'interieur des marges. 

Le code suivant imprime un message a 15 lignes de la marge superieure et a 
25 caracteres de la marge gauche : 

Printer. ScaleMode = VbCharacters 

Printer. CurrentY =14 'La valeur de depart est 0 ! 
Printer. Currentx = 24 

Printer. Print "Ce n'est plus Catilina qui est a nos portes, c'est la mort." 
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Plusieurs methodes, appliquees a l'objet Printer, permettent de controler le processus 
d'impression. Ainsi, la methode NewPage deja mentionnee : 

Printer. NewPage ' Passer a la page suivante. 

La methode KillDoc permet d'annuler l'impression a tout moment de la preparation : 

Printer. KillDoc ' Ne pas envoyer la sortie vers I'imprimante. 

KillDoc retire completement la sortie de l'objet Printer. Si l'utilisateur veut imprimer le 
document par la suite, la sortie devra etre re-envoyee a l'objet Printer. 




KillDoc ne peut annuler une impression deja commencee, ni les taches 
PrintForm. 



Microsoft recommande de creer dans un module standard une sous-routine d'impres- 
sion, qui pourra etre appelee depuis toutes les applications disposant de ce module. 
Cette sous-routine poura aussi servir aux impressions de feuilles. Le code du 
Listing 13.3 contient deux arguments de type Object. Ce type de donnees permet de 
passer a la sous-routine aussi bien un objet Form qu'un objet Printer. 

Listing 13.3 : Cette procedure permet d'imprimer les controles de la feuille 

1: Sub PrintAnywhere (Src As Object, Dest As Object) 

2: Dest.PaintPicture Src. Picture, Dest. Width / 2, Dest. Height / 2 

3: If TypeOf Dest Is Printer Then 

4: Printer. EndDoc 

5: End If 

6: End Sub 

On peut ainsi imprimer une feuille contenant une image. Ou bien une feuille dans 
laquelle l'utilisateur entre des donnees qui seront par la suite envoyees a I'imprimante. 

A la ligne 1 , la sous-routine exige des arguments de source et de destination. La source 
esr toujours la feuille a imprimer. La destiantion peut etre Printer. Lorsque vous etes 
pret a imprimer, vous appelez la procedure de cette facon : 

Call PrintAnywhere (f rmUserForm, Printer) 1 Print form. 

La sous-routine imprime la feuille a l'aide de la methode PaintPicture. PaintPicture 
dessine la feuille sur l'objet auquel elle est appliquee (la methode). La methode Paint- 
Picture requiert trois valeurs : la forme a dessiner, la largeur de destination et la hauteur 
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de destination. Le code du Listing 13.3 dessine une feuille mesurant la moitie de la taille 
de la zone de destination. 

L'instruction If s'assure que le destination est bien l'objet Printer, et non une autre 
feuille, et envoie la sortie a l'aide de la methode EndDoc. (On aurait pu passer une 
deuxieme feuille comme destination.) 

L'instruction If TypeOf implique un nouveau genre de If. If TypeOf... Is permet 
d'interroger le type d'un objet. 




En fait, l'instruction If TypeOf... Is fait plus que verifier le type d'un 
objet, comme vous V apprendrez au Chapitre 16. 



Les proprietes Font 

Le Tableau 13.3 presente certaines des proprietes de Printer qui permettent de specifier 
la mise en forme du texte avant de 1' envoy er a rimprimante. 

Tableau 13.3 : Les proprietes Font permettent de mettre le texte en forme avant 
d'imprimer 



Propriete 


Description 


Font 


Determine la police a utiliser. 


FontBold 


Si la valeur est True, le texte sera imprime en gras. 


FontCount 


Renvoie le nombre de polices supportees par rimprimante. 


Fontltalic 


Si la valeur est True, le texte sera imprime en italique. 


FontName 


Contient le nom de la police utilisee. 


Fonts 


Contient la liste de toutes les polices installees sur le systeme. On accede a 




cette liste comme a un tableau de controle : Fonts (0) et 




Fonts (FontCount - 1 ) sont le premier et le dernier indice. 


FontSize 


Determine la taille (en points) de la police utilisee. 


FontStrikeThru 


Si la valeur est True, le texte sera imprime en barre. 


FontTransparent 


Si la valeur est True, le texte sera imprime en transparent. 


FontUnderline 


Si la valeur est True, le texte sera imprime en souligne. 
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Les attributs de police permettent d'enjoliver ou de mettre en valeur le texte imprime. 
Le code suivant imprime les mots "Visual Basic" en gros caracteres, gras et italiques : 

Printer. Fontltalic = True 
Printer. FontBold = True 
Printer. FontSize = 72 ' Corps 72. 
Printer. Print "Visual Basic" 

Les methodes de Printer, nous l'avons dit, ne permettent pas seulement d'envoyer la 
sortie vers une imprimante, mais aussi vers une feuille. Examinez le Listing 13.4 et 
tentez de deviner ce qui apparaitra sur la feuille. (Une sortie identique aurait pu etre 
envoyee vers Printer, mais cet exemple permet de constater le resultat a l'ecran.) 

Listing 13.4 : Print permet egalement d'envoyer une sortie vers la feuille 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 



Private Sub cmdPrint_Click( ) 

' Envoie une sortie vers la feuille 
1 a l'aide de la methode Print. 
Dim intCtr As Integer 
Dim intCurX As Integer 
Dim intCurY As Integer 

' Definit les attributs de police. 
frmPrint . Fontltalic = True 
frmPrint . FontBold = True 
frmPrint. FontSize = 36 

' Specif ie des mesures en twips. 
frmPrint .ScaleMode = vbTwips 

' Enregistre les positions X et Y (en twips) 
' a chaque iteration de la boucle. 
For intCtr = 1 To 10 

intCurX = frmPrint .CurrentX 

intCurY = frmPrint .CurrentY 

' Texte noir et blanc en alternance. 

If (intCtr Mod 2) = 1 Then 1 Compteur de boucle. 
frmPrint. ForeColor = vbWhite 

Else 

frmPrint. ForeColor = vbBlack 
End If 

' Affiche le texte. 
frmPrint. Print "Visual Basic" 

1 Change les positions X et Y. 
frmPrint. CurrentX = intCurX + 350 
frmPrint. CurrentY = intCurY + 300 
Next intCtr 
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Listing 13.4 : Print permet egalement d'envoyer une sortie vers la feuille (suite) 
End Sub 

Private Sub cmdExit_Click( ) 

End 
End Sub 

Les lignes 9 a 11 specifiers le format du texte : corps 36, italique, gras. La ligne 14 
specifie que les positions Currentx et CurrentY doivent etre reglees en twips, et non en 
caracteres. La ligne 18 commence la boucle qui affichera sur la feuille dix fois "Visual 
Basic". 

Si vous modifiez. ce code pour envoyer la sortie vers une imprimante, choisis- 
sez, a la ligne 23, une autre couleur que vbWhite. Si vous ne disposez pas 
d'une imprimante couleur, des valeurs comme vbBlue ou vbRed s'imprimeront 
de toute facon en niveaux de gris. 

Au debut de la boucle (lignes 19 et 20), le code stocke les valeurs courantes de Currentx 
et CurrentY. Si ces valeurs n'etaient pas enregistrees, chaque methode Print apparaitrait 
sur une ligne pleine apres la premiere methode Print. En effet, chaque Print envoie 
automatiquement le curseur texte au debut de la ligne suivante, a moins que Ton ne 
place un point- virgule a la fin de la methode Print, ou que Ton ne regie les proprietes 
Currentx et CurrentY, ce qui a ete fait ici. 

A la ligne 22, l'instruction If gere la couleur de la sortie. A chaque iteration de la 
boucle, la couleur change du noir au blanc et vice versa. L'operateur Mod renvoie 0 ou 1 , 
selon la valeur du compteur de boucle. Si intCtr est pair, Mod prend la valeur 0, si 
intCtr est impair, Mod prend la valeur 1 . 

C'est a la ligne 28 qu'a lieu l'affichage comme tel. La methode Print devrait norma- 
lement envoyer le curseur texte a la ligne suivante, de sorte que les sorties Print 
subsequentes ne se surperposent pas. Mais les lignes 31 et 32 positionnent le curseur 
texte de sorte que chaque sortie morde un peu sur la precedente. Les lignes 31 et 32 
ajoutent quelques twips aux valeurs Currentx et CurrentY de la Print precedente 
(valeurs enregistrees aux lignes 19 et 20). A chaque iteration de la boucle, les mots 
"Visual Basic" s'affichent dans une couleur differente et en surimpression partielle de 
la ligne precedente, et cela jusqu'a la dixieme iteration. La Figure 13.2 montre le 
resultat qui apparait sur la feuille. Celui-ci aurait ete le meme si la sortie avait ete envoyee 
vers l'objet Printer. 
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Figure 13.2 

Les m6thod.es Print 
permettent d' envoy er 
du texte mis en forme. 



Visual 'Basic 
Visual Basic 
Visual Basic 
Visual Basic 
Visual Basic 
Visu* 1 'Gas 

Vr^/B 



Impression des feuilles 

L'une des facons les plus simples d'envoyer des donnees a I'imprimante est d'imprimer 
une feuille. La methode PrintForm peut s'appliquer a n'importe quelle feuille de votre 
projet. L'impression de feuilles releve des memes techniques que celles que nous avons 
etudiees pour la methode Print. 

Lorsque la methode PrintForm est appliquee a une feuille, Visual Basic lance immedia- 
tement l'impression. La feuille comme I'imprimante doivent done etre pretes a ce 
moment. Cette section vous explique comment obtenir les meilleurs resultats avec 
PrintForm. La methode PrintForm ne se prete pas a tous les types d'impression Visual 
Basic, mais suffit amplement pour l'impression de feuilles. 

Le plus grand avantage de PrintForm, comme des autres fonctionnalites 
d'impression de Visual Basic, est que la sortie exploite les objets imprimante de 
Windows. Vous n'avez done pas a vous soucier d'eventuelles specificites liees a 
la marque ou au modele du peripherique . 

Voici le format de la methode PrintForm : 

[ frmFormName . ] PrintForm 

frmFormName est optionnel. Si aucun nom de feuille n'est specifie, Visual Basic applique 
automatiquement PrintForm a la feuille courante. 
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Pour imprimer, par exemple, une feuille nominee f rmAccPayable, on insererait dans la 
procedure evenementielle ou le module approprie 1' instruction suivante : 

f rmAccPayable. PrintForm ' Imprime la feuille f rmAccPayable. 

Si f rmAccPayable se trouve etre la feuille courante (c'est-a-dire la feuille qui a le focus 
et dont la barre de titre est en surbrillance) , le nom de la feuille source peut etre omis : 

PrintForm 1 Imprime la feuille f rmAccPayable. 

Me se refere toujours a la feuille courante. Ainsi l'instruction suivante est-elle equiva- 
lente aux deux precedentes : 

Me. PrintForm ' Imprime la feuille f rmAccPayable. 

Comme nous I'avons vu au Chapitre 11, la methode Print envoie du texte 
directement a la feuille. Vous pouvez done envoy er la sortie vers la feuille 
avec Print, pour ensuite envoyer la feuille vers I'imprimer avec PrintForm. 
Gardez cependant a 1' esprit que tous les contrdles de la feuille apparaitront 
egalement sur la sortie imprimee. 



Inconvenients de PrintForm 

C'est la simplicte de PrintForm qui fait sa force. PrintForm est certainement la technique 
d'impression la plus utile et la plus simple que Visual Basic puisse offrir. Malheureu- 
sement, cette simplicite coute quelques desavantages, dont vous devez etre avise. 

Quelle que soit la resolution reelle de 1'imprimante, PrintForm imprime toujours la 
feuille selon la resolution d'ecran courante. Ce qui signifie, en general, un maximum 
de 96 dpi {dots per inch, points par pouce). La resolution des imprimantes atteignant 
en moyenne les 600 dpi, le rendu de la feuille imprimee sera nettement inferieur au 
rendu a l'ecran. En effet, 96 dpi est une resolution tout a fait honnete pour un ecran, 
mais tout a fait insuffisante pour une sortie papier de qualite. 

Avant d' imprimer une feuille contenant des controles de type graphique ou tout autre 
element visuel, vous devez vous assurer que la propriete AutoRedraw de la feuille est 
definie comme True. La valeur par defaut de AutoRedraw est False, ce qui implique que 
Print imprimera les controles graphiques directement au premier-plan. Lorsque Auto- 
Redraw est True, l'image reste en arriere-plan pendant que Print fait son travail, de sorte 
qu'aucun element ne se superpose a d'autres. Definie comme False, AutoRedraw peut 
permettre d'imprimer les images d' arriere-plan en premier. Vous pouvez ensuite imprimer 
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le texte par-dessus, mais il faudra redefinir AutoRedraw comme True juste avant de 
lancer l'impression, afin que l'ensemble de la feuille sorte correctement. 

Attention : pour que PrintForm puisse imprimer les objets places sur la feuille au 
moment de la creation (ainsi que les valeurs de controles initialisers lors de l'execution, 
telles que le contenu des labels et autres zones de texte), AutoRedraw doit imperative - 
ment etre False. Ainsi, si vous ajoutez des elements graphiques en cours d'execution, 
pour ensuite imprimer la feuille avec PrintForm, vous devrez definir comme True la 
propriete AutoRedraw de la feuille avant de proceder aux ajouts. Autrement, les elements 
integres lors de l'execution n'apparaitraient pas sur la feuille imprimee. 



L'impression peut etre le fleau du programmeur Windows. Pour etre certain 
des resultats, ilfaut tester V application sur le plus grand nombre de modeles 
d'imprimantes possible. II est interessant, a cet effet, de distribuer votre 
programme a plusieurs utilisateurs-testeurs disposant d'imprimantes differen- 
tes. En fait, on ne peut jamais etre certain du resultat pour toutes les sortes 
d'imprimantes, mais on obtient ainsi un echantillon significatif. La validite de 
tels tests depend evidemment de ce que les pilotes de I'utilisateur soient 
correctement installes, et de ce que cet utilisateur selectionne I'imprimante 
adequate. 

Ilfaut toutefois noter que le role de votre application, quant a la qualite des 
impressions, est toujours limite. En effet, c'est un peu la le "domaine 
reserve" de Vinterface d'impression Windows. En se placant ainsi entre 
votre application et I'imprimante, Windows vous epargne d'ailleurs pas mal 
de codage. Les programmeurs MS-DOS, eux, devaient tenir compte de tous 
les types d'imprimantes existants — tdche sisypheenne, puisque de nouveaux 
modeles devaient forcement sortir entre le moment ou le programme etait 
ecrit et celui de sa distribution. 



Dans le Listing 13.5, on envoie un message textuel vers une feuille, puis cette feuille 
vers 1'imprimante. 



Listing 13.5 : Affichage d'un message sur la feuille, puis impression de la feuille 



Dim blnAutoRedraw As Boolean 



Contiendra la valeur de AutoRedraw. 



frmBlank. Print "Repartition du materiel" 
frmBlank. Print ' Blank line 



frmBlank. Print 
frmBlank. Print 
frmBlank. Print 
frmBlank. Print 
frmBlank. Print 
10: frmBlank. Print 



Zone"; Tab(20); "Machines" 

» ; Tab(20); " " 

Nord"; Tab(20); "Fraises" 
Sud"; Tab(20); "Presses" 
Est"; Tab(20); "Broyeurs" 
Quest"; Tab(20); "Giboliniseurs" 
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Listing 13.5 : Affichage d'un message sur la feuille, puis impression de la feuille 

( suite) 



11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



1 Enregistre la valeur de AutoRedraw. 

blnAutoRedraw = frmBlank. AutoRedraw 

1 Imprime la feuille. 

frmBlank. AutoRedraw = True 
frmBlank. PrintForm 

I 

' Restaure AutoRedraw. 

frmBlank. AutoRedraw = blnAutoRedraw 



Dans ce code, on enregsitre la valeur de AutoRedraw avant d'appliquer la methode 
PrintForm. Dans un cas pareil, il est plus sur de definir AutoRedraw comme True lors de 
la creation (en supposant que la feuille ne recevra pas d'image ailleurs dans le 
programme). Mais vous pouvez recourir a cette sauvegarde de AutoRedraw avant 
d'imprimer une feuille. 



— 1 Creez une procedure de module standard qui recoit une feuille comme argu- 
ment (les feuilles peuvent etre passees au meme titre que les variables), 
stocke la valeur de AutoRedraw, puis imprime la feuille a I'aide de Print - 
Form. Cette procedure generaliste vous epargnera de regler AutoRedraw 
pour chaque sortie PrintForm. 



Avant toute impression, il convient de verifier l'absence d'erreurs. L'imprimante pourrait 
etre hors tension, non connectee ou ne plus avoir de papier. Le Listing 13.6 exploite a cet 
effet 1' instruction On Error Goto. 



Listing 13.6 : On Error Goto permet de gerer les erreurs d 'impression 

1: Private Sub cmdPrintForm_Click () 
2: Dim intBtnClicked As Integer 

3: On Error Goto ErrHandler ' Definit le gestionnaire d'erreur. 
4: frmAccPayable. PrintForm ' Imprime la feuille. 
5: Exit Sub 

6: ErrHandler: 

7: intBtnClicked = MsgBox( "L'imprimante a un probleme", vbExclamation, 

"Erreur d 1 impression" ) 

8: End Sub 
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Vous pouvez imprimer unefeuille sans la barre de titre, les icones de contrdles 
et autres boutons Windows. II suffit pour cela de definir comme False les 
proprietes correspondantes . 



Avertir I'utilisateur 



II convient, avant de lancer une impression, d'en avertir I'utilisateur. II a ainsi le temps 
d'allumer 1'imprimante ou de charger le papier. Une simple boite de dialogue lui 
permettra d'indiquer que I'imprimante est prete. D'inopportuns messages d'erreurs 
pourraient autrement apparaitre, qui donneraient de votre application une image negative. 

Le Listing 13.7 contient une procedure evenementielle qui peut etre adaptee aux 
besoins de l'application particuliere. Cette procedure affiche la boite de message repro- 
duce en Figure 13.3. Cette boite de message ne dit rien de tres interessant, mais laisse a 
I'utilisateur le temps de preparer I'imprimante avant le lancement de l'impression. 

Listing 13.7 : Affiche une boite de message avant de lancer l'impression 



Public Function PrReadyO As Boolean 
' Laisse a I'utilisateur le temps de se preparer. 
Dim intlsReady As Integer 

1 L 1 utilisateur repond a la boite de message 
1 pour indiquer qu'il est pret. 

intlsReady = MsgBox( "Veuillez preparer I'imprimante", vbOKCancel, 
"Impression" ) 



9: If (intlsReady = vbCancel) Then 
10: PrReady = False 
11: Else 

12: PrReady = True 
13: End If 
14: End Function 

Notez que la fonction declaree doit renvoyer une valeur de type Boolean. L'appel de 
cette fonction peut done etre place partout oil un booleen valide est susceptible d'etre 
recu. Si I'utilisateur clique sur le bouton OK, la ligne 12 renvoie la valeur True a la 
fonction. Si, au contraire, I'utilisateur clique sur le bouton Annuler, la ligne 10 renvoie 
la valeur False. Le code interprete ces valeurs pour determiner si l'impression doit avoir 
lieu ou non. 

Le Listing 13.8 contient une procedure evenementielle de bouton de commande qui 
peut servir a appeler la fonction PrReady ( ) . 
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Figure 13.3 MW . 

La boite de message 

permet a V Utilisateur Veuillez preparer I'imprimante 

d'indiquer qu'il est pret. 



Veuillez 

OS 



OK i Annuler 



Listing 13.8 : Interroge la valeur de PrReadyO avant d'imprimer 



Private Sub cmdPrint_Click( ) 

' Imprime seulement si 1' utilisateur 

' indique qu'il est pret. 

If PrReadyO Then 
1 Appelle ReportPrint 

End If 
End Sub 



La ligne 4 lance l'impression si et seulement si l'utilisateur repond a la fonction 
PrReadyO en cliquant sur OK. 



En resume 

Vous etes maintenant capable d'envoyer une sortie vers I'imprimante. La gestion de 
l'impression est l'un des aspect les plus fastidieux de Visual Basic, car aucun controle 
specifique n'est disponible pour assurer cette tache. Pour obtenir des resultats satis- 
faisants, vous devez maitriser les diverses methodes de l'objet Printer. Cette technique 
a cependant l'avantage de vous laisser parametrer exactement la sortie. 

Les methodes de Printer s'appliquent egalement aux objets Form. Vous pouvez ainsi 
envoyer du texte, enrichi de divers attributs de police, vers la feuille comme vers 
I'imprimante. Pour l'impression de feuilles, la methode PrintForm est toutefois la plus 
indiquee. 

Dans le chapitre suivant, vous decouvrirez les fonctionnalites graphiques et multimedias 
de Visual Basic. 
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Questions-reponses 

Q Que se passe-t-il quand deux applications envoient une sortie vers I'imprimante 
en meme temps ? 

R Heureusement, Windows se charge de gerer la priorite des sorties. Le PC ne peut 
faire reellement deux choses a la fois. Meme si deux applications semblent envoyer 
simultanement deux sorties vers l'imprimante, l'une passe toujours avant l'autre. 
Windows place toutes les taches d'impression dans la file d'attente et precede selon 
l'ordre d'envoi de ces taches. 

Q Ne vaut-il pas mieux envoyer d'abord toutes les sorties vers la feuille, puis cette 
feuille vers l'imprimante ? 

R Les feuilles s'impriment a la resolution de l'ecran, et non a celle de rimprimante. La 
sortie sera de bien meilleure qualite si elle est envoyee directement a rimprimante. 
En outre, les elements devant apparaitre sur la sortie imprimee ne doivent pas force- 
ment apparaitre sur la feuille. Ainsi, une application qui imprime des cheques sur du 
papier special n'aura aucun besoin de passer par une feuille pour chaque cheque. Un 
cheque, soit dit en passant, n'est pour le programme qu'une page comme une autre, 
et necessite seulement que vous positionniez la sortie conformement aux differents 
"champs" du cheque papier. 



Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris. II convient de compren- 
dre les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trouve- 
rez ces reponses a l'Annexe A. 

Quiz 

1. Comment le programme peut-il determiner le nombre d'imprimantes installees sur 
le systeme ? 

2. L' instruction suivante declare deux variables. Vrai ou faux ? 

Dim intl As Integer, prnP As Printer 

3. Quelle propriete permet de specifier l'echelle des proprietes de l'objet Printer ? 
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4. Comment force-t-on le programme a imprimer sur une nouvelle page ? 

5. Quelle instruction If speciale permet de verifier le type de donnees d'un objet ? 

6. Aux procedures ne peuvent etre passees que des variables. Vrai ou faux ? 

7. KillDoc peut annuler n'importe quelle sortie imprimante, incluant celles qui ont ete 
envoyees par Printer. Print et PrintForm. Vrai ou faux ? 

8 . Quelle reference abregee renvoie a la feuille courante ? 

9. A quelle resolution la methode PrintForm imprime-t-elle generalement ? 

10. Quelle valeur faut-il affecter a la propriete AutoRedraw avant d'imprimer une 
feuille ? 

Exercices 

1 . Ecrivez une ligne de code qui imprime votre nom a la colonne 32. 

2. Chasse au bogue. Yolande n' arrive pas a imprimer convenablement ses rapports. 
Elle a appris, il y a des annees, le langage BASIC et vient de se mettre a la program- 
mation Windows en Visual Basic. A l'epoque, Yolande partait du principe qu'une 
page normale de texte — en environnement texte seul — contient exactement 66 
lignes. Consequemment, elle incremente une variable compteur chaque fois qu'elle 
imprime une ligne. Lorsque le compteur atteint la valeur 66, on est cense etre a la 
premiere ligne de la page suivante. Maintenant que Yolande est passee a Windows, 
sa logique ne fonctionne plus. Pourquoi ses rapports ne contiennent-ils plus exacte- 
ment 66 lignes par page ? 

3. Modifiez le Listing 13.2, qui recherche une imprimante couleur, en ajoutant une 
variable Boolean qui prendra la valeur True si une imprimante couleur est 
decouverte. Si aucune imprimante couleur n'est trouvee, 1'imprimante par defaut 
reste la meme. La nouvelle variable booleenne indiquera au code subsequent si la 
boucle a ou non decouvert une imprimante couleur. Faites du code une fonction qui 
renvoie une valeur Boolean. 
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Image et multimedia 



Cercles, ovales, carres... Ce n'est pas un retour a l'ecole maternelle que vous propose ce 
chapitre, mais une initiation aux fonctionnalites graphiques de Visual Basic. Vous 
decouvrirez egalement ce qui distingue le controle Image du controle PictureBox. Enfin, 
vous apprendrez a creer des applications vivantes en integrant son et video. 

Les ordinateurs d'aujourd'hui sont foncierement multimedias. Le multimedia est impli- 
que dans tous les types de programmes, des progiciels aux applications familiales, en 
passant par les logiciels educatifs. Plusieurs societes proposent des outils multimedias 
supplementaires pour Visual Basic. Ces produits sont utiles au programmeur qui deve- 
loppe des applications hautement multimedias. Pour les autres, Visual Basic dispose 
d'un assortiment de controles multimedias internes tout a fait satisfaisant. Ce chapitre 
vous propose d'en decouvrir l'essentiel. 

Voici ce que nous etudierons aujourd'hui : 

les controles Image et PictureBox ; 

• pourquoi le controle PictureBox est plus flexible que le controle Image ; 

• les methodes de dessin ; 

comment dessiner points, lignes, carres, cercles et ellipses ; 
le controle multimedia et les peripheriques qu'il supporte ; 

• comment obtenir le statut d'un peripherique multimedia. 
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Les controles Image et PictureBox 

Les controles Image et PictureBox ont essentiellement le meme role. lis permettent de 
placer des images sur la feuille, a partir de fichiers graphiques. lis se distinguent seule- 
ment en ceci : 

• Le controle PictureBox, plus flexible, supporte des methodes et proprietes supple- 
mentaires. 

• Le controle Image est plus efficace pour les applications executees sur des machines 
lentes. 

Vu la rapidite des ordinateurs modernes, vous n'observerez qu'exception- 
nellement la superiorite de PictureBox sur Image. En fait, a moins que vous 
n'ayez a programmer pour des machines un peu fatiguees (comme en 
rencontre encore dans beaucoup d'entreprises, sans parler des administra- 
tions), le controle PictureBox est toujours le plus indique. 

Les controles Image et PictureBox supportent tous deux les formats graphiques suivants : 
l fichiers bitmaps, d'extension .BMP ; 

• fichiers curseurs, d'extension .CUR ; 

• fichiers GIF, d'extension .GIF extension ; 

• fichiers icones, d'extension .ICO ; 

• fichiers JPEG, d'extension JPEG ou JPG ; 

• metafichiers, d'extension .WMF ou .EMF ; 

• fichiers d'extension .RLE. 

Des fichiers relevant de plusieurs de ces formats apparaissent dans le dossier Graphics 
de Visual Basic que vous avez peut-etre installe. 

La propriete la plus importante, que se partagent les controles Image et PictureBox, est 
Picture qui contient l'image. Lors de la creation, vous pouvez cliquer sur la propriete 
Picture de la fenetre Proprietes pour choisir dans la boite de dialogue Charger une 
image un fichier portant l'une des extensions supportees. Pour afhcher une image lors 
de l'execution, vous devez, a l'aide de la fonction LoadPicture( ) , associer le fichier 
graphique a la propriete Picture du controle concerne. 

L'instruction suivante affecte une image a la propriete Picture d'un controle PictureBox : 
picPortrait. Picture = LoadPicture( "c: \Photos\Josette.wmf " ) 
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On ne peut affecter directement le chemin d'acces du fichier a la propriete Picture. 
C'est pourquoi la fonction LoadPicture ( ) est la plus importante pour ce qui a trait aux 
images. 

Voici le format complet de la fonction LoadPicture ( ) : 

LoadPicture( [GraphicFileName] [,varSize] [ ,varColorDepth] , [varX, varY] ) 

Le premier argument, soit le nom du fichier, est optionnel. Si vous appelez la fonction 
LoadPicture ( ) sans specifier de nom de fichier, Visual Basic efface l'image du controle. 

Le Tableau 14.1 presente les constantes nominees qui peuvent etre employees pour 
l'argument varSize, si du moins vous le specifiez. Cet argument definit la taille des icones 
et curseurs. varSize est important, car les utilisateurs se servent souvent des parametres 
d'affichage du Panneau de configuration pour fixer la taille des icones et curseurs. L'argu- 
ment varSize permet a votre programme d'exploiter ces valeurs systeme. 



Tableau 14.1 : Constantes nominees pour l'argument varSize de la fonction 
LoadPictureQ 



Constante nominee 


Valeur 


Description 


vbLPSmall 


0 


Petite icdne systeme (varie selon la resolution d'ecran). 


vbLPLarge 


1 


Grande icone systeme (varie selon la resolution d'ecran). 


vbLPSmallShell 


2 


Determine par les parametres d'affichage du Panneau de 
configuration. L'onglet Apparence presente les elements 
qui seront affectees par cette valeur varSize. 


vbLPLargeShell 


3 


Determine par les parametres d'affichage du Panneau de 
configuration. L'onglet Apparence presente les elements 
qui seront affectees par cette valeur varSize. 


vbLPCustom 


4 


Les arguments varX et varY definissent la taille. 



Le Tableau 14.2 presente les valeurs que peut prendre l'argument optionnel varColor- 
Depth (profondeur de couleur pour les icones et les curseurs). 

Les arguments varX et varY sont requis si vous utilisez les valeurs de taille vbLPS- 
mallShell ou vbLPLargeShell. 

Sur la feuille, les controles Image et PictureBox agissent differemment, meme si vous 
leur attribuez la meme taille et leur affectez le meme fichier graphique. Pour le controle 
Image, vous devez definir la propriete Stretch comme True avant de pouvoir regler les 
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Tableau 14.2 : Constantes nominees pour l'argument varColorDepth 
de la fonction LoadPicture() 



Named Constant 


Value 


Description 


vbLPDef ault 


0 


Meilleure adequation 


vbLPMonochrome 


1 


2 couleurs 


vbLPVGAColor 


2 


16 couleurs 


vbLPColor 


3 


256 couleurs 



proprietes Width et Height. Autrement, la taille du controle s'ajusterait a celle de 
l'image, et les proprietes Width et Height se modifieraient automatiquement. Lorsque 
vous placez un controle PictureBox sur la feuille, c'est l'image qui s'ajuste auto- 
matiquement aux mesures du controle. Ainsi, le controle PictureBox changera toujours 
la taille de son image pour repondre a vos specifications, alors que le controle Image 
modifie ces memes valeurs tant que sa propriete Stretch n'est pas True. 



La fonction LoadPicture ( ) ne s' applique pas qu'aux controles Image et 
PictureBox, mais egalement aux feuilles . Au lieu d'une couleur, vous pouvez. 
ainsi affecter a votre feuille une image d'arriere-plan. C'est ce que fait 
V instruction suivante : 

frmCheck. Picture = LoadPicture( "Check. wmf ") 

Vous devez specifier le chemin d'acces complet du fichier graphique affecte. 
Ce qui peut donner des instructions assez longues, par exemple : 

frmCheck. Picture = LoadPicture( "d: \Program Files\Microsoft Visual 
St udio\ Common \Graphics\metaf ile\ business \Check. wmf " ) 

La Figure 14.1 montre la feuille resultante, avec labels et boutons de 
commande. L'image occupe tout Varriere-plan. (Pour affecter une image 
d'arriere-plan lors de la creation, utilisez la propriete Picture.) 



Les controles de dessin 

La Boite a outils comprend deux outils de dessin : 

• Le controle Line. Trace une droite entre les deux points que vous specifiez. 

• Le controle Shape. Trace la forme specifiee dans les valeurs de proprietes. 
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Figure 14.1 

Une image peut etre 
affectee a Varriere- 
plan de lafeuille. 
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Le controle Line 

Le controle Line est utile a plusieurs egards, meme dans une application qui n'exploite 
pas d'images. Les lignes permettent notamment de mettre en valeur les points impor- 
tants d'une feuille. La Figure 14.2 illustre l'emploi de lignes pour une feuille qui s'affi- 
che a chaque demarrage d'une application. 



Figure 14.2 

Les lignes aident 
a mettre en relief 
les informations 
de lafeuille. 




Comptabilite generale 




Gibolin SA RL 



Lorsque vous double-cliquez sur le controle Line, Visual Basic affiche sur la feuille une 
ligne presentant a chaque extremite des poignees de dimensionnement. Vous pouvez 
faire glisser ces poignees pour modifier la longueur de la ligne, et les deplacer a la 
verticale pour modifier Tangle. A mesure que vous modifiez la taille et les coordonnees 
de la ligne, Visual Basic actualise les valeurs de proprietes correspondantes. 
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Voici les proprietes importantes pour le controle Line : 

• BonderColor definit la couleur de la ligne. 

• BorderStyle definit le format de la ligne, a l'aide des valeurs presentees au 
Tableau 14.3 et illustrees par la Figure 14.3. 



Figure 14.3 

La propriete 
BorderStyle 
determine V aspect 
de la ligne. 




BorderWidth definit l'epaisseur (en points) de la ligne. 

• X1 , Y1 , X2 et Y2 determinent les coordonnees des deux extremites de la ligne. 
A chaque point de la feuille correspondent deux valeurs, et la ligne est definie par 
deux points (les points entre lesquels elle apparait) . 




Pour que BorderStyle puisse s'appliquer a la ligne, BorderWidth doit 
avoir la valeur 1 . 



Le controle Shape 

Alors que le controle Line ne trace que des lignes simples , le controle Shape permet de 
dessiner des formes diverses. C'est la propriete Shape qui definit cette forme. En voici 
les valeurs possibles : 

• 0-Rectangle dessine un rectangle. 

• 1 -Square dessine un carre. 
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3- Circle dessine un cercle. 

4- Rounded Rectangle dessine un rectangle aux coins arrondis. 

5- Rounded Square dessine un carre aux coins arrondis. 

Tableau 14.3 : Valeurs de la propriete BorderStyle du controle Line 



Constante nominee Description 



0-Transparent 


L'arriere-plan de la feuille apparait a travers la ligne. 


1 -Solid 


Ligne pleine. 


2-Dash 


Ligne divisee en petits tirets. 


3 -Dot 


Ligne pointillee. 


4-Dash-Dot 


Chaque tiret est suivi d'un point. 


5 - Dash - Dot - Dot Chaque tiret est suivi de deux points. 


Le Tableau 14.4 presente les autres proprietes susceptibles d'affecter les differentes 


formes tracees avec le controle Shape. 


Tableau 14.4 : 


Proprietes affectant les formes dessinees avec le controle Shape 


Propriete 


Description 


BackStyle 


Si la valeur est True, la forme sera transparente et laissera voir l'arriere-plan 




de la feuille. 


BorderColor 


Definit la couleur de la bordure. 


BorderStyle 


Definit le style de la bordure (valeurs du Tableau 14.3). 


BorderWidth 


Definit l'epaisseur de la bordure (en twips). 


FillColor 


Definit la couleur du motif de remplissage (specifie par la propriete 




FillStyle). 


FillStyle 


Definit le motif de remplissage. La Figure 14.4 illustre les huit motifs 




disponibles. 


Height 


Specifie le point le plus haut de la forme. 


Width 


Specifie l'axe le plus large de la forme. 
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Figure 14.4 

Les huit motifs 
disponibles pour 
Fill Style. 




Diagonal Diagonal 



Pour illustrer le fonctionnement du controle Shape et de ses diverses proprietes, rien de 
mieux qu'une petite application. La Figure 14.5 montre le resultat de 1' application que 
vous allez creer. II s'agit de selectionner, dans deux zones de liste, une forme et un motif 
de remplissage. La forme affichee en haut de la feuille se met a jour pour refleter les choix 
effectues. 



m Forml 



Fichier 



Figure 14.5 

Selectionnez une 
forme et un motif, 
et voyez le resultat. 




> 442 



Chapitre 14 : Image et multimedia 



Suivez ces etapes : 

1. Creez une nouvelle application. 

2. Placez sur la feuille les controles indiques au Tableau 14.5. 

3. Ajoutez le code du Listing 14.1 pour initialiser a Texecution les deux zones de liste. 

4. Lancez l'application et essayez diverses combinaisons de formes et de motifs a 
l'aide des zones de liste. 

Tableau 14.5 : Controles et proprietes de la feuille 



Controle 


Propriete 


Valeur 


Feuille 


Name 


f rmShape 


Feuille 


Height 


7005 


Feuille 


Left 


105 


Feuille 


Top 


105 


Feuille 


Width 


7965 


Option de menu 1 


Name 


mnuFile 


Option de menu 1 


Caption 


SFichier 


Option de menu 2 


Name 


mnuFileExit (un niveau seulement) 


Option de menu 2 


Caption 


&Quitter 


Shape 


Name 


shpSample 


Shape 


Height 


2025 


Shape 


Left 


1710 


Shape 


Top 


720 


Shape 


Width 


4560 


Label 1 


Name 


lblShape 


Label 1 


Caption 


Forme 


Label 1 


Height 


420 


Label 1 


Left 


2160 
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Tableau 14.5 : Controles et proprietes de la feuille (suite) 



Controle 


Propriete 


Valeur 


Label 1 


Top 


3390 


Label 1 


Width 


1215 


Label 2 


Name 


lblPattern 


Label 2 


Caption 


Motif 


Label 2 


Height 


420 


Label 2 


Left 


5040 


Label 2 


Top 


3360 


Label 2 


Width 


1215 


List box 1 


Name 


IstShape 


Zone de liste 1 


Height 


1425 


Zone de liste 1 


Left 


1560 


Zone de liste 1 


Top 


3960 


Zone de liste 1 


Width 


2010 


Zone de liste 2 


Name 


IstPattern 


Zone de liste 2 


Height 


1425 


Zone de liste 2 


Left 


4680 


Zone de liste 2 


Top 


3960 


Zone de liste 2 


Width 


2010 



Listing 14.1 : Initialise les zones de liste et repond aux selections de l'utilisateur 



1 


Private Sub Form_Load() 




2 


' Initialise la liste 


deroulante Forme. 


3 


IstShape. Addltem "0 - 


Rectangle" 


4 


IstShape. Addltem "1 - 


Square" 


5 


IstShape. Addltem "2 - 


Oval" 


6 


IstShape. Addltem "3 - 


Circle" 


7 


IstShape. Addltem "4 - 


Rounded Rectangle 
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8: lstShape.Addltem "5 - Rounded Square" 
9: 

10: 1 Initialise la liste deroulante Motif. 

11: IstPattern.Addltem "0 - Solid" 

12: IstPattern.Addltem "1 - Transparent" 

13: IstPattern.Addltem "2 - Horizontal Line" 

14: IstPattern.Addltem "3 - Vertical Line" 

15: IstPattern.Addltem "4 - Upward Diagonal" 

16: IstPattern.Addltem "5 - Downward Diagonal" 

17: IstPattern.Addltem "6 - Cross" 

18: IstPattern.Addltem "7 - Diagonal Cross" 

19: 

20: ' Definit la premiere valeur de chaque liste comme valeur par defaut. 

21: IstShape.Listlndex = 0 

22: IstPattern.Listlndex = 0 
23: 

24: End Sub 
25: 

26: Private Sub lstPattern_Click( ) 

27: ' Change le motif en fonction de la selection. 

28: shpSample.FillStyle = IstPattern.Listlndex 

29: End Sub 

30: 

31: Private Sub lstShape_Click( ) 

32: ' Change la forme en fonction de la selection. 

33: shpSample. Shape = IstShape.Listlndex 

34: End Sub 

35: 

36: Private Sub mnuFileExit_Click( ) 

37: End 

38: End Sub 

Ni le contrdle Line ni le controle Shape ne supportent les procedures evene- 
mentielles. 



Les methodes de dessin 

Les fonctionnalites de dessin de Visual Basic ne se limitent naturellement pas aux 
controles Line et Shape. II est possible de manipuler individuellement les pixels de la 
feuille pour dessiner une image point par point. La methode PSet qui s'applique aux 
feuilles, permet de dessiner des lignes, des cadres et des cercles sans l'aide des controles. 
Les lignes et formes dessinees en cours d'execution par les controles Line et Shape ne 
donnent pas de tres bons resultats. Les methodes de dessin offrent beaucoup plus de 
precision. 
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Les methodes de dessin peuvent etre appliquees aux controles de la feuille 
aussi bien qu'a la feuille elle-meme. 



La methode PSet affiche ou masque individuellement les pixels de la feuille. Voici le 
format de PSet : 

f rmName . PSet [Step] (intX, intY) [color] 

A moins que Ton ne specifie une autre echelle pour les proprietes ScaleX et ScaleY, 
1' intersection ligne/colonne 0, 0 (soit intx et intY) correspond au premier pixel du coin 
superieur gauche de la feuille. L' instruction suivante provoque raffichage du pixel situe 
a 100 pixels a droite et 200 pixels en bas de l'origine (coin superieur gauche) : 

frmDraw.PSet (100, 200) 1 Affiche un pixel. 

Le pixel affiche prend par defaut la couleur specifiee de la propriete ForeColor de la 
feuille (ou du controle PictureBox). On peut definir une nouvelle couleur a l'aide d'une 
valeur hexadecimale, ou de l'une de ces constantes nominees vbBlack, vbRed, vbGreen, 
vbYellow, vbBlue, vbMagenta, vbCyan et vbWhite. 

L' instruction suivante masque le pixel situe a la position (100, 200) en lui affectant la 
couleur employee pour l'arriere-plan de la feuille : 

frmDraw.PSet (100, 200) f rmDraw.BackColor 1 Masque un pixel. 

Si a cette methode PSet succedait la suivante, un autre pixel apparaitrait a la position 
(300, 350) : 

frmDraw.PSet (300, 350) 1 Affiche un pixel 

L' option Step de la methode PSet change la position des pixels subsequents. Apres le 
premier appel de la methode PSet, l'option Step rend relatives les valeurs intx et intY 
de la prochaine methode PSet. Ainsi, si Ton avait ajoute a la methode PSet precedente 
l'option Step, le pixel serait apparu 300 pixels a droite et 350 pixels en bas du premier 
pixel dessine. C'est justement ce que fait 1'instruction suivante : 

frmDraw.PSet Step (300, 350) 1 Position relative. 

On peut egalement tracer des lignes en incluant PSet dans une boucle : 

For intX = 1 to 100 

frmDraw.PSet (intx, 250) 
Next intX 
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Ne specifiez jamais de coordonnees qui depassent les limites reelles de la 
feuille. Cela genererait une erreur d' execution. 



Plutot que de tracer une ligne pixel par pixel, ou a l'aide d'une boucle, utilisez la 
methode Line. Elle est faite pour 9a. En voici le format : 

frmName . Line [Step] (intX1 , intY1) - [Step] (intX2, intY2) , [Color] [B][F] 

Les deux paires de coordonnees definissent les pixels de debut et de fin de la ligne. 
L' option Step transforme les coordonnees qu'elle precede en coordonnees relatives, 
c'est-a-dire relatives au dernier point dessine. 

La methode suivante trace une ligne du pixel 100, 1 00 au pixel 150, 150: 

frmDraw.Line (100, 100) - (150, 150) 

Comme dans la methode PSet, la valeur optionnelle Color permet de specifier une 
couleur, a l'aide d'une valeur hexadecimale ou d'une constante nominee. Si vous ne 
specifiez pas de couleur, Visual Basic emploie pour la ligne la couleur d'arriere-plan de 
la feuille. 

L' option B permet de dessiner un cadre avec la methode Line : 

frmDraw.Line (100, 100) - (150, 150), , B 

Les deux virgules doivent imperativement etre incluses, meme si Color n'est pas specifie. 
Cela afin que Visual Basic reconnaisse B comme l'option "cadre". Les deux paires de 
coordonnees specifient la position des coins superieur gauche et inferieur droit du cadre. 

Les paires de coordonnees definissent les extremites de la lignes et les coins 
opposes du cadre. Les lignes peuvent etre dirigees vers le haut comme vers 
le bas ; la premiere paire de coordonnees peut designer un point situe en bas 
ou a droite de la seconde paire de coordonnees . 

Si l'option F est specifiee, le cadre sera rempli de la meme couleur que celle qui a ete 
definie pour le contour : 

frmForm.Line (35, 40) - (150, 175), vbGreen, BF ' Cadre rempli de vert. 

Si vous dessinez un cadre plus grand que la feuille, Visual Basic le tronque et affiche ce 
qui est affichable. Meme si vous agrandissez la feuille, le cadre ne sera pas affiche en 
entier. II faut le redessiner. 
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Le Listing 14.2 contient une procedure evenementielle de bouton de commande. Cette 
procedure dessine sur la feuille une serie de cadres, depuis le coin superieur droit 
jusqu'au coin inferieur gauche. La Figure 14.6 montre le resultat. 



Listing 14.2 : Dessin d'un motif a 1' aide de la methode Line, option "cadre" 

1: Private Sub cmdBoxes_Click( ) 

2: Dim intStartX As Integer 

3: Dim intStartY As Integer 

4: Dim intLastX As Integer 

5: Dim intLastY As Integer 

6: Dim intCtr As Integer 
7: 

8: intStartX = 0 

9: intStartY = 0 

10: intLastX = 1000 

11 : intLastY = 800 
12: 

13: For intCtr = 1 To 20 

14: frmBoxes.Line (intStartX, intStartY)-(intLastX, intLastY), , B 
15: 

16: 1 prepare la position des prochains cadres. 

17: intStartX = intStartX + 400 

18: intStartY = intStartY + 400 

19: intLastX = intLastX + 400 

20: intLastY = intLastY + 400 

21 : Next intCtr 

22: 

23: End Sub 



Figure 14.6 

La methode Line 
permet aussi 
de dessiner 
des cadres. 



ki Form I 
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II existe egalement des methodes pour dessiner des formes courbes. Voici le format de la 
methode Circle, qui permet de dessiner des cercles et des ellipses : 

frmDraw. Circle [Step] (intX, intY) , sngRadius , [Color], , , , 
sngAspect 

Une ellipse est un cercle allonge fee que Von appelle couramment, et a tort, 
un ovale). 



Dans le format indique ci-haut, les quatre virgules correspondent a des 
arguments de Circle que nous ne presenterons pas ici. Ces virgules doivent 
cependant etre incluses si vous specifiez V argument sngAspect. 

Un cercle n'ayant pas d'extremites, les coordonnees intx et intY designent le centre. 
sngRadius specifie le rayon (en pixels, sauf valeur contraire de ScaleMode). Le mot cle 
optionnel Step determine si les coordonnees du centre sont relatives a un autre objet 
dessine. 

L' instruction suivante dessine un cercle dont le centre se situe a 300 pixels du bord gauche 
de la feuille et a 200 pixels du bord superieur, et dont le rayon mesure 100 pixels : 

frmDraw. Circle (300, 200), 100 

Tant qu'une autre valeur Color n'est pas specifiee, la methode Circle emploie la 
couleur d'arriere-plan de la feuille. 

Pour dessiner une ellipse, il faut specifier la valeur de l'argument sngAspect, qui 
determine le ratio d' aspect. En fonction de la valeur, le cercle sera etire selon l'axe hori- 
zontal X (valeur sngAspect inferieure a 1), ou dans l'axe vertical Y (valeur sngAspect 
superieure a 1). Une valeur sngAspect de 1 donne un cercle parfait. 

Le ratio d'aspect definit la forme de I'ellipse. II s'agit en fait d'une mesure 
hauteur/largeur qui partirait du centre. Le ratio d'aspect multiplie le rayon 
dans chaque direction. Un ratio d'aspect de 4, par exemple, donne une 
ellipse quatre fois plus haute que large ; un ratio d'aspect de 4/10/2 (ou 
.2) donne une ellipse cinq fois plus large que haute. 

L'instruction suivante dessine sur la feuille I'ellipse reproduite en Figure 14.7 : 



B 



frmDraw. Circle (1000, 1250), 400, , , , (4 / 10 / 2) 
frmDraw. Circle (1750, 1250), 400, , , , 4 
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Figure 14.7 Ratio d'aspect de 0,2 Ratio d'aspect de 4 

Le ratio d'aspect I I 



determine la forme 
de V ellipse. 




Teji 



Le controle multimedia 

Malgre sa puissance, le controle multimedia est tres simple d'utilisation. II necessite un 
minimum de code. Le controle multimedia permet d'incorporer des objets corres- 
pondant aux peripherique multimedias simples suivants : 

lecteur de CD audio (CDAudio) ; 

lecteur de DAT (DAT) ; 

video numerique (DigitalVideo) ; 

• overlay (Overlay) ; 

• scanner (Scanner) ; 
magnetoscope (Vcr) ; 

• lecteur de videodisques (Videodisc) ; 

• autres peripheriques avec pilote fourni (Other). 




Entre parentheses figurent les valeurs que peut prendre la propriete Devi- 
ceType du controle multimedia (voir plus loin). 



Visual Basic supporte aussi les objets representant les peripheriques multimedias 
composites suivants : 

• lecteur/enregistreur audio (fichiers .WAV) ; 
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• sequenceur MIDI (fichiers .MID) ; 

lecteur/enregistreur video (fichiers .AVI) . 

Les peripheriques multimedias simples n' exigent pas qu'un fichier soit associe 
au controle. Les CD audio, par exemple, ne requierent pas de fichier specifi- 
que. Les peripheriques multimedias composites necessitent un fichier 
externe. Par exemple, un lecteur audio doit lire un fichier .WAV precis . 

Evidemment, le PC sur lequel s'execute votre application multimedia doit reconnai- 
tre les peripheriques multimedias standards pour le son, les images, la video, etc., ainsi 
que disposer d'un lecteur de CD-ROM (ou peripherique compatible, tel qu'un DVD). 

Exploitation du controle multimedia 

Comme le controle Common Dialog, le controle multimedia n'est pas inclus dans la 
Boite a outils standard. II faut done l'ajouter. Appuyez sur Ctrl-T pour ouvrir la boite de 
dialogue Composants, puis selectionnez l'option Microsoft Multimedia Control 6.0. 

Lorsque vous placez le controle multimedia sur la feuille, un jeu de boutons apparait, 
semblables a ceux que Ton trouve sur les magnetoscopes ou radiocassettes (voir 
Figure 14.8). 




Figure 14.8 

Le controle 
multimedia 
sur la feuille. 



SuivantD 
(Next) 



AvanceD 
(Step) 



Paused 
(Pause) 



EnregistrerD 
(Record) 



Precedents 
(Prev) - 



LectureD 
(Play) 



EjecterD 
"(Eject) 



ArretD 
RetourC! StOP ' 



(Back) 
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Le controle multimedia est un controle intelligent qui reconnait les possibilites du 
peripherique qui lui est associe. Ainsi, le bouton Lecture ne sera pas disponible si vous 
avez ejecte le CD. Naturellement, vous pouvez choisir les boutons qui apparaissent, par 
le biais de diverses proprietes. Par exemple, les CD audio ne pouvant etre enregistres, il 
convient de masquer le bouton Enregistrer, plutot que de simplement le desactiver. 



Le controle multimedia renseigne votre application sur le peripherique et 
ses parametres courants. U application pent ainsi afficher le nombre de 
pistes contenues sur un CD audio. 



Le controle multimedia contient une liste de peripheriques aux boutons preselectionnes, 
de sorte que vous n'avez pas a definir la configuration de chaque media specifique. 
Le controle multimedia exploite la propriete DeviceType qui, lorsqu'on lui affecte la 
valeur correspondant au peripherique desire (par exemple CDAudio pour faire du 
controle multimedia un lecteur CD), affiche automatiquement les boutons requis. Toutes 
les valeurs possibles de DeviceType ont ete donnees dans la liste des peripheriques 
supportes, au debut de la section precedente. II suffit d'indiquer au controle multimedia 
ce que vous voulez qu'il soit, et il se configure lui-meme. 

Le controle multimedia dispose lui aussi de ses Pages de proprietes (que Ton obtient en 
double-cliquant sur la propriete (Personnalise) dans la fenetre Proprietes), qui facili- 
tent le reglage. Ainsi, a l'onglet Controles, vous pouvez selectionner les boutons qui 
doivent apparaitre, ainsi que les activer ou les desactiver (voir Figure 14.9). 



Figure 14.9 

Les Pages de 
proprietes du controle 
multimedia facilitent 
le reglage des diverses 
options, par exemple 
les boutons. 



Pages de piopiietes 



General Controles Picture 



13 



0^ 



jPrevEnabled. 

PrevVisible 

NextEnabled 

NextVisible 

StepEnabled 

StepVisible 

BackEnabled 
BackVisible 
PauseEnabled 
PauseVisible 



□ 



T PlayEnabled 

W PlayVisible 

V RecordEnabled 
W RecordVisible 

V StopEnabled 
W StopVisible 

ar iiectEnabled 

17 EjectVisible 



Lorsque vous placez le controle multimedia sur lafeuille, les boutons sont 
tous affich.es, mais tous desactives. Us le restent tant que vous ne selectionnez. 
pas une valeur DeviceType. 
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Lecteur de CD audio 

Pour exploiter un CD audio depuis une application Visual Basic, il suffit de placer sur 
une feuille le controle multimedia, et d'en regler la propriete DeviceType comme 
CDAudio. Le jeu de boutons adequat apparait automatiquement : vous avez votre lecteur 
CD. Libre a vous d'ajouter quelques details, par exemple un label qui affiche les pistes. 

Le controle multimedia se met a jour chaque fois qu'un evenement StatusUpdate a lieu. 
Par exemple, pour un DeviceType CDAudio, StatusUpdate suit chaque changement de 
piste, ainsi que le debut et 1' arret de la lecture. Le label des pistes pourra ainsi etre 
adequatement initialise par une procedure evenementielle de StatusUpdate. 

Le langage de commandes du controle multimedia 

Le controle multimedia supporte son propre langage de commandes miniature (rien a voir, 
bien sur, avec un vrai langage de programmation). La propriete Command peut prendre pour 
valeurs des commandes en un seul mot. Le Tableau 14.6 decrit ces commandes. 



Tableau 14.6 : Valeurs de la propriete Command du controle multimedia 



Command 


Description 


Back 


Recule d'une piste. 


Close 


Ferme le peripherique. 


Ej ect 


Ejecte le Cd du lecteur de CD-ROM. 


Next 


Passe au debut de la piste suivante (au debut de la derniere piste si c'est la 




piste en cours de lecture). 


Open 


Ouvre le peripherique. 


Pause 


Suspend la lecture. 


Play 


Lance la lecture. 


Prev 


Revient au debut de la piste lue. Si deux commandes Prev ont lieu en moins 




de trois secondes, revient au debut de la piste precedente (au debut de la 




premiere piste si c'est la piste en cours de lecture). 


Record 


Initialise l'enregistrement. 


Save 


Enregistre le fichier ouvert. 
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Tableau 14.6 : Valeurs de la propriete Command du controle multimedia (suite) 



Command 


Description 


Seek 


Recherche une piste vers l'avant ou vers l'arriere. (On prefere en general 




Next et Prev, en raison de l'ambiguite directionnelle de Seek.) 


Stop 


Arrete la lecture. 



Step Avance d'une piste. 



Le code peut modifier la valeur de la propriete Command en cours d'execution, et le 
controle multimedia repondra adequatement. 



Le controle multimedia peut se passer totalement des interventions de 
I 'utilisateur. II suffit de masquer tous les boutons et de piloter le peripheri- 
que depuis le code, a I'aide de la propriete Command. 



Creation d'un lecteur de CD 

Maintenant que nous vous avons presente le controle multimedia, vous allez l'utiliser 
pour concevoir un lecteur de CD audio. Creez un nouveau projet et adaptez feuille, 
controles et proprietes aux specifications du Tableau 14.7. 



Tableau 14.7 : Proprietes et valeurs a utiliser pour la feuille du controle 
multimedia 



Controle 


Propriete 


Valeur 


Feuille 


Name 


f rmCD 


Feuille 


Caption 


Lecteur CD 


Feuille 


Height 


3600 


Feuille 


Width 


4800 


Label 1 


Name 


lblCD 


Label 1 


Alignment 


2-Center 


Label 1 


BorderStyle 


1 -Fixed Single 


Label 1 


Caption 


Lecteur CD 
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Tableau 14.7 : Proprietes et valeurs a utiliser pour la feuille du controle 
multimedia (suite) 



Controle 


Propriete 


Valeur 


Label 1 


Font style 


BoldUnderline 


Label 1 


Font size 


18 


Label 1 


Height 


495 


Label 1 


Left 


1320 


Label 1 


Top 


480 


Label 1 


Width 


1935 


Label 2 


Name 


lblTrack 


Label 2 


Alignment 


1 -Right Justify 


Label 2 


Caption 


Piste : 


Label 2 


Font style 


Bold 


Label 2 


Font size 


12 


Label 2 


Height 


255 


Label 2 


Left 


1200 


Label 2 


Top 


2280 


Label 2 


Width 


1215 


Label 3 


Name 


lblTrackNum 


Label 3 


Caption 


(vide) 


Label 3 


Font style 


Bold 


Label 3 


Font size 


12 


Label 3 


Height 


375 


Label 3 


Left 


2520 


Label 3 


Top 


2280 
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Tableau 14.7 : Proprietes et valeurs a utiliser pour la feuille du controle 
multimedia (suite) 



Controle 


Propriete 


Valeur 


Label 3 


Width 


615 


Controle multimedia 


Name 


mmcCD 


Controle multimedia 


DeviceType 


CDAudio 



Une fois les controles places et configures, saisissez le code du Listing 14.3. 

Listing 14.3 : Gestion du lecteur CD 

1: Private Sub Form_Load() 
2: ' Ouvre le CD. 
3: mmcCD. Command = "Open" 
4: End Sub 
5: 

6: Private Sub Form_Unload (Cancel As Integer) 
7: ' Reinitialise le controle multimedia. 
8: mmcCD. Command = "Close" 
9: End Sub 
10: 

11: Private Sub mmcCD_StatusUpdate( ) 
12: 1 Met a jour le label de pistes. 
13: lblTrackNum. Caption = mmcCD. Track 
14: End Sub 

Au premier chargement de la feuille, l'application ouvre le lecteur CD. La ligne 8 vide 
le peripherique de la memoire avant que l'application ne se ferme (au meme titre que les 
fichiers, il faut toujours refermer un peripherique multimedia). La ligne 13 met a jour le 
numero de piste a chaque changement d'etat (StatusUpdate) du CD. La valeur de la 
propriete Updatelnterval du controle multimedia specifie l'intervalle entre chaque mise 
a jour (la valeur par defaut est 1000, c'est-a-dire mille millisecondes) . 

La Figure 14.10 montre le resultat. L'application est simple, mais elle marche ! Vous 
pourriez l'ameliorer encore en ajoutant une option de menu Fichier, Quitter, ainsi qu'un 
gestionnaire d'erreurs (voir section suivante). 

Certains des boutons desactives, tels le bouton Enregistrer, sont absolument 
inutiles dans cette application. Vous pouvez les cacher pour faire un peu de 
menage. 
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Figure 14.10 

Ce lecteur CD tout a 
fait fonctionnel ne 
vous a pas coute 
beaucoup de peine ! 



Lecteur CD 





► 1 




II 













Piste : 2 



Vous ne maitrisez. pas seulement lafonction lecteur CD du controle multime- 
dia, mais aussi tous les autres peripheriques supportes I Comme vous le 
verrez dans les sections suivantes, les autres types de peripheriques fonc- 
tionnent de la meme maniere. 

Notification et gestion d'erreurs 

Lors de l'execution du controle multimedia, plusieurs verifications d'erreurs sont effec- 
tuees, arm que la lecture se fasse sans accrocs. 

La propriete Notify declenche un evenement Done chaque fois que la commande suivante 
du controle multimedia s'execute correctement. Pour lancer automatiquement une 
commande lorsque la commande precedente est terminee, vous pouvez definir la propriete 
Notify comme True. Definie comme True, la propriete Wait garantit que le controle ne 
renviendra pas a l'application avant que la commande precedente du controle multimedia 
ne se soit correctement executee. Le code suivant permet de verifier si une erreur a eu lieu 
apres envoi d'une commande : 

If (f rmCD.mmcCD. Error) then 

intMsg = MsgBox( "Probleme avec le CD", vbCritical) 
Else 

' Le code continue et lit le CD. 

Mieux vaut ne pas placer d'instruction On Error Goto au debut de la procedure, car 
vous ne pourriez alors savoir quelle commande precise a genere l'erreur. En faisant 
suivre chaque commande d'une routine de verification d'erreur, vous assurez un 
meilleur suivi des problemes et de leur signification. 

Le Tableau 14.8 presente plusieurs valeurs de la propriete Mode. La propriete Mode 
permet d'interroger divers etats, ou modes, du controle multimedia lors de l'execution 
de l'application. 
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Tableau 14.8 : Valeurs de la propriete Mode du controle multimedia 



Constantes nominees 


Description 


mciModeNotOpen 


Peripherique non ouvert 


mciModeStop 


Peripherique arrete 


mciModePlay 


Peripherique en cours de lecture 


mciModeRecord 


Peripherique en cours d'enregistrement 


mcuModeSeek 


Peripherique en cours de recherche 


mciModePause 


Peripherique mis en pause 


mciModeReady 


Peripherique pret 



Creation d'un lecteur WAV 

Les fichiers WAV sont des fichiers stockes sur l'ordinateur. Pour les lire, un peri- 
pherique multimedia composite est requis. Les peripheriques multimedias composites 
obtiennent les donnees d'un fichier, et non d'une source exterieure telle qu'un CD 
audio. Votre PC contient beaucoup de fichiers WAV. C'est de ce type de fichiers que le 
Panneau de configuration se sert pour associer des sons aux evenements systeme. 

Cette section vous explique comment creer un lecteur de fichier WAV. Vous pourrez ainsi 
mettre en ceuvre les valeurs de Mode presentees au Tableau 14.8. Nous nous servirons pour 
cette application du fichier Windows TADA.WAV, situe dans le dossier Window sMVIedia. 

S'il est toujours ouvert, enregistrez puis fermez le projet lecteur CD. II servira de base a 
ce nouveau projet. Enregistrez-le done sous un nouveau nom, puis modifiez-le en 
suivant ces etapes : 

1. Renommez le label du haut lblWav et definissez la propriete Caption comme 
Lecteur WAV. Definissez Width comme 2415. 

2. Renommez la feuille f rmWav et definissez sa Caption comme Lecteur audio WAV. 

3. Donnez au controle multimedia le nom mmcWav et changez sa propriete DeviceType 
en WaveAudio. Vous pouvez changer les autres proprietes depuis la fenetre Proprietes 
ou dans les Pages de proprietes. Affectez a Filename le chemin d'acces du fichier 
TADA.WAV. 

4. Les fichiers WAV ne contiennent pas de pistes, mais le label va quand meme nous 
servir. Renommez le label de gauche (lblTrack) en lblStatus et definissez sa 
propriete Caption comme Etat. 
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5. Renommez le label de droite (lblTrackNum) en lblStatusValue et videz la Caption. 
Definissez une Width de 2565. 

6. Ajoutez deux labels en-dessous des precedents, et attribuez-leurs les memes proprie- 
tes Width et Font. (Vous pouvez les copier pour creer un jeu de tableaux de labels.) 
Nommez le premier lable lblFile (a moins que vous n'ayez cree un tableau de 
controle) et definissez sa Caption comme Fichier : . II faudra sans doute l'agrandir. 

7. Nommez le label de droite lblFileValue (a moins que vous n'ayez cree un tableau 
de controle). Laissez la propriete Caption vide. Centrez les labels sous les boutons. 
Le resultat devrait ressembler a la Figure 14.1 1 . 



Figure 14.11 

Notre lecteur WAV est 
presque termine. 




Modifiez la procedure evenementielle Form_Load( ) comme ceci : 

Private Sub Form_Load () 
1 Ouvre le lecteur WAV. 
mmcWAV. Command = "Open" 
End Sub 

Vous devez egalement modifier la procedure evenementielle Form_Unload ( ) : 

Private Sub Form_Unload (Cancel As Integer) 
' Referme le lecteur WAV. 
mmcWAV. Command = "Close" 
Unload Me 1 Decharge aussi la feuille. 
End Sub 

Executez Implication. Lorsque vous cliquez sur le bouton Lecture, un son se fait entendre. 
Cliquez sur Retour pour l'entendre de nouveau. 

Le lecteur WAV n'est pas encore tout a fait termine. Les labels situes sous les boutons 
n'affichent pas encore l'etat ni le nom du fichier. Initialisez ces labels dans la procedure 
evenementielle StatusUpdate ( ) (voir Listing 14.4). Vous devrez utiliser les valeurs de Mode. 



459 < 



Partie II 



Listing 14.4 : Initialise les labels avec les informations d'etat 

1: Private Sub mciWAV_StatusUpdate( ) 

2: 1 Affiche l'etat. 

3: If mmcWAV.Mode = mciModeNotOpen Then 

4: lblStatusValue(0) .Caption = "Non pret" 

5: Elself mmcWAV.Mode = mciModeStop Then 

6: lblStatusValue(0) .Caption = "Arret" 

7: Elself mmcWAV.Mode = mciModePlay Then 

8: lblStatusValue(0) .Caption = "Lecture" 

9: Elself mmcWAV.Mode = mciModeRecord Then 

10: lblStatusValue(0) .Caption = "Enregistrement" 

11: Elself mmcWAV.Mode = mciModePause Then 

12: lblStatusValue(0) .Caption = "Pause" 

13: Elself mmcWAV.Mode = mciModeReady Then 

14: lblStatusValue(0) .Caption = "Pret" 

15: End If 

16: ' Affiche le nom du fichier lu. 

17: lblStatusValue(1 ) .Caption = mmcWAV.FileName 

18: End Sub 

La procedure evenementielle Statusilpdate presuppose que vous ayez cree 
un tableau de controle pour les labels. Si vous ne I'avez pas fait, modifiez le 
nom des labels selon les noms que vous avez employes. Sinon, 1' application 
ne pourra s'executer correctement . 

Lancez le lecteur WAV pour tester l'application. Notez ceci : 

• Le lecteur n'affiche pas de bouton Arret, sauf pendant la breve lecture du fichier. Le 
fichier s'arrete de lui-meme. S'il etait plus long, vous auriez la possibility de l'arreter. 

• Le fichier est lu une fois , puis le lecteur se positionne a la fin du fichier. Vous pouvez 
cliquer sur le bouton Retour pour l'entendre de nouveau. 

• Le bouton Enregistrer est actif. Vous pouvez enregistrer au debut ou a la fin du 
fichier, puis rembobiner pour entendre le resultat. 

Lecture de fichiers video 

Lire un fichier video n'est tres different de lire un fichier audio. Le lecteur video du 
controle multimedia etant un peripherique composite, vous devez imperativement 
fournir un nom de fichier. Vous devez egalement configurer le controle multimedia pour 
la lecture video. 

En fait, le controle multimedia exige un petit peu plus de vous quand il s'agit de lire des 
fichiers videos. En plus de la simple suite de boutons, il faut aussi un ecran de projection 
pour la video. Le controle le plus indique a cet effet est le controle PictureBox. 
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Vous avez, jusqu'ici, defini la propriete DeviceType du controle multimedia comme 
CDAudio pour lire les CD et comme WaveAudio pour lire les fichiers WAV, et cela dans 
la fenetre Proprietes ou les Pages de proprietes. Mais si votre controle multimedia est 
appele a lire plusieurs types de medias dans une meme application, les differentes 
valeurs devront etres definies en cours d'execution a l'aide d' instructions d'affec- 
tation. 

Votre application peut contenir plusieurs controles PictureBox. Le controle multimedia 
doit done savoir a quel controle PictureBox envoyer la video. C'est le role de la propriete 
hWndDisplay. 

hWnd est un pre fixe souvent employe en programmation Windows pour designer un 
gestionnaire, ou plus precisement un contexte de peripherique. Les sorties Visual Basic ne 
s'affichent pas vraiment sur l'ecran lui-meme, mais dans des fenetres. (En fait, on peut 
envoyer une sortie vers n'importe quel peripherique Windows a l'aide des memes 
commandes de bases, et les peripheriques Windows sont plus virtuels que reels pour votre 
programme. Windows se charge de toutes les conversions compliquees pour envoyer la 
sortie vers une imprimante ou un ecran couleur.) L'important est que votre programme 
n'envoie pas la sortie video a l'ecran, mais a un contexte de peripherique. Ce contexte de 
peripherique est presque toujours l'ecran, mais le controle multimedia doit connaitre le 
contexte de peripherique adequat. II peut ainsi determiner vers quelle fenetre la sortie 
video doit etre envoyee, et ajuster en consequence la taille de cette fenetre. 

Assez parle. Creez maintenant un nouveau projet. Nommez la feuille f rmVideo et entrez 
Lecteur video dans sa propriete Caption. Ajoutez un controle multimedia en haut de la 
feuille. Nommez ce controle mmcVideo. 

Au centre de la feuille, ajoutez un controle PictureBox. Disposez-le tel que le montre la 
Figure 14.12. Nommez ce controle picVideo. 



Figure 14.12 

C'est dans le controle 
PictureBox que 
s'affichera la video. 
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Definissez la propriete DeviceType comme AVlVideo. Ala propriete Filename, affectez 
le fichier nomme Count24.AVI. Vous trouverez ce fichier dans le dossier 
\Graphics\ Videos de Visual Basic. C'est presque termine ! Creer un lecteur video, vous 
le voyez, ce n'est pas sorcier. Maintenant, ajoutez la procedure evenementielle 
Form_Load( ) du Listing 14.5. 

Listing 14.5 : Associe le lecteur video au controle PictureBox 

1: Private Sub Form_Load() 

2: 1 Ouvre le lecteur video. 

3: mmcVideo. Command = "Open" 

4: ' Connecte le lecteur video au controle PictureBox. 

5: mmcVideo. hWndDisplay = picVideo.hWnd 

6: End Sub 

Executez le programme. La Figure 14.13 montre un extrait du resultat. 

Figure 14.13 gsSM^^^^^^^^^KJLEl 

Digne de Hollywood ! 




En travaillant avec le controle multimedia, vous decouvrirez des raccourcis. Par exem- 
ple, il est inutile de specifier le type de peripherique pour les peripheriques multimedias 
composites, car Visual Basic peut le deduire lui-meme de l'extension du fichier utilise. 

Par ailleurs, vous n'avez point remarque que les labels d'etat ne s'actualisent pas 
toujours a temps. En l'occurrence, le label n'a affiche "Lecture" qu'une fois la lecture 
terminee ! L'evenement StatusUpdate a lieu toutes les quelques millisecondes. Pour 
que la mise a jour se fasse plus souvent, done avec plus d'exactitude, affectez a la 
propriete Updatelnterval une valeur plus petite (selon la valeur par defaut, 1000, l'etat 
se met a jour toutes les secondes) . 
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Ne definissez pas pour Updatelnterval une valeur trop petite, car {'appli- 
cation contenant le controle multimedia consommerait trop de temps a 
mettre a jour le label, ce qui ralentirait le systeme. De tels ralentissements 
provoquent souvent quelques tressautements lors de la lecture des fichiers 
multimedias. 



En resume 

Ce chapitre vous a montre combien il etait facile de relever vos applications (Tune 
pointe de graphisme et d'un trait de multimedia. Les controles Line et Shape permettent 
de mettre en valeur les elements de la feuille ou de separer les controles. 

Visual Basic propose egalement des methodes de dessin qui vous permettent de tracer 
des lignes, des cadres ou des ellipses, ainsi que de dessiner pixel par pixel. Ces metho- 
des sont assez simples, mais elles vous laissent le plein controle sur vos dessins. 

Les dernieres sections de ce chapitre ont detaille le fonctionnement du controle multi- 
media. Le controle multimedia est l'un des controles les plus complets de Visual Basic, 
car il supporte de multiples types de peripheriques. II permet a vos programmes de lire 
des CD audio, des fichiers son et meme des videos. Le controle multimedia peut etre 
pilote par l'utilisateur a l'aide de boutons, ou depuis le code a l'aide de la propriete 
Command. 

Le chapitre suivant explique comment ajouter des modeles de feuilles a vos projets afin 
de standardiser vos applications. 



Questions-reponses 

Q Puis-je utiliser le controle multimedia pour afficher de simples images ? 

R Le controle multimedia, comme son nom l'indique, est destine aux peripheriques 
multimedias. Ce qui n'inclut pas les simples images et photos. Pour les fichiers de ce 
type, optez plutot pour les controles Image ou PictureBox. 

Q Vaut-il mieux utiliser les controles de dessin ou les methodes ? 

R Les deux ne s'excluent pas. Les controles Line et Shape prennent diverses formes 
que vous pouvez placer sur la feuille lors de la creation ou definir a l'execution par 
des valeurs de proprietes. Les methodes de dessin offrent plus de flexibilite, en 
permettant de dessiner point a point. Elles permettent egalement de tracer des lignes 
et des cadres. 
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Atelier 

L' atelier propose une serie de questions sous forme de quiz, grace auxquelles vous 
affermirez votre comprehension des sujets traites dans le chapitre, et des exercices qui 
vous permettront de mettre en pratique ce que vous avez appris. II convient de comprendre 
les reponses au quiz et aux exercices avant de passer au chapitre suivant. Vous trouverez 
ces reponses a 1' Annexe A. 

Quiz 

1 . Quel controle dessine des cercles sur la feuille ? 

2. Quelle methode dessine des carres sur la feuille ? 

3 . Laquelle des methodes suivantes permet de dessiner des cadres ? 

a. PSet 

b. Line 

c. Box 

d. Draw 

4. Les controles Line et Shape generent des dessins qui supportent E/S proprietes, mais 
pas des evenements. Vrai ou faux ? 

5. Quelle option de la methode Line applique une couleur de fond aux cadres ? 

6. Pourquoi Visual Basic n'active-t-il pas tous les boutons lorsque vous placez le 
controle multimedia sur une feuille ? 

7. A quoi sert la propriete Mode ? 

8. Comment faire en sorte que l'etat du peripherique du controle multimedia se mette a 
jour plus souvent ? 

9. Pourquoi doit-on utiliser un controle PictureBox pour les videos ? 

10. Comment le controle multimedia sait-il a quel controle PictureBox il doit envoyer la 
sortie video ? 
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Exercices 

1. Ajoutez a l'application reproduite en Figure 14.5 des zones de liste Couleur de 
remplissage et Couleur de bordure, de facon a pouvoir aussi modifier ces parametres. 
La Figure 14.14 montre ce a quoi votre feuille devrait ressembler. 



Figure 14.14 

Vous avez maintenant 
plus de contrdle sur 
le dessin. 




True. Utilisez une constante nominee, telle que vbBlue, pour repondre aux selec- 
tions de l'utilisateur. Vous n'etes pas oblige de proposer toutes les couleurs dans 
toutes les zones de liste. 

Exercez-vous au dessin de lignes et de cercles a l'aide des methodes appropriees, 
mais sur un controle PictureBox cette fois. Le controle PictureBox accepte les 
memes methodes de dessin que la feuille. 

Reprenez le lecteur WAV que nous avons cree. Offrez a l'utilisateur la possibilite de 
choisir son fichier dans une boite de dialogue Ouvrir. 
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Les barres de defilement 



En plus de vous proposer un peu d'entrainement, ce Projet bonus introduit deux 
nouveaux controles : les barres de defilement verticale et horizontale. lis sont toutefois 
tres simples a manipuler, leur comportement etant en grande partie controle par les 
proprietes definies lors de l'execution. II suffit ensuite d'ecrire les procedures evene- 
mentielles qui repondront aux actions de l'utilisateur. 

Presentation des barres de defilement 

Beaucoup des applications que vous avez deja creees contenaient des barres de 
defilement, car certains controles les integrent d'office. Par exemple, une zone de texte 
multiligne qui contient beaucoup de donnees affichera des barres de defilement, a moins 
que vous ne specifiez le contraire dans la propriete ScrollBars. Sans les barres de 
defilement, l'utilisateur serait incapable d'acceder a la totalite du contenu. Les barres de 
defilement sont egalement intrinseques aux zones de liste deroulante. La Figure PB7.1 
detaille les differentes parties de chaque barre de defilement. 

Les barres de defilement ne sont pas seulement utiles dans les zones de texte et zones de 
liste. Elles peuvent egalement offrir a l'utilisateur un controle flexible sur des valeurs 
graduelles, telles que la profondeur d'une couleur, la taille d'une image, ou autres 
valeurs numeriques. 

La Boite a outils comporte les controles HScrollBar et VScrollBar, qui correspondent 
respectivement aux barres de defilement horizontale et verticale. Une fois ces controles 
disposes sur la feuille, vous devez regler les proprietes qui en definissent le comportement. 
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Figure PB7.1 

Les barres 
de defilement 
horizontale et 
verticale peuvent 
apparaitre 
automatiquement. 



HampeB- 



Barre deO 
defilementP- 
horizontale 



Barre deD 
defilementE 
verticale 



[NETDI: Classlnstall (0x6 on 0x5f3e:0x58) o 

HETDI: SetupFlags=513(S0F_INSETUP)(SUF_FIR 

NETDI: Examining class Net 

NETDI: Found Enum\Root\Net\0OBQ in registri 

NETDI: SelecttlyBestCompatDru : Found a conp 
NETDI: GenlnstallDriuer, C:\UININST0.it40' 

NETDI: GenlnstallDriver, C:\WININST0.4fO' 

NETDI: NdiCreate(Carte d'acces a distance) 
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NETDI: Found Enum\Network\HSTCP\0O00 in regi 

NETDI: SelectMyBestCoripatDru : Found a conp. 
NETDI : GenlnstallDrivei-, C:\WININST8. Ul|0' 
NETDI: GenlnstallDriuer, C:\UININSTe.itfB' 

NETDI: NdiCreate(TCPZIP) OK 

NETDI: Found Eniim\Network\NETBEllI\0000 in 

NETDI: SelectMyBestCompatDru : Found a conp 
NETDI: GenlnstallDriuer, C:\UININST0.Ji4fl' 

NETDI: GenlnstallDriuer, C:\UININSTO.itiV 

NETDI: NdiCreate(NetBEUI) OK 
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fleches deD 
defilement 
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Fonctionnement des barres de defilement 

Une fois que vous avez saisi le fonctionnement des barres de defilement, il ne vous reste 
pas grand-chose a apprendre pour etre en mesure de les programmer. Voici les principes 
de ce fonctionnement : 

• Lorsque le curseur de la barre de defilement horizontale est mis a la position la plus 
a gauche (le plus en haut pour la barre de defilement verticale), la valeur de 
defilement est la plus basse. 

• Deplace vers la droite ou la gauche (vers le haut ou le bas pour la barre de 
defilement verticale), le curseur decroit ou accroit d'autant la valeur de defilement 
correspondante. 

• Lorsque le curseur de la barre de defilement horizontale est mis a la position la plus 
a droite (le plus en bas pour la barre de defilement verticale), la valeur de defilement 
est la plus haute. 

• En cliquant sur les fleches de defilement, on decroit ou accroit de petites unites la 
valeur de defilement. 

• En cliquant d'un cote ou de 1' autre du curseur de defilement (sur la hampe, done), on 
decroit ou accroit de grandes unites la valeur de defilement. 
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Proprietes des barres de defilement 

Le Tableau PB7.1 presente les proprietes les plus importantes des barres de defilement. 
Ces proprietes peuvent etre definies lors de 1' execution, mais on s'en occupe gene- 
ralement pendant la phase de creation. Ces proprietes correspondent aux principes de 
fonctionnement decrits ci-dessus. 



1 T1T» H 1 

lableau FB7.1 : 


: Proprietes des controles HScrollBar et VScrollBar 


Propriete 


Description 


LargeChange 


Specifie la valeur selon laquelle la barre de defilement change le 




positionnement lorsqu'on clique sur la hampe (d'un cote ou de 1' autre du 




curseur de defilement). 


Max 


Nombre maximal d'unites correspondant a la valeur de defilement la plus 




haute. La valeur par defaut est 32 767. 


Min 


Nombre minimal d'unites correspondant a la valeur de defilement la plus 




basse. La valeur par defaut est 1 . 


SmallChange 


Specifie la valeur selon laquelle la barre de defilement change le 




positionnement lorsqu'on clique sur les fleches de defilement. 


Value 


Specifie 1' unite de mesure courante pour la valeur de defilement. 



La plage par defaut des valeurs de defilement va de 1 a 32 767. Mais vous pouvez ajuster 
cete plage aux besoins de votre application. Supposons, par exemple, que vous ecriviez un 
programme qui traite des montants allant de 3000 F a 60 000 F. Vous pourriez obtenir les 
montants de l'utilisateur par l'intermediare de zones de texte. Mais il serait plus simple de 
fournir une espece de gradateur, sans la forme d'une barre de defilement. Les valeurs 
de defilement seraient alors incluses dans les valeurs de proprietes suivantes : 

B Min: 3000 
Max: 60000 

II suffit ensuite de definir les increments correspondant aux valeurs de defilement. 
Supposons que les montants traites par votre programme puissent etre incremented de 
500 F. Le montant (indique dans la propriete Value de la barre de defilement) peut alors 
changer par tranches de 500 F si l'utilisateur clique sur les fleches (petit changement), 
ou par tranches de 2500 F (grand changement) s'il clique sur la hampe. Les proprietes 
devraient alors etre reglees comme ceci : 

B LargeChange: 2500 
SmallChange: 500 
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__i — | Vous etes libres de modifier la taille de la barre de defilement, en hauteur 
ypS° comme en largeur. La taille "physique " de la barre de defilement n 'affecte en 
' rien les valeurs de defilement. 



Creer Implication 

La Figure PB7.2 montre l'ecran de l'application que vous allez maintenant creer. 
L'utilisateur se sert des barres de defilement pour modifier la taille de l'image. Le code 
requis est minime, parce que l'essentiel du travail est effectue par les proprietes des 
barres de defilement. 



Figure PB7.2 

Les barres de 
defilement controlent 
la taille de l'image. 




AugmenterD Reduire laD 

la longueur longueur 



Gardez a V esprit le sens dans lequel les barres de defilement fonctionnent . 
Dans notre petite application, pour accrottre la taille de l'image, il faut 
accrottre la valeur de defilement, c'est-a-dire faire glisser le curseur de 
feuilles vers le bas. Intuitivement, on penserait plutot reduire la taille de 
l'image enfaisant descendre le curseur. Rien n'empeche d'ecrire l'applica- 
tion de facon a inverser ces directions. Pour notre exemple, toutefois, nous 
nous en sommes tenus aux parametres par defaut. 



0>* 



Cette application exploite lesfichiers graphiques livres avec Visual Basic. Si 
vous ne les avez pas installes, faites-le, copiez le fichier requis sur votre 
disque, ou travaillez directement sur le CD-ROM Visual Basic. 
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Le Tableau PB7.2 detaille les controles necessaires a notre application. 
Tableau PB7.2 : Controles et proprietes a configurer pour la feuille 



Controle 


Propriete 


Valeur 


Feuille 


Name 


f rmScoll 


Feuille 


Caption 


Money money money 


Feuille 


Height 


4650 


Feuille 


Width 


5295 


PictureBox 


Name 


picScroll 


PictureBox 


Height 


1600 


PictureBox 


Left 


1560 


PictureBox 


Picture 


Common \Graphics\Metaf ile\ Business 
\Moneybag 


PictureBox 


Top 


1200 


PictureBox 


Width 


1575 


Barre de defilement verticale 


Name 


vscScroll 


Barre de defilement verticale 


Height 


3975 


Barre de defilement verticale 


LargeChange 


100 


Barre de defilement verticale 


Left 


4920 


Barre de defilement verticale 


Max 


3750 


Barre de defilement verticale 


Min 


1600 


Barre de defilement verticale 


SmallChange 


50 


Barre de defilement verticale 


Top 


0 


Barre de defilement verticale 


Width 


255 


Barre de defilement horizontale 


Name 


hscScroll 


Barre de defilement horizontale 


Height 


255 


Barre de defilement horizontale 


LargeChange 


100 
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Tableau PB7.2 : Controles et proprietes a configurer pour la feuille (suite) 



Controle 


Propriete 


Valeur 


Barre de defilement horizontale 


Left 


0 


Barre de defilement horizontale 


Max 


3750 


Barre de defilement horizontale 


Min 


1600 


Barre de defilement horizontale 


SmallChange 


50 


Barre de defilement horizontale 


Top 


3960 


Barre de defilement horizontale 


Width 


4935 



Chaque fois que l'utilisateur clique sur une fleche de defilement, la taille de 1' image 
change de 50 pixels, tel que specifie dans la propriete SmallChange des deux barres de 
defilement. Chaque fois que l'utilisateur clique sur la hampe, la taille de l'image change 
de 100 pixels, tel que specifie dans la propriete LargeChange. 



Ajouter le code 

Le Listing PB7.1 fournit le code de ce projet. 

La taille de l'image ne doit pas etre seule a changer, mais egalement la 
position : l'image doit rester centree. 



t0& 



Listing PB7.1 : Les barres de defilement modifient la taille de l'image 



Private Sub hscScroll_Change( ) 

' Change la largeur et la position horizontale de l'image. 
picScroll. Width = hscScroll. Value 

picScroll.Left = (frmScroll. Width / 2) - (picScroll. Width 
/ 2) - 300 
End Sub 



5 



Private Sub vscScroll_Change( ) 

' Change la hauteur et la position verticale de l'image. 
9: picScroll. Height = vscScroll. Value 

10: picScroll. Top = (frmScroll. Height / 2) - (picScroll. Height 

-/ 2) -300 
11 : End Sub 
12: 

13: Private Sub vscScroll Scroll) ) 
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14: 1 Repond au curseur de defilement. 

15: Call vscScroll_Change 

16: End Sub 
17: 

18: Private Sub hscScroll_Scroll( ) 

19: 1 Repond au curseur de defilement. 

20: Call hscScroll_Change 

21 : End Sub 



Analyse 

Le code est repetitif , parce que les deux barres de defilement font foncierement la meme 
chose : controler les proprietes Width et Height de l'image. A la ligne 3, la premiere 
procedure modifie la largeur de l'image en fonction de la valeur de la barre de 
defilement horizontale. (Pour les deux barres de defilement, les proprietes Min et Max ont 
ete definies, lors de la creation, de facon que la taille de l'image garde toujours une taille 
raisonnable.) La ligne 4 specifie la nouvelle position de l'image redimensionnee. Cette 
position est fixee en fonction de la hauteur de l'image par rapport a la hauteur de la feuille. 
f rmScroll .Width / 2 definit le milieu de la feuille, picScroll. Width / 2 celui de l'image. 
Les 300 pixels soustraits correspondent a la largeur de la barre de defilement verticale. 

Les lignes 7 a 11 font exactement la meme chose, mais en fonction de la barre de 
defilement horizontale et pour la largeur de l'image. 

Les deux dernieres procedures ont cela de particulier qu'elles ne font qu'appeler les 
autres procedures. La premiere de ces deux procedures s'execute quand l'utilisateur 
clique sur l'une des Heches ou sur la hampe. Mais qu'en est-il du curseur de 
defilement ? Sans les procedures des evenements Change, l'image ne bougerait pas tant 
que l'utilisateur n'a pas relache le bouton de la souris — c'est-a-dire tant que l'evene- 
ment Scroll n'est pas acheve. En appelant la procedure evenementielle Scroll depuis 
la procedure evenementielle Change, on synchronise les mouvements du curseur de 
feuille aux modifications de la taille. En fait, la procedure evenementielle Scroll est 
appelee pendant tout le deplacement du curseur, pour chacune des valeurs par lesquelles 
il passe. 



— ' ) On aurait pu placer le code de la procedure evenementielle Click directe- 
ment dans la procedure evenementielle Change, pour ne garder que cette 
derniere. La procedure evenementielle Change s'executerait chaque fois que 
l'utilisateur agit sur une barres de defilement, le curseur, les fi.ech.es et la 
hampe pouvant tous generer des evenements Change. On aurait pu, certes, 
mais vous n'avez pas encore appris a appeler une procedure depuis une 
autre, et cet exemple s'y pretait parfaitement . 
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Vous etes maintenant passe du stade de debutant a celui de programmeur avance. 
L'environnement de programmation Visual Basic vous est tout a fait familier, et vous 
maitrisez l'essentiel du langage. 

Dans les chapitres qui viennent, il s'agira done surtout d'affuter et de perfectionner les 
notions et les techniques deja acquises. Vous avez maintenant un bagage suffisant pour 
rechercher par vous-meme, en dehors de cet ouvrage, des informations comple- 
mentaires. Manuels plus avances, revues et sites Web specialises vous permettront de 
perfectionner votre pratique de Visual Basic et de devenir rapidement un authentique 
developpeur professionnel. 

Voici ce que nous avons etudie dans ces sept chapitres : 

• La structure des applications. Un programme Visual Basic est plus qu'un simple 
assemblage de controles et de procedures evenementielles. L' application peut etre 
constitute de plusieurs feuilles et modules de code travaillant en commun 
(Chapitre 8). 

• La portee des variables. Alors que vos codes deviennent plus modulaires (et done 
plus faciles a maintenir), vous devez toujours garder a l'esprit la portee des variables, 
qui determine quelles procedures auront acces a quelles variables de 1' application 
(Chapitre 8). 

• Passer des donnees. Qu'il s'agisse de sous-routines ou de fonctions, vos procedures 
doivent etre en mesure de passer des donnees aux autres procedures (Chapitre 8) . 

• Passer des controles. Les procedures peuvent, entre elles, se passer tous types 
d'objets : variables, mais aussi controles (Chapitre 8). 

• Les fonctions internes. Grace a une exploitation adequate des fonctions internes, vous 
allegerez votre travail de programmation pour ce qui est des taches communes, telles que 
calculer une racine carree ou convertir une chaine (Chapitre 8). 
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• Les boites de dialogues communes. Le controle Common Dialog permet d'offrir 
aux utilisateurs une interface standard pour l'ouverture et l'enregistrement de 
fichiers, la selection de couleurs ou l'impression (Chapitre 9). 

• La gestion de la souris. Vos programmes peuvent suivre les deplacements et les 
clics de la souris (Chapitre 10). 

• Les controles de listes. Visual Basic met a votre disposition divers types de zones 
de liste (Chapitre 10). 

Le controle Timer. Le controle Timer interroge l'horloge interne du PC pour executer 
des procedures a intervalles precis (Chapitre 10). 

• Les tableaux. Les simples variables ne peuvent stocker des listes de donnees. Pour 
traiter de grandes quantites de donnees, il faut les stocker dans des tableaux de varia- 
bles (Chapitre 10). 

• Les feuilles. Comme les autres objets Visual Basic, les feuilles supportent une vaste 
gamme de proprietes, evenements et methodes, permettant notamment de les masquer 
et de les afficher a volonte lors de 1' execution (Chapitre 11). 

• Envoyer du texte aux feuilles. La methode Print permet d'envoyer du texte direc- 
tement sur la feuille, sans passer par des controles (Chapitre 11). 

• Les barres d'outils. Les barres d'outils sont un aspect capital de l'interface utilisa- 
teur (Chapitre 11). 

Les coolbars. Les coolbars sont relativement nouvelles dans les logiciels Windows, 
mais elles offent un moyen supplementaire de dynamiser et personnaliser vos 
applications (Chapitre 11). 

Le traitement des fichiers. Le traitement des fichiers n'a rien de sorcier, mais 
reclame un peu de programmation (Chapitre 11). 

• Les fichiers sequentiels. Les fichiers sequentiels se lisent et s'ecrivent dans un 
ordre precis et immuable, mais sont faciles a manipuler (Chapitre 12). 

• Les fichiers aleatoires. L'acces aleatoire permet de lire et d'ecrire a n'importe quel 
endroit du fichier (Chapitre 12). 

• Les controles de fichiers. Les controles ne manipulent pas eux-memes les fichiers, 
mais permettent a l'utilisateur de faire son choix parmi les lecteurs, dossiers et types 
de fichiers de son systeme (Chapitre 12). 

• L'impression. A l'aide de methodes specifiques, votre application peut envoyer des 
sorties aux diverses imprimantes presentes sur le systeme de l'utilisateur 
(Chapitre 13). 
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• L'impression de feuilles. Vous pouvez, aussi bien, imprimer les feuilles de votre 
projet (Chapitre 13). 

• Les fichiers graphiques. Les controles Image et PictureBox permettent d'afficher 
les images contenues dans des fichiers graphiques (Chapitre 14). 

Les controles de dessin. Grace aux controles Line et Shape, vous pouvez enjoliver 
ou mettre en relief les elements de la feuille (Chapitre 14). 

• Les methodes de dessin. Les methodes de dessin permettent de tracer des images 
sur les feuilles comme sur le controle PictureBox (Chapitre 14). 

• Le controle multimedia. Le controle multimedia permet de gerer, a l'interieur de 
1' application, n'importe quel peripherique multimedia : lecteur CD, afficheur 
video, etc. (Chapitre 14). 
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Vous avez suivi un long trajet depuis que ce livre a commence a vous enseigner 
comment ecrire des programmes Visual Basic. Vous devez desormais vous considerer 
comme etant meilleur qu'un programmeur debutant. Vous pouvez deja presque 
realiser ce que vous voulez avec Visual Basic. II vous reste maintenant a ameliorer vos 
competences. 

La troisieme et derniere partie de ce didacticiel commence par examiner certains aspects 
avances de la programmation Visual Basic, ce qui ne signifie cependant pas "difficile". 
Presque tous les elements que vous apprendrez dans cette partie sont considered comme 
avances. Quoi qu'il en soit, vous avez des bases si solides desormais que vous devriez 
acquerir assez facilement ces competences supplementaires. 

Lorsque vous commencerez a explorer les objets et les controles ActiveX, vous verrez 
que ces elements vous aident a produire un meilleur code et a ecrire des programmes 
plus rapidement. Vous apprendrez a reutiliser les composants que vous creez de la 
meme maniere que vous avez reutilise les procedures dans la Partie II. Vous deve- 
lopperez vos propres outils dans la fenetre Boite a outils de Visual Basic en creant vos 
propres controles ActiveX. 

Comme vous le verrez, Visual Basic peut vous proposer une grande diversite de contro- 
les. Dans cette derniere partie, vous apprendrez comment acceder aux fichiers, gerer les 
donnees dans les formats courants de bases de donnees, et comment acceder a l'lnternet 
en utilisant les outils fournis avec Visual Basic. Vous n'ecrirez que tres rarement une 
application qui exige plus de controles que ceux dont vous disposez deja. Toutefois, vous 
serez soulage d'apprendre que vous pourrez en obtenir d'autres, et meme ecrire les 
votres, si l'envie vous en prend. Vous pourrez utiliser ces controles non seulement dans 
l'environnement de programmation Visual Basic, mais egalement d'autres manieres, par 
exemple les incorporer dans les pages Web pour les navigateurs compatibles avec 
ActiveX. 

Une fois 1' application ecrite, il faut la tester a l'aide des outils de test et de debogage de 
Visual Basic. Si certains bogues sont difficiles a pister, Visual Basic va cependant assez 
loin pour vous aider a les localiser. Une fois votre application developpee, vous devez la 
compiler pour la distribuer aux autres. A la fm de cette partie, vous apprendrez a empa- 
queter vos applications avec des routines d' installation pour permettre aux utilisateurs 
de les installer et de les executer. 
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La lecon d'aujourd'hui vous montre les benefices que vous pouvez tirer des modeles de 
feuilles afin de donner une apparence plus uniforme aux feuilles creees dans un but 
commun. Visual Basic fournit plusieurs modeles de feuilles que vous pouvez ajouter, 
personnaliser et utiliser dans vos projets. Beaucoup de feuilles utilisees actuellement — 
comme la boite de dialogue "A propos de" s'affichant lorsqu'on selectionne Aide, A 
propos de — ont elabore une forme de standard de facto dans la presentation, dont vous 
pouvez aussi bien suivre la tendance. La boite de dialogue "A propos de" et quelques 
autres feuilles standards sont fournies avec Visual Basic. 

Une fois que vous saurez utiliser les modeles de feuilles, vous pourrez creer les votres. 
Supposons que votre entreprise prefere que l'apparence de chaque boite de dialogue soit 
normalised et presente le nom de l'entreprise, le logo, l'heure et la date en haut de la 
feuille. En creant un modele de feuille contenant ces informations, toutes les feuilles 
utilisees ensuite dans les applications pourront presenter ces elements sans que vous 
ayez a les ajouter chaque fois que vous creez une nouvelle feuille dans un projet. 

Vous apprendrez aujourd'hui : 

le role des modeles de feuilles ; 

pourquoi les utiliser ; 

comment les implementer dans vos projets ; 

comment les ajouter a partir de l'assistant Creation d' applications ; 

comment creer un fichier "Astuce du jour" ; 

• comment ajouter vos propres modeles de feuilles a 1' ensemble fourni avec Visual 
Basic. 
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A propos des modeles de feuilles 

Un modele de feuille est une sorte de gabarit. Lorsque vous demarrez avec im modele de 
feuille, au lieu de partir d'une fenetre vierge, vous economisez du temps, et vos feuilles 
ont une apparence uniforme. 

Supposons que vous vouliez ajouter un ecran Astuce du jour a votre application pour 
permettre aux utilisateurs de lire une astuce differente chaque fois qu'ils demarrent le 
programme. L' Astuce du jour la plus connue est sans nul doute celle qui s'affiche au 
demarrage de Windows 95. D'autres applications celebres utilisent aussi un ecran 
Astuce du jour, qui se presente souvent comme celui de Windows 95 . La plupart ont par 
exemple une case a cocher en bas de la fenetre qui permet d'empecher qu'elle se 
reaffiche lors des demarrages suivants de 1' application. 

Comme vous l'avez deja appris dans ce livre, la creation d' applications normalisees 
presente de nombreux avantages : les utilisateurs s'y adaptent plus rapidement, ils 
seront plus a meme de les apprecier, ils seront enclins a utiliser les mises a jour, ils 
apprendront plus vite a les utiliser et vous aurez moins d'appels de support. Si ces 
raisons ne suffisent pas a vous inciter a utiliser des ecrans et des menus standards, vous 
verrez aussi que vous gagnerez du temps : votre application sera terminee plus vite et 
vous aurez moins de bogues a supprimer. 

La Figure 15.1 montre le modele de feuille Astuce du jour fournie par Visual Basic. Si 
vous aviez a ajouter un ecran Astuce du jour a une application, prefereriez-vous l'utiliser 
ou partir d'une fenetre vierge ? Vous choisirez evidemment le modele. II donne une 
apparence uniforme et demande moins de travail. 



Figure 15.1 

Visual Basic propose 
ce modele de feuille 
Astuce du jour. 



i Astuce du jour 



. P Afficher les ? 



astuces eu demarrage 



33 



Astuce suivante 



— ' ) Comme pour les squelettes d' applications creees par V assistant Creation 
d 'applications , un modele de feuille contient des emplacements pour les 
elements courants, mais vous aurez a le modifier. Vous devrez remplacer 
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les elements inutile s et personnaliser lafeuille pour V adapter aux exigences 
de votre application. Malgre cela, vous acheverez. la feuille bien plus 
rapidement qu'en partant d'une feuille vierge. 

Les modeles de feuilles contiennent des elements visuels, tels que des icones et des 
controles, et le code sous-jacent pour vous aider a l'integrer dans votre application. 

Un modele de feuille n'est rien d 'autre qu' une feuille avec des elements dejd 
places. Ce n'est pas un type de feuille particulier, mais plutot un ensemble de 
feuilles predefinies. Lorsque vous creez des feuilles que vous souhaitez reuti- 
liser, vous pouvez tout simplement les ajouter a la collection des modeles de 
votre sy steme. Nous I ' expliquerons ci-dessous . 

Les modeles de feuilles proposes 

Visual Basic fournit les modeles de feuilles suivants : 

A propos de. Generalement affiche par 1' option de menu Aide, A propos de. 

• Navigateur. Pour une simple navigation sur le Web. 

Feuille de donnees. Pour gerer les tables de type base de donnees. 
Boite de dialogue. Pour creer des boites de dialogue. 

• Boite de dialogue Connexion. Pour demander un nom et un mot de passe. 
Boite de dialogue Connexion ODBC . Pour les activites liees a ODBC . 

• Boite de dialogue Option. Pour gerer les boites de dialogues multipages et les 
parametrages de personnalisation. 

• Ecran d'accueil. Pour afficher un ecran de demarrage au cours du chargement de 
1' application, qui n'apparait habituellement que quelques secondes. 

• Astuce du jour. Pour ajouter une astuce au demarrage. 

ODBC (Open Database Connectivity) signifie connexion ouverte aux bases 
de donnees, et fournit un ensemble de commandes standard pour acceder a 
differents types de donnees enregistres sur divers types d'ordinateurs. 

Le reste de cette lecon decrit comment mettre en place nombre de ces modeles 
de feuilles dans vos applications. Certains sont trop particuliers pour entrer 
dans le cadre de ce chapitre : le Chapitre 19 traite plus en detail de la navi- 
gation sur I'lnternet en utilisant le modele Navigateur ; le Chapitre 18 decrit 
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comment Her les applications Visual Basic aux informations de base de 
donnees, a I'aide des modeles Feuilles de donnees ou ODBC. 

Les sections suivantes passent en revue les modeles de feuilles les plus courants que 
vous utiliserez. Vous apprendrez a utiliser l'assistant Creation d' applications pour ajou- 
ter des modeles et vous verrez en detail comment ajouter et personnaliser la boite de 
dialogue A propos de dans vos applications. Les autres modeles n'en different que par 
les options qu'ils presentent. 

Voici les etapes generales pour ajouter un modele de feuille a votre application : 

1 . Ajouter le modele de feuille dans la fenetre Projet de 1' application ; 

2. Le personnaliser avec les details exiges par votre application ; 

3. Connecter le modele a votre projet par programmation. 

L'assistant Creation d'applications 

Vous pouvez ajouter un modele de feuille a votre application a tout moment. Si vous utili- 
sez l'assistant Creation d'applications, vous devez cependant lui signaler que vous 
souhaitez utiliser un modele de feuille particulier afm qu'il s'occupe de tous les details 
et l'ajoute automatiquement. 

La Figure 15.2 montre la boite de dialogue de l'assistant Creation d'applications dans 
laquelle vous specifiez un modele de feuille. Comme vous pouvez le voir, l'assistant ne 
propose que quatre options : Ecran de presentation au demarrage, Boite de dialogue de 
connexion, Boite de dialogue de parametrage d' options et Boite de dialogue A propos de. 

Vous pouvez cependant ajouter d'autres modeles en cliquant sur le bouton Modeles de 
feuilles. 

' ) La liste qui s'affiche comporte non seulement les feuilles fournies avec 

\tS° Visual Basic, mais aussi celles que vous avez ajoutees a la bibliotheque des 
modeles. 

Ajouter des modeles de feuilles a une application 

L'ajout d'un modele de feuille a une application s'effectue, comme pour toute autre 
feuille, de l'une des deux manieres suivantes : 

• Selectionnez l'option Ajouter une feuille dans le menu Projet et choisissez un 
modele dans la liste des icones de modeles qui s'affiche dans la boite de dialogue, 
illustree a la Figure 15.3. 
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Figure 15.2 

L 'assistant Creation 
a" applications 
ajoutera des feuilles 
a votre application. 



£ Assistant Creation d'applications - Feuilles standard 






Souhaitez-vous integrer I'une de ces feuilles standard dans votre 
application? 





V Ecran de presentation au demarrage 

V Bolte de dialogue de connexion (norn et mot de passe) 
r Bofte de dialogue de parametrage d'options 

V BoTte de dialogue A propos de 

Pour inserer un modele de feuiile personnalise, cliguez ici 
Modeles de feuilles... 



Annuler 




• Cliquez du bouton droit dans la fenetre Projet, selectionnez Ajouter, Feuiile et selec- 
tionnez le modele dans la liste. 

Pour ajouter une feuiile vierge, selectionnez la premiere icone de la liste (intitulee 
Form). Pour ajouter un modele, selectionnez 1' icone correspondante. 
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Modifier les modeles 

Lorsque vous selectionnez Outils, Options et que vous cliquez sur l'onglet Environne- 
ment, Visual Basic affiche la boTte de dialogue illustree a la Figure 15.4. En cochant la 
case Feuiiles, vous indiquez a Visual Basic s'il doit proposer la liste des modeles de 
feuiiles dans 1' assistant Creation d'applications et dans la boite de dialogue Projet, 
Ajouter une feuille. 



Figure 15.4 

Vous pouvez 
contrdler 

les modeles proposes 
par Visual Basic. 



Editeur | Format de I'editeur ] General | Ancrage Environnement | Etendues | 



Au demarrage de Visual Basic: 
f» Invite de creation d'un projet; 
C Creer un projet par defaut 



Au demarrage d'un programme: 
f Enregistrer les modifications 
r Invite d'enregistrement des modifications 
(* Ne pas enregistrer les modifications 

Dossier des modeles: 

| C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VB9S\Ternplate 



Afficher les modeles pour: 
W Feuiiles 
W Feuiiles MDI 
W Modules 
[7 Modules de classe 
W Controles utilisateur 
17 Pages de p/oprietes 
[7 Document utilisateur 





OK i 


Annuler 





Comme le montre cette boite de dialogue, Visual Basic fournit des modeles pour bien 
d'autres objets que les feuiiles. II existe des modeles de modules, de controles, de pages 
de proprietes, etc. Si certains, ne correspondant pas a des feuiiles, ne sont utilises que 
dans des applications assez avancees, vous pouvez constater qu'il existe un modele pour 
presque tout type d'objet que vous pourrez creer. 

Si vous ne cochez pas V option Feuille pour masquer I'affichage des modeles, 
lorsque vous creez un nouveau projet, Visual Basic cree automatiquement 
une feuille vierge dans votre projet sans vous laisser la possibilite de selec- 
tionner un autre type de feuille. 

La boite de dialogue Options montre le dossier oil Visual Basic recherche les modeles 
de feuiiles. II s'attend a ce que tous les modeles se trouvent dans ce dossier. Si vous 
configurez diverses bibliotheques de modeles pour des usages divers (ce qu'un 
programmeur independant pourrait faire s'il travaille avec plusieurs entreprises), vous 
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pouvez enregistrer chacun des ensembles de modeles dans des dossiers differents. 
Quand vous souhaitez travailler avec un de ces ensembles, entrez le chemin dans la 
boite de dialogue Options. 

Faire 

Pour modifier de maniere permanente un modele et V adapter a vos besoins si 
vous utilisez, souvent le meme, enregistrez-en une copie sous un autre nom et 
modifiez cette derniere. Utilisez ensuite la copie. 

Ne pas faire 

Nefaites pas de modifications directement sur le modele d'origine. 




Le modele de feuille A propos de 

Le but de chaque modele de feuille est different, mais la procedure generale de 
connexion du modele a une application est toujours la meme. Dans cette section, vous 
allez ajouter un modele de feuille a une application pour vous familiariser avec le 
processus. Une des boites de dialogue les plus courantes, qui s'affiche dans la plupart 
des applications Windows, est la boite de dialogue A propos de, lorsqu'on selectionne 
l'option de menu Aide, A propos de. La Figure 15.5 montre a quoi ressemble le modele 
dans la fenetre de l'environnement Visual Basic. 



Figure 15.5 

Le modele de feuille 
de la boite de 
dialogue A propos 
de, qui s 'qffiche 
dans la plupart 
des applications 
Windows. 



i A propos de MonApplication 



Titre de I'application 



; Version 
Description de I'application 



Averlissement: 



Infos systeme... 



Pour vous donner une idee de la difference entre le modele et la feuille a laquelle vous 
allez aboutir, voyez la Figure 15.6. Elle montre la boite de dialogue A propos de Visual 
Basic. Comme vous le constatez, le modele fournit les emplacements qui contiendront 
les informations que vous y placerez dans I'application finale. 
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Figure 15.6 

La boite de dialogue 
A propos de Visual 
Basic correspond 
au format du modele 
defeuille. 



A propos de Microsoft Visual Basic 



Microsoft Visual Basic 6.0 

Pour le developpement Windows 32 bits 



m 




Copyright © 1987-1998 Microsoft Corp. 



Licence d'utillsation accurdee a: 



Greg Perry 



Nurnero de serie: 50021111111111118188 



Avertissement: Ce logiciel est protege par la loi du copyright et par 
les conventions Internationales. Toute reproduction ou distribution 
partielle ou totale de ce logiciel, par quelque moyen que ce soit, est 
stricternent interdite. Toute personne ne respectant pas ces 
dispositions se rendra coupable du delit de contrefacon et sera 
passible des peines penales prevues par la bj. 



Infos systeme.. 



Version 8176 



VESA: Retail 6.0.8169 Forms3: 2.01 



Pour mettre en pratique l'ajout d'un modele de feuille A propos de, demarrez une 
nouvelle application et suivez ces etapes : 

1. Ouvrez le Createur de menus, ajoutez Aide a la barre de menus, indiquez A 
propos de comme unique option du menu Aide et nommez-la mnuHelpAbout. 

2. Nommez la feuille du projet f rmTestAbout et changez son titre en Demonstration de la 
boite de dialogue A propos de. 

3. A partir du menu Fichier, choisissez Enregistrer la feuille sous et tapez Feuille A 
propos de comme nom de fichier. 

4. Choisissez Enregistrer le projet sous dans le menu Fichier et tapez Projet A 
propos de comme nom de projet (la boite de dialogue que vous ajouterez utilisera le 
nom de projet) . 

5. Dans le menu Projet, selectionnez Ajouter une feuille pour afficher la boite de dialo- 
gue correspondante. Double-cliquez sur A propos de pour ajouter la boite de dialogue, 
qui n'est rien d' autre qu'une feuille avec des controles. Elle est ajoutee a votre 
application sous le nom f rmAbout. 

6. Utilisez l'option du menu Fenetre pour revenir a votre feuille de depart (f rmTest- 
About). Ajoutez la procedure evenementielle suivante : 

8 Private Sub mnuHelpAbout_Click( ) 
f rmAbout .Show 
End Sub 
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7. Vous pouvez maintenant executer l'application. Lorsque vous choisissez A 
propos de dans le menu Aide, la boite de dialogue s'affiche. Le modele de feuille A 
propos de connait le nom du projet et l'affiche dans la zone de titre. 

8. Cliquez sur OK pour fermer la boite de dialogue A propos de, puis fermez la feuille 
principale pour arreter l'application. 

Le modele de la boite de dialogue A propos de connait le nom du projet et l'affiche dans 
la zone de titre. Le nom provient de l'objet App, que nous etudierons dans la lecon de 
demain. 

Utilisez le Menu Fenetre pour afficher la feuille A propos de dans la zone d'edition. La 
procedure evenementielle Form_Load ( ) de la boite de dialogue contient le code suivant qui 
initialise le titre a partir de l'objet App : 

1: Private Sub Form_Load() 

2: Me. Caption = "A propos de " & App. Title 

3: lblVersion. Caption = "Version " & App. Major & "." & 

App. Minor & "." & App. Revision 
4: lblTitle. Caption = App. Title 
5: End Sub 

La ligne 3 configure les numeros de version majeur, mineur et de revision de l'appli- 
cation dans la procedure evenementielle Form_Load() de la feuille principale. Vous 
pouvez supprimer les references a ces valeurs du module de la feuille A propos de (et les 
etiquettes les affichant) si vous ne souhaitez pas les utiliser. 

Le module de la boite de dialogue A propos de contient du code initialisant automatique- 
ment les valeurs titre et numero de version, mais pas certaines etiquettes telles que la 
description de l'application et la zone d'avertissement. Vous devez initialiser la propriete 
Caption de la description (etiquette lblDescription). Si vous ne souhaitez pas de zone 
d'avertissement ou de copyright, supprimez l'etiquette correspondante (lblDisclaimer). 
Vous pouvez inserer a la place une icone ou une image pour attirer 1' attention de 
l'utilisateur. 

La boite de dialogue A propos de implique plus de code que le simple affichage du nom 
et du numero de version de l'application, par exemple le code permettant de fermer la 
fenetre lorsque l'utilisateur clique sur OK. Mais la veritable puissance de la boite de 
dialogue A propos de reside dans la procedure evenementielle du bouton de commande 
Infos systeme : 

1: Private Sub cmdSysInfo_Click( ) 
2: Call StartSysInfo 
3: End Sub 
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StartSyslnfo est une procedure generale listee un peu plus loin dans le module de code 
de la boite de dialogue A propos de. Elle lance un programme systeme nomme 
MSINF032.EXE qui se trouve dans un dossier de Windows. Vous pourriez remplacer ce 
programme par votre propre code, mais pourquoi ne pas se tenir au programme standard 
d' informations sur le systeme que les utilisateurs sont habitues a voir dans les autres 
applications Windows ? 

Si vous executez une nouvelle fois votre application, affichez la boite de dialogue A 
propos de et cliquez sur le bouton Infos systeme, 1' application correspondante demarre. 
(On dit que c'est un processus enfant de votre application.) La Figure 15.7 montre la 
fenetre Infos systeme. 



Figure 15.7 

Le code 

accompagnant 

la boite de dialogue A 

propos de affiche la 

fenetre Infos systeme. 



02 



Fi chief Edition Affichage Tester 
H] S| P| %| jj *?] . 



l-|n|x| 



Infos systeme 
Systeme 
Impression 

Fichiers DLL du systeme 
E Police 
S Verification 
m Filtres graphiques 
it] Utilitaires de conversion detexte 

Affichage 
S Audio 
a Video 
1 CD ROM 

Applications en cours d'execution 
El Inscriptions OLE 

Modules actifs 



Element 


| Valeur 


■ j^steme d sxpjoit&tion: 


Windows 95 


Version de Windows: 


4.0 


Processeur: 


Pentium 


Memoire physique totale: 


3228-1 Ko 


Memoire physique disponible: 


4216 Ko' 


Memoire USERdisponible: 


55% 


Memoire GDI disponible: 


74% 


Taille du fichier d'echange: 


34816 Ko 


Utilisation du tichier d'echange: 


60% 


Configuration du fichier d'echange: 


Dynamique 


Espace disponible surl'unite C: 


304736 Ko 


Repertoire Windows: 


C:\WINDOWS 


Repertoire TEMP 


C:\WINDOWS\TEMP 


■"Voir«Memoire» dans I'indexde I'aide 





Seledionnez une categone aim d'otticher \ei. elemen's associes 




La fenetre Infos systeme peut differer de celle illustree a la Figure 15.7, 
suivant la configuration de votre machine. 



Autres modeles de feuilles 

Maintenant que vous avez cree un projet utilisant la boite de dialogue A propos de, vous 
n'aurez pas de probleme a placer les trois autres modeles principaux de feuilles. Quand 
vous selectionnez Ajouter une feuille dans le menu Projet, vous avez la possibilite 
d'ajouter plusieurs modeles au projet en cours. 
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Cette section etudie plus en detail les modeles de feuilles suivants : 

l'ecran d'accueil ; 
• la boite de dialogue Connexion ; 

la boite de dialogue Astuce du jour ; 

la boite de dialogue Connexion ODBC. 

Les applications ne doivent pas toujours inclure tous les modeles. La boite de dialogue 
A propos de faisant partie de la plupart des applications Windows, il est bon de prendre 
l'habitude de l'inclure systematiquement. L'utilisation des autres modeles depend 
surtout du but et des exigences de 1' application. Cette section les etudie en detail, pour 
vous permettre de connaitre ceux que vous voudrez ajouter a vos projets. 



Dans cette section, vous apprendrez comment connecter les differents 
modeles a vos applications . Si vous les ajoutez au moment oil vous utilisez 
I'assistant Creation d 'applications , vous vous epargnerez une partie du 
travail pris en charge par I'assistant. II sera ainsi plus facile d'inserer les 
modeles dans vos projets. 



Ecran d'accueil 



Un ecran d'accueil affiche un message d' introduction et eventuellement des informa- 
tions de copyright et de contact sur le projet. (Bien qu'on parle d' ecran, c'est en fait une 
feuille de la collection Forms de votre projet). Son objet premier est de saluer l'utilisa- 
teur. Contrairement a la boite de dialogue A propos de, l'ecran d'accueil ne s' affiche 
qu'au demarrage de 1' application. 

Un ecran d'accueil affiche souvent une image accompagnee d'un ecran de presentation. 
La Figure 15.8 montre l'ecran d'accueil affiche au demarrage de Microsoft Word. II 
comporte une image pour attirer 1' attention et des informations sur le produit. 



Figure 15.8 

Un ecran d'accueil 
identique a celui-ci 
apparait lorsque 
V application Word 
se charge. 




d utilisation .acorn dee .a: 



Greg Perry 

Product ID: 53701-025-0137073-97433 

Copyright © 1333-97 Microsoft Corporation , Jo us droits reserves. 

fijo-urirrrr » ei! piuteq.i i I*: ui: B.v- Lr.n d /Vi.jrqu-:- lei: intern i'lon 

relatives au droit d'auieur. wuille; consulter la boite de dialogue "Apropos de Microsoft Word" 
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Un ecran d'accueil disparait generalement au bout d'un court moment. Vous pouvez 
ajouter un bouton de commande ou du code qui verifie une action clavier pour permettre 
a l'utilisateur de s'en debarrasser a sa convenance. Mais on utilise generalement un 
controle Timer pour afficher 1' ecran d'accueil pendant une duree determinee. L' ecran 
d'accueil sert aussi a masquer l'attente au demarrage due a l'initialisation des fichiers et 
des donnees. 

L' ecran d'accueil impose une contrainte absente de la boite de dialogue A propos de. 
Vous devez indiquer a votre application de l'afficher avant la fenetre normale. II doit etre 
configure en tant que fenetre de demarrage dans la boite de dialogue Proprietes, a 
laquelle on accede par l'option Proprietes du menu Projet. Des que le modele Ecran 
d'accueil est ajoute au projet, la boite de dialogue contient la feuille dans la liste des 
objets de demarrage. Vous devez aussi ajouter un bouton de commande ou un Timer a 
l'ecran d'accueil pour afficher la fenetre suivante quand il est temps de le faire. 

Suivez ces etapes pour mettre en pratique la creation d'un projet contenant un ecran 
d'accueil : 

1 . Creez un nouveau projet. Vous laisserez telle quelle la feuille Forml . 

2. Dans le menu Projet, choisissez Ajouter une feuille, puis selectionnez l'ecran 
d'accueil. Visual Basic affiche l'ecran echantillon. 

3. Modifiez les etiquettes pour qu'elles correspondent a celles de la Figure 15.9. 



Figure 15.9 

L'ecran d'accueil 
est modifie. 



I 



Licence accordee a Albert Paris 



Bulle finances 

Boursi-coteur 



Windows 95, 98 et NT 

Version 1.0.0 

Copyright 2001 

Encephalogramme Plat et associes 
Avertissement : protege par les lois du droit d'auteur, du copyright etc. 




4. Choisissez Proprietes dans le menu Projet. Indiquez frmSplash (c'est le nom de 
l'ecran d'accueil) comme Objet de demarrage et cliquez sur OK. 
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5. Ajoutez la ligne suivante dans les evenements Form_Keypress( ) et Framel _Click( ) 
(a la suite de l'instruction Unload Me des deux procedures) : 



Forml.show 'Affiche la feuille normale 



6. Executez l'application. La premiere feuille a s'afficher est l'ecran d'accueil. Si vous 
appuyez sur une touche ou cliquez, il s' efface et laisse la place a la feuille normale, 
Forml . Fermez la feuille pour revenir dans l'environnement de developpement de 
Visual Basic. 



L'ecran d'accueil prend automatiquement le nom de programme du projet, 
quel que soit le texte que vous saisissez dans V etiquette centrale. Vous devez, 
done enregistrer le projet sous le nom Boursi-coteur ou modifier le code 
pour conserver V etiquette d'origine. 

Boite de dialogue Connexion 

Le besoin de securite s'accroit avec le nombre d'ordinateurs connectes. La boite de 
dialogue Connexion est un modele interessant a ajouter a vos projets. Elle demande la 
saisie d'un nom d'utilisateur et d'un mot de passe et renvoie les valeurs a l'application 
pour traitement. La Figure 15.10 montre la boite de dialogue Connexion. 




Figure 15.10 

Utilisez la boite de 
dialogue Connexion 
pour demander 
un nom d'utilisateur 
et un mot de passe. 




Quand un utilisateur entre son nom et son mot de passe, le premier s' affiche, mais le 
second est masque sous des asterisques (grace a la propriete PasswordChar de la boite de 
dialogue), pour proteger la saisie d'un ceil fouineur. Votre programme a cependant acces 
au mot de passe tel qu'il a ete saisi. Le mot de passe d'origine est password ; vous pouvez 
l'utiliser pour les tests. Le Listing 15.1 montre le code du module sous-jacent. 



Listing 15.1 : La boite de dialogue Connexion permet a l'utilisateur 
de se connecter a votre application 



Option Explicit 

Public LoginSucceeded As Boolean 
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Listing 15.1 : La boite de dialogue Connexion permet a l'utilisateur 
de se connecter a votre application (suite) 



4: Private Sub cmdCancel_Click( ) 

5: 1 Affecte la valeur False a la variable globale 
6: 1 pour indiquer l'echec de la connexion. 
7: LoginSucceeded = False 
8: Me. Hide 

9: End Sub 
10: 

11: Private Sub cmdOK_Click( ) 

12: 1 Verifie si le mot de passe est correct. 

13: If txtPassword = "password" Then 

14: ' Placer le code ici pour signaler 

15: ' a la procedure appelante la reussite de la fonction. 

16: ' Definir une variable globale est plus facile. 

17: LoginSucceeded = True 

18: Me. Hide 

19: Else 

20: MsgBox "Mot de passe non valide, reessayez !", , "Connexion" 

21: txtPassword. SetFocus 

22: SendKeys "{Home}+{End}" 

23: End If 

24: End Sub 



Le module de feuille utilise une variable globale nominee LoginSucceeded (declaree a la 
ligne 2) dont la valeur True ou False peut etre testee dans votre application au retour 
de la boite de dialogue. Si l'utilisateur clique sur le bouton Annuler, la procedure 
cmdCancel_Click( ) parametre LoginSucceeded a False a la ligne 7 et masque la feuille 
de connexion. 

Pour adapter le code a vos besoins propres, suivez ces etapes : 

1 . Modifiez la chaine de caracteres du mot de passe dans la procedure evenementielle 
cmdOK_Click( ) pour l'adapter a votre application. Le mot de passe est souvent place 
dans un fichier et chiffre. Si vous enregistrez le fichier dans un fichier indexe, binaire 
ou de base de donnees, personne ne pourra lire le mot de passe a partir d'un simple 
editeur de texte, comme c'est le cas avec un fichier texte. 

2. Modifiez le texte de la boite de message que vous voulez afficher si l'utilisateur se 
trompe de mot de passe. 

3. Pour des raisons de securite, pensez a mettre la routine de control e du mot de passe 
dans une boucle For pour ne laisser a l'utilisateur qu'un nombre limite de tentatives 
et interdire ensuite l'affichage de la boite de connexion. Cela rend plus difficile de 
percer le mot de passe. 
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Ce n 'est pas parce que Microsoft a insere une variable globale dans le code 
de la boite de dialogue que cela en justifie I'emploi. Comme I'explique la 
remarque de la procedure cmdOK_Click ( ), la variable globale est la methode 
la plus facile pour informer V application du succes de la connexion, mais une 
programmation de qualite demande que vous remplaciez la variable globale 
par des variables locales. La meilleure maniere de modifier ce code afin d'en 
ameliorer la maintenance consiste sans doute a changer la sous-routine 
en une fonction booleenne. L' application appelante peut alors tester si la 
valeur de retour de la fonction est True ou False. 

Le code a la fin de la procedure cmdOK_Click( ) peut paraitre troublant, car son style 
differe de ce a quoi vous avez ete habitue — et vous y trouverez de nouvelles instruc- 
tions. Jusqu'ici, MsgBox () a ete utilise comme une fonction, mais le code contient 
1' instruction suivante : 

MsgBox "Mot de passe non valide, reessayez !", , "Connexion" 

Si Visual Basic supporte encore ce format de l'instruction MsgBox, Microsoft tente 
d'amener les programmeurs a utiliser de preference la fonction MsgBox ( ) . Pour la trans- 
former en fonction, vous devez l'assigner a une variable (un type Variant conviendra) et 
ajouter des parentheses, comme ceci : 

varKeys = MsgBox("Mot de passe non valide, reessayez !", , 
"Connexion" ) 

L'instruction MsgBox ne permet pas de determiner le bouton de commande 
utilise pour fermer la boite de message. Par contre, la fonction MsgBox () 
renvoie le bouton sur lequel I'utilisateur a clique. Si OK est V unique bouton 
affiche, il est inutile de tester la valeur retournee. 

L'instruction suivante renvoie l'activite clavier a la zone de texte du mot de passe (cela 
ne survient que si I'utilisateur a saisi un mot de passe incorrect) par la methode SetFo- 
cus. Cette methode oblige l'application a rendre l'activite du clavier au controle auquel 
elle s' applique, meme si elle doit normalement passer a un autre controle. 

La derniere instruction utilise l'instruction SendKeys pour selectionner le texte du mot 
de passe saisi par I'utilisateur, quelle qu'en soit la longueur. SendKeys deplace le curseur 
au debut de la zone de texte, puis a la fin — ce qui a pour effet de selectionner toute la 
zone. La premiere frappe de I'utilisateur remplacera le contenu precedent. 



L'instruction SendKeys est expliquee en detail dans la lecon du Chapitre 7. 
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BoTte de dialogue Options 

De tous les modeles de feuilles, la boite de dialogue Options est celle qui effectue le 
moms de taches par elle-meme, mais qui a le plus de possibilites d'utilisations. Lorsque 
vous l'ajoutez, vous verrez le modele illustre a la Figure 15.11. La boite de dialogue 
comporte quatre pages, avec des onglets et un cadre dans le corps de chaque page. Vous 
pouvez ajouter des pages et des controles dans les cadres des pages, avec les options 
dont vous avez besoin. 



Figure 15.11 

La boite de dialogue 
Options affiche des 
pages pour presenter 
diver ses options. 




De nombreux programmes Windows contiennent une boite de dialogue Options, a 
laquelle on accede par le menu Outils, qui ressemble beaucoup a celle creee par ce 
modele. Ce n'est peut-etre qu'un noyau, mais c'est le point de depart qui vous permettra 
de creer une boite de dialogue plus complete. 

La boite de dialogue Options utilise un controle ActiveX particulier, la Barre d'onglets 
(TabStrip). Pour ajouter un controle Barre d'onglets a une application — sans passer par 
ce modele de feuille — vous devez 1' ajouter dans la boite a outils a partir de la boite de 
dialogue Composants. Dans le menu Projet, Composants, choisissez Microsoft 
Windows Common Controls 6.0. 

Pour utiliser la boite de dialogue Options, suivez ces regies generales : 

• Ajoutez autant de pages d'options que vous en avez besoin. La maniere la plus 
simple de modifier les onglets et les pages consiste a cliquer sur un des onglets puis 
sur les points de suspension de la propriete (Personnalise) . La boite de dialogue 
Pages de proprietes qui s' affiche vous aide a configurer les pages, les onglets et les 
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info-bulles que vous voulez utiliser dans la boite de dialogue Options (voyez la 
Figure 15.12). 



Figure 15.12 

Utilisez la boite de 
dialogue Pages 
de proprietes pour 
configurer les pages 
de la boite de 



Pages de proprietes 



General | Onglets | Police | Picture | 
(~ jMuHtBowj F ShowTips 



MousePointer: 
Style: 

TabWidthStyle: 
Image Li st: 
OLEDropMode: 
Placement: 
TabStyle: 



0 - ccDefault 



0 -tabJu;:tiiied 



0-ccOLEDropNon8 



0 - tabPlacementTop 



Q-tabTabStandard 



3 
"3 



~3 
3 



TabFixedWidth: 
TabFixedHeight 
TabMinWidth: 
r HotTracking 
r Separators 
T MultiSelect 



Appliquer 



• Ajoutez une procedure generale qui lit tous les controles de la boite de dialogue 
Options et configure les options correspondantes. 

• Appelez la procedure de configuration des options a partir de la procedure 
cmdApply_Click( ) pour que les options prennent effet lorsque l'utilisateur clique sur 
le bouton Appliquer. (Vous pouvez aussi supprimer le bouton Appliquer et sa proce- 
dure associee si vous ne voulez pas que l'utilisateur ait acces a cette caracteristique.) 

• Remplacez l'instruction suivante, dans la procedure evenementielle cmdOK _Click( ) , 
par un appel a votre propre procedure de configuration des options : 

MsgBox "Placez le code ici pour definir les options et termer la 
boite de dialogue! " 

• Modifiez la procedure evenementielle Form_KeyDown( ) pour qu'elle gere l'ordre 
d'affichage des pages de la boite de dialogue quand l'utilisateur se sert des touches 
Ctrl-Tab. Ce code n'est pas evident, car vous devez determiner precisement le passage 
de l'activite d'un controle a l'autre par des instructions du programme. 

La procedure evenementielle tbsOptions_Click ( ) affiche la bonne page (et 
masque les autres) dans le controle Barre d'onglets a Vexecution du 
controle. 
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Vous pouvez aussi mettre en pratique l'ajout de modeles de feuilles en utilisant l'assistant 
Creation d'applications. Pour cela, creez un nouveau projet et demarrez l'assistant. 
Acceptez les valeurs par defaut jusqu' a ce que vous arriviez a la boite de dialogue Feuilles 
standard. Cochez les quatre cases de modeles standards, puis double-cliquez sur Suivant, 
et enfin sur Terminer. Visual Basic cree le noyau de 1' application. Une fois l'assistant 
acheve, cliquez sur OK pour lire les instructions de configuration avant de fermer la boite 
de dialogue. 

L'assistant Creation d'applications ne cree qu'un noyau d' application. Vous devez 
completer les details. Cependant, ce noyau comporte les quatre modeles de feuilles 
standards proposes par defaut. 

Testez l'application en l'executant pour voir ce qui fonctionne deja. N'entrez pas de mot 
de passe (il est vierge par defaut tant que vous ne l'ajoutez pas au module de code), mais 
vous pouvez observer que l'ecran d'accueil a recupere le nom de l'utilisateur dans l'objet 
App et l'a automatiquement affiche dans la zone de texte Nom d'utilisateur. 

L'ecran d'accueil ne s'affiche que brievement avant de laisser la place a la feuille prin- 
cipal . La boite de dialogue A propos de s'affiche si vous choisissez A propos de dans le 
menu Aide, et la boite de dialogue Options apparait quand vous choisissez Options 
dans le menu Affichage. Ce projet, meme si ce n'est qu'un noyau d' application, vous 
offre une quantite de code de qualite a etudier pour la mise en place de vos propres 
applications qui demandent un ou plusieurs modeles de feuilles standards. 

' I L'assistant Creation d'applications listera vos modeles personnels (si vous 

en avez cree) parmi les modeles standards fournis lorsque vous cliquez sur le 
bouton Modeles de feuilles dans la boite de dialogue Feuilles standard. 

Ecran Astuce du jour 

Avez-vous deja demarre un logiciel et ete salue par une astuce sur la maniere de mieux 
l'utiliser ? Windows 95 offre exactement ce type d'astuce (tant que vous ne coupez pas 
l'option d'affichage). Chaque fois que vous demarrez Windows 95, vous voyez une 
astuce differente. Pour interrompre cet affichage, decochez la case Afficher les astuces au 
demarrage. La Figure 15.13 montre le modele de feuille Astuce du jour. 

Lorsque vous ajoutez la boite de dialogue Astuce du jour dans une fenetre feuille, Visual 
Basic l'ajoute a la collection Forms. Selon la taille de votre ecran et les parametres de 
police par defaut, vous pouvez avoir a agrandir l'etiquette qui contient le texte Afficher 
les astuces au demarrage. Cliquez en dessous de l'etiquette Savez-vous... pour 
selectionner l'etiquette lblTipText. C'est dans cette zone de texte que sera affichee 
1' astuce. 
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Figure 15.13 

Une boite de dialogue 
Astuce du jour peut 
fournir une assistance 
aux nouveaux 
utilisateurs 
du programme. 



* Astuce du jour 



33 



Astuce suivante 



P Afficher les astuces au demarrage 



Le code du module configure la feuille pour afficher une nouvelle astuce du jour chaque 
fois que l'utilisateur demarre l'application. Les regies suivantes aident a comprendre les 
exigences liees a la boite de dialogue Astuce du jour : 

• Le code de la boite de dialogue cree une nouvelle collection nominee Tips. La 
procedure y recupere 1' astuce a afficher. 

• Naturellement, la collection Tips doit lire les astuces dans un fichier que vous devez 
creer et fournir avec le projet. II doit contenir une astuce par ligne. 

• Le code charge le nom du fichier de la constante nominee TIP_FILE dans la fonction 
Load_Tips(). La procedure utilise la methode Add pour ajouter chaque astuce a la 
collection en lisant le fichier. Votre seule veritable tache consiste a creer ce fichier 
d'astuces a l'aide d'un editeur de texte tel que le Bloc -notes de Windows. 

• La procedure DoNextTipO selectionne de maniere aleatoire une astuce dans la 
collection et l'affiche a l'aide d'une methode particuliere, DisplayCurrentTip (qui 
est en fait une sous-routine se trouvant a la fin du code) . 

• La partie la plus technique du code est la plus courte. Elle se trouve dans la proce- 
dure chkLoadTipsAtStartup( ) . Microsoft en fournit heureusement le code. II utilise 
la commande SaveSetting pour modifier la base de registres du systeme. Elle 
enregistre dans ce cas la valeur qui determine s'il faut ou non afficher cette feuille au 
demarrage. Si la case Afficher les astuces au demarrage est decochee, la base de 
registres est modifiee en consequence et le code n'affichera plus les astuces dans les 
sessions suivantes. 

Le modele de feuille Astuce du jour est sans doute le plus courant des modeles qui 
restent a decrire dans cette lecon. Suivez ces etapes pour mettre en pratique la confi- 
guration d'une boite de dialogue Astuce du jour sur votre systeme : 
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1. Demarrez le Bloc-notes de Windows. Creez un fichier Tipofday.txt (c'est le nom 
par defaut utilise par la boite de dialogue Astuce du jour). Enregistrez ce fichier dans 
le repertoire de l'application. Saisissez ensuite le contenu suivant, puis enregistrez le 
fichier et quittez le Bloc-notes : 

Brosser vos dents tous les jours et vos chaussures toutes les semaines. 
Epargner pour votre retraite (personne ne s'en soucie plus que vous). 
Dormir beaucoup est un excellent traitement de l'insomnie. 
Lire un bon livre avant de voir le film. 

Ne pas conduire en casse-cou... ou casse-briques ; conduisez sans casse. 
Faire de l'exercice plus souvent que vous prenez un dessert. 

2. Creez une nouvelle application et affichez la fenetre de feuille standard. Avant tout, 
enregistrez la feuille et le projet dans le meme repertoire que le fichier des astuces. 
C'est necessaire pour permettre au code de les trouver. 

3. Dans le menu Projet, choisissez Ajouter une feuille, puis Astuce du jour. 

4. Modifiez la propriete Caption Savez-vous... de l'etiquette en N 1 oubliez pas de.... 

5. Executez l'application pour voir les resultats. 

Pas de boite de dialogue Astuce du jour ? Vous avez bien cree le fichier des astuces et 
ajoute la boite de dialogue a votre application, mais Visual Basic affiche d'abord la 
feuille principale du projet (Forml , si vous n'avez pas modifie son nom). II reste a definir 
la feuille Astuce du jour comme feuille de demarrage et configurer le code qui affiche la 
feuille normale quand l'utilisateur ferme la boite de dialogue Astuce du jour. 

Dans le menu Projet, selectionnez Proprietes, et configurez frmTip comme Objet de 
demarrage. Cliquez sur OK pour fermer la boite de dialogue. L'application est desor- 
mais configured pour afficher la boite de dialogue Astuce du jour au demarrage. 

Vous devez connecter la feuille principale (Forml) a la boite de dialogue Astuce du jour 
pour qu'elle s'affiche une fois cette derniere fermee. Modifiez la procedure 
cmdOK_Click( ) comme suit : 



Private Sub cmdOK_Click( ) 

Unload Me ' Ferme la boite de dialogue Astuce du jour 
Forml. Show 1 Montre la feuille principale 

End Sub 



II reste une chose a faire. Si l'utilisateur decide de ne plus afficher les astuces au 
demarrage, il n'y a alors plus moyen d'afficher la feuille principale. Vous devez done 
ajouter a la procedure Form_Load ( ) une instruction Forml . show, comme ceci : 



5 



Private Sub Form_Load() 

Dim ShowAtStartup As Long 
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4: ' Voit si la feuille doit apparaitre au demarrage. 

5: ShowAtStartup = GetSetting(App.EXEName, "Options", "Show 

w-Tips at Startup" , 1 ) 

6: If ShowAtStartup = 0 Then 
7: Unload Me 

8: Forml.Show 'Montre la feuille normale ** Nouvelle instruction 

9: Exit Sub 

10: End If La suite du code n'est pas reprise ici 

Vous pouvez maintenant executer 1' application et lire les astuces de maniere aleatoire en 
cliquant sur le bouton de commande Astuce suivante. Quand vous cliquez sur OK, la 
feuille principale s'affiche. Si un utilisateur decide de ne plus consulter les astuces dans 
les sessions suivantes, la feuille principale s'affiche directement au demarrage. 

Vous pouvez aussi configurer V application pour qu'elle ajfiche V astuce et la 
feuille normale d' autres f aeons . Par exemple, en ajoutant les methodes Show 
adequates a une sous-routine Main et en utilisant cette sous-routine comme 
objet de demarrage. 

BoTte de dialogue Connexion ODBC 

ODBC fournit un ensemble standard de commandes permettant l'acces a differents 
types de donnees enregistrees sur des ordinateurs de types varies. Le but du standard 
ODBC est de permettre a de nombreux types de systemes d'acceder a des donnees stoc- 
kees ailleurs. 

La Figure 15.14 montre le modele de feuille qui s'affiche lorsque vous inserez la boite 
de connexion ODBC dans votre fenetre feuille. 




Figure 15.14 

Le modele de feuille 
Connexion ODBC 
vous permet de 
configurer un acces 
a une base de donnees 
externe. 



Connexion ODBC 



Valeurs de connexion 

DSN: |rboOSNLi3i 

P: l 



Motde passe: 
Base de donnees: | 
Pilote: |cboDrivers 
Setveur: 
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La boite de dialogue Connexion ODBC peut etre ajoutee a une application pour permet- 
tre aux utilisateurs de selectionner une source de donnees ODBC et d'y acceder. La 
source indique l'emplacement et le type des donnees auxquelles l'application veut 
acceder. Le Tableau 15.1 decrit chaque champ ODBC. 



Tableau 15.1 : Les zones de texte de la boite de dialogue Connexion ODBC 
specifient les options ODBC 



Nom 


Description 


DSN 


Nom de la source de donnees. Cette option liste (dans une boite de liste 




deroulante) les sources ODBC actuellement enregistrees dans la base 




de registres de l'utilisateur. 


ID 


Identifiant de l'utilisateur tel qu'il est defini dans la base de donnees 




ODBC, pour lui permettre de valider la connexion. 


Mot de passe 


Mot de passe de l'utilisateur permettant d'acceder au systeme. 


Base de donnees 


Nom de la base de donnees a laquelle il faut se connecter. 


Pilote 


Liste deroulante qui presente tous les pilotes presents sur le systeme 




et qui permet a l'utilisateur d'enregistrer un nouveau pilote ODBC. 


Serveur 


Nom du serveur qui fournit la base de donnees si la DSN n'est pas 




disponible. 



Le code necessaire pour connecter les valeurs contenues dans la boite de dialogue 
ODBC a la bonne base de donnees compatible ODBC est assez complet. Vous devez 
comprendre le sens des commandes ODBC necessaires a la connexion de la base de 
donnees externe. Elles depassent cependant le cadre de cet ouvrage, car les program- 
meurs Visual Basic ont rarement a recourir a de telles routines, sauf dans les applications 
systeme. 

Ajouter vos propres modeles de feuilles 

II est facile d'ajouter vos propres feuilles a la collection de Visual Basic. Une fois que 
vous avez cree une feuille que vous souhaitez ajouter aux modeles, enregistrez-la dans 
le dossier \Template\ Forms. Chaque fois que vous ouvrirez la liste des modeles, meme a 
partir de l'assistant Creation d' applications, la feuille apparaitra desormais avec les 
autres. 
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i — i N'ajoutez au dossier des modeles que des feuilles assez generates, sans trop 
^5"l\J ce de details, a moins que vous ne souhaitiez expressement voir tous ces details 
' dans les feuilles que vous creerez a partir du modele. 

' I Pour supprimer une feuille ajoutee dans le dossier des modeles, demarrez, 

I'Explorateur Windows et allez dans le dossier \Template\Forms . Selec- 
tionnez, la feuille et supprimez-la. La prochaine fois que vous afficherez la 
liste des modeles, elle aura disparu. 



En resume 

La legon d'aujourd'hui vous a explique comment utiliser les modeles de feuilles pour 
normaliser les applications et accelerer le developpement et la precision des programmes. 
Les modeles de feuilles component plusieurs feuilles standards que les programmeurs 
ajoutent souvent aux applications Windows. Vos utilisateurs apprecieront de voir des 
feuilles normalisees dans vos applications. 

Les modeles sont des feuilles d'usage general qui peuvent s'ajouter a tout projet. lis 
contiennent des receptacles pour le texte et les images qui peuvent etres modifies une 
fois que le modele est charge dans le projet. Votre application commande Taffichage de 
la feuille et interagit avec le code du modele de feuille. 

La lecon de demain debute une etude sur deux jours des objets et de leur relation a la 
programmation Visual Basic. 



Questions-reponses 

Q Pourquoi dois-je rendre les modeles de feuilles generaux ? 

R En rendant vos modeles de feuilles aussi generaux que possibles (en ne conservant 
que les details qui ne changent pas d'une application a l'autre), vous simplifiez la 
generation des nouvelles feuilles a partir des modeles. Dans la lecon d'aujourd'hui, 
vous avez vu plusieurs modeles fournis avec Visual Basic. La plupart des textes 
qu'ils contiennent sont des receptacles qui indiquent oil il faut que vous interveniez 
pour personnaliser la feuille. 
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Atelier 

L' atelier propose une serie de questions qui vous aident a renforcer votre comprehension 
des elements traites et des exercices qui vous permettent de mettre en pratique ce que vous 
avez appris. Essayez de comprendre les questions et les exercices avant de passer a la 
lecon suivante. Les reponses se trouvent a 1' Annexe A. 

Quiz 

1 . Quel est le but des modeles de feuilles ? 

2. Decrivez deux manieres d'ajouter des modeles de feuilles a vos applications. 

3. Decrivez le code necessaire pour connecter la boite de dialogue A propos de a un 
projet. 

4. Vrai ou faux. Vous devez ecrire le code qui affiche les informations systeme quand 
l'utilisateur clique sur le bouton Infos systeme de la boite de dialogue A propos de. 

5. Quelle est la difference entre un ecran d'accueil et une feuille normale ? 

6. Considereriez-vous que la boite de dialogue Astuce du jour est un ecran d'accueil ? 

7. Quel est le but de la commande SaveSetting ? 

8. Quelle est la signification d'ODBC et quel est son but ? 

9. Que devez- vous faire dans la boite de dialogue Proprietes pour que votre application 
puisse afficher correctement un ecran d'accueil ou une boite de dialogue Astuce du 
jour ? 

10. Decrivez le format du fichier des astuces necessaire a la boite de dialogue Astuce du 
jour. 

Exercices 

1 . Suivez le conseil donne dans la partie concernant la boite de dialogue Connexion pour en 
transformer le code en un meilleur ensemble de routines. Remplacez la variable globale 
par des variables locales. 

2. Creez une application qui affiche sur le PC une astuce differente chaque fois que 
l'application demarre. (Vous pouvez modifier le fichier des astuces decrit dans la lecon 
d'aujourd'hui.) Ajoutez une option de menu a la feuille principale pour que les astuces 
puissent se reafficher au demarrage. Indice : regardez la procedure chkLoadTipsAt- 
Startup ( ) et utilisez la commande SaveSetting pour reinitialiser les astuces. Meme si 
vous ne maitrisez pas cette commande, vous disposez de tous les outils necessaires a 
l'achevement rapide de ce projet. 
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Chapitre 16 



Visual Basic et les objets 



Ce chapitre vous montre comment travailler avec les objets dans Visual Basic. Vous avez 
deja utilise certains objets en manipulant les feuilles, les controles et l'objet Printer. Nous 
etendrons aujourd'hui cette connaissance ; vous apprendrez un nouveau controle nomme 
controle OLE, qui permet d'utiliser des objets externes a l'environnement Visual Basic. 

En outre, vous etudierez plus en profondeur les objets predefinis de Visual Basic, tels que 
Screen ou App. lis envoient a vos applications des informations que vous pouvez utiliser 
pour prendre des decisions ou afficher des titres et des informations utilisateur sur la 
feuille. Une fois que vous saurez comment utiliser les objets predefinis, vous apprendrez 
comment travailler avec les collections d'objets. 

Vous apprendrez aujourd'hui : 

le controle OLE ; 

• les differences entre la liaison et 1' incorporation d'objet ; 

• comment placer les objets d'autres applications dans vos applications ; 

• 1' activation in situ ; 

• comment utiliser les groupes de controles ; 
comment gerer des collections, ; 

• comment gerer l'Explorateur d'objets. 
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OLE pour les objets externes 

OLE est un terme familier aux utilisateurs et aux programmeurs de Windows. Vous pouvez 
incorporer des objets OLE dans vos applications pour augmenter la puissance de vos 
programmes et reduire la programmation. En utilisant des objets OLE deja definis par 
d'autres applications, vous tirez avantage de la reutilisation d'objets. 



0fr 



OLE (Object Linking and Embedding) signifie Liaison et incorporation 
d'objets. De nombreuses applications Windows ojfrent leurs donnees sous 
forme d'objets OLE, que vous pouvez incorporer dans d'autres applications 
compatibles OLE. 

La technologie ActiveX remplace rapidement OLE. En fait, Microsoft 
appelle les contrdles ActiveX les "controles anciennement OLE". En tout 
cas, OLE est toujours la et de nombreuses applications Visual Basic 
I'utilisent encore, comme le prouve la decision de Microsoft de conserver 
par defaut le controle OLE dans la fenetre Botte a outils. La lecon 
d'aujourd'hui est non seulement importante en soi, mais elle constitue aussi 
une excellente introduction a la lecon de demain qui concerne les objets 
ActiveX. 



La raison d'etre de l'utilisation d'OLE reside dans la possibilite d'employer des objets 
exterieurs dans les applications que vous concevez. Le controle OLE de la fenetre Boite 
a outils gere la connexion a l'objet OLE de votre projet. Les utilisateurs peuvent tirer 
avantage de l'activation in situ lorsqu'ils accedent a des objets OLE incorpores. 
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L'activation in situ fait reference a la capacite de modifier un objet a 
I'interieur d'une application Visual Basic en utilisant les menus et les 
commandes de V application parente. Quand l'objet OLE est incorpore dans 
une application, vous n'avez pas a ecrire d'options de menu pour guider 
V utilisateur dans la modification de l'objet — ceux de V application 
d'origine apparaitront automatiquement . 



Liaison et incorporation 

Le controle OLE peut, suivant sa configuration, maintenir un lien vers un objet ou 
l'incorporer. Lorsque vous etablissez un lien vers une autre application, le controle OLE 
(le conteneur) contient une liaison avec un de ses documents. Si ce dernier est modifie 
dans l'application d'origine, votre application le refletera. L'objet est dit permanent, car 
son contenu peut etre maintenu a jour par la liaison. 
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Un contrdle conteneur est un controle OLE qui contient Vobjet de donnees 
d'une autre application. 

Un objet permanent est un objet exterieur a votre projet qui ne disparait pas 
simplement parce que votre application se termine. 

Lorsque vous incorporez dans votre application un objet OLE, le controle conteneur 
OLE contient une copie de l'objet document cree dans 1' autre application compatible 
OLE. Mais aucune liaison n'est maintenue entre votre application et l'objet d'origine. 
Done, si ce dernier est modifie dans son application originelle, cela ne se refletera pas 
dans votre application, car vous disposez d'une copie de cet objet. 

Voici comment les deux types d'activite OLE affectent vos projets : 

• Si vous liez un objet au controle OLE de votre application, Visual Basic demarre en 
fait 1' application parente lorsque l'utilisateur tente d'utiliser ou de modifier l'objet 
en double-cliquant dessus. L'utilisateur doit choisir l'option de menu Fichier, 
Fermer et revenir a l'application lorsqu'il a fini de travailler sur l'objet. 

• Si vous incorporez un objet dans le controle OLE de votre application, il en fait 
partie integrante, car il reside dans votre application. 



Le contrdle OLE 

Ouvrez une nouvelle application et double-cliquez sur le controle OLE pour l'ajouter a 
la feuille. Une grande zone blanche s'affiche un instant sur la feuille, puis la boite de 
dialogue Inserer un objet, illustree a la Figure 16.1, s'affiche. Certains controles 
affichent une boite de dialogue lorsque vous cliquez sur la rubrique de propriete 
( Personnalise ) , mais le controle OLE est le seul qui affiche automatiquement une boite 
de dialogue des qu'il est place sur la feuille. 



Figure 16.1 

La boite de dialogue 
Inserer un objet 
contient toutes 
les applications OLE 
inscrites sur votre 
sy steme. 



Inserer objet 



<* CreerNouveau 



<" Creerapartird'unfichier 




Type d'objet: 



Clip multimedia 
Controle calendrier 8.0 
Dessin Microqrafx Windows Draw 5 



J 



Document Microsoft Word 6.0- 
Document Microsoft Word 
Document WordPad 
Ensemble OLE 



7.0 



Insere un nouvel objet Document Adobe Acrobat 
dans votre document. 



' Afficheren icone 
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La zone de liste Type d'objet contient les applications compatibles OLE parmi 
lesquelles vous devezfaire votre selection. La liste varie suivant les logiciels 
installes sur votre machine. Une application met a jour la base de registres 
avec ses objets lors de son installation. Une application Windows pent produire 
deux ou plusieurs controles personnalises. Par exemple, si PowerPoint 97 est 
installe, vous trouverez. deux controles PowerPoint dans la liste. 



L' option Creer nouveau vous permet de specifier une application pouvant creer le type 
d'objet que vous voulez incorporer. Si l'objet de donnees de l'autre application existe 
deja, vous pouvez cliquer sur l'option Creer a partir d'un fichier. Une page de selection 
de fichier s'affiche alors (voyez la Figure 16.2). A partir de cette fenetre, vous pouvez 
incorporer l'objet ou cocher la case Lien pour ajouter un pointeur sur l'objet. 



Figure 16.2 

Vous pouvez 
incorporer ou lier 
un objet existant dans 
votre controle OLE. 



Inserer objet 



C Creer Nouveau 

(* Creer a partir d'un fichier 



Fichier: Base de donnees 

|C:\Program Files\Microsott Visual Studio 



F Afficheren icone 



-k Insere le contenu du fichier en tant qu'objet dans 
votre document pour que vous puissiez I'activer en 
utilisant le programme qui I'a cree. 



Supposons que vous voulez creer des notes dans une application, qui peuvent par exem- 
ple se rapporter a un enregistrement client. Vous pouvez : 

laisser l'utilisateur saisir la note dans un simple controle zone de texte ; 

• ameliorer le concept de zone de texte simple en ecrivant une routine de capture des 
frappes clavier qui analyse la saisie et remplace la zone de texte simple en un traitement 
de texte complet qui formate le texte et supporte les regies et les marges (ce qui peut 
etre assez long a ecrire) ; 

• Incorporer un objet document WordPad a l'aide d'OLE. 

A l'evidence, la troisieme option parait la bonne, car elle vous permet d'offrir a l'utilisateur 
la puissance d'un traitement de texte sans que vous ayez a en ecrire une ligne : WordPad 
existe deja. Tout le monde ne dispose pas de Microsoft Word sur sa machine, mais 
WordPad est fourni avec Windows (depuis Windows 95). Vos utilisateurs y ont done acces, 
ce qui leur permet d'effectuer l'activation in situ de l'objet. 
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Pour incorporer un document WordPad, suivez ces etapes : 

1. Apres avoir insere le controle OLE sur la feuille, selectionnez l'option Creer 
nouveau. 

2. Faites defiler la liste jusqu'a ce que vous trouviez la rubrique Document WordPad. 

3 . Double-cliquez sur cette entree pour incorporer un objet Document WordPad dans 
votre application. Vous verrez une partie de la regie de WordPad sur le controle 
OLE, comme l'illustre la Figure 16.3. 



Figure 16.3 

Le controle OLE 
contient maintenant 
un objet WordPad. 



» Forml 


.[□Ixl 
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4. Modifiez la propriete SizeMode du controle OLE en 1 - Stretch pour que l'objet 
WordPad s'adapte a la taille du controle OLE. 

5. Augmentez les proprietes Width et Height de la feuille a, respectivement, 6945 et 
5670. 

6. Configurez les proprietes suivantes du controle OLE : 

Height : 3375 
Left : 840 
Top : 1080 
Width : 5055 

Vous pourriez ajouter d'autres elements a ce projet et donner un autre nom a la 
feuille, mais ne vous en preoccupez pas pour l'instant. 

7. Executez 1' application. Au demarrage, rien de particulier ne semble se produire. Le 
contour du controle OLE est affiche au centre de la feuille. 

8. Double-cliquez sur le controle OLE. Comme le montre la Figure 16.4, un menu 
s' affiche, lie a 1' activation in situ du document WordPad incorpore, et une regie. 



// existe plusieurs autres manieres d'activer un objet OLE, par exemple des 
qu'il obtient Vactivite du clavier. La propriete AutoActivate commande la 
maniere d'activer l'objet. Sa valeur par defaut est 2 - Doubleclick. 
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Figure 16.4 

Void un traitement de 
texte au milieu de 
votre application 
Visual Basic ! 



Edition Affichage Insertion Format 




9. Tapez du texte et utilisez les menus pour le formater a votre convenance. Toutes les 
options de WordPad sont disponibles dans votre application Visual Basic. 

10. Fermez 1' application. 



0& 



Aucun enregistrement de ce que vous avez, tape dans WordPad n 'est effectue. 
Lorsque vous fermez. V application Visual Basic, le document WordPad 
s 'evanouit et n 'est jamais enregistre. Ni Visual Basic, ni WordPad ne vous en 
avertissent . Cet enregistrement vous incombe en tant que programmeur. 
Notez que les menus in situ ne comportent pas les options habituelles du 
menu Fichier. 



Enregistrer le contenu de I'objet 

Microsoft conseille d'enregistrer et de charger les objets incorpores a l'aide d'une des 
methodes d' enregistrement de fichier. Votre application ayant la charge de contenir 
I'objet incorpore, l'application source n'a done aucune autorite pour l'enregistrer dans 
votre application. 

Utilisez la methode SaveToFile pour enregistrer les donnees de votre controle conteneur 
OLE. Le Listing 16.1 montre un exemple de code qui enregistre les modifications dans 
un fichier binaire particulier. Un fichier binaire est plus restrictif que les types de fichiers 
sequentiels ou indexes que vous avez deja abordes, mais il offre une methode rapide et 
efficace pour enregistrer des objets, tant que vous les relisez ensuite dans le meme ordre. 
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Listing 16.1 : Enregistrer l'objet controle conteneur OLE sur disque 

Dim intFileNum as Integer 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



1 Obtenir le premier numero de fichier disponible 
intFileNum = FreeFile 

' Ouvrir le fichier de sortie 

Open "TEST. OLE" For Binary As #intFileNum 

1 Enregistrer le fichier 
oleObj 1 .SaveToFile intFileNum 

' Fermer le fichier 
Close 



Lors des executions suivantes, votre application doit lire les dernieres valeurs de l'objet 
dans le controle conteneur OLE en utilisant la methode ReadFromFile, illustree dans le 
Listing 16.2. 

Listing 16.2 : Lire le contenu de l'objet controle conteneur OLE enregistre 
a la precedente execution 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



Dim intFileNum as Integer 

1 Obtenir le premier numero de fichier disponible 
intFileNum = FreeFile 

' Ouvrir le fichier de sortie 

Open "TEST. OLE" For Binary As #intFileNum 

1 Lire le fichier dans l'objet 
oleObj 1 .ReadFromFile intFileNum 

' Fermer le fichier 
Close 



Vous pouvez placer le code de lecture et d'ecriture dans des procedures evenementielles 
liees a des boutons de commande ou des elements de menu. Repetons que c'est votre 
application, et non pas l'application OLE, qui a la charge d'enregistrer et de charger les 
donnees. L'application OLE s'occupe quant a elle de toutes les autres taches en relation 
avec l'objet. 
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Peut-etre avez-vous deja entendu le terme programmation orientee objet, ou POO. 
Visual Basic n'est pas strictement un langage oriente objet, meme s'il supporte les 
objets en de nombreuses facons. La lecon d'aujourd'hui vous aidera a mieux 
comprendre les objets de Visual Basic et leur relation aux groupes et aux collections. 



La programmation orientee objet ou POO est une programmation a Vaide 
a" elements de donnees qui representent des objets ay ant des methodes et des 
proprietes proch.es de celles des objets de Visual Basic. La veritable POO 
contient des objets qui peuvent heriter d'autres objets. Visual Basic ne 
supporte pas completement et exactement le modele objet, meme si, dans la 
pratique, il parait en remplir les buts ultimes mieux qu'aucun langage 
purement POO ne I'a fait. 



Les sections qui suivent decrivent des objets non OLE. Vous apprendrez comment 
affuter vos competences en programmation en tirant avantage des groupes de controles 
et des collections d'objets. 

Un groupe de controles est un tableau de controles auxquels on accede a 
Vaide d'indices. 



Programmer avec des objets 



Dans le Chapitre 8, vous avez appris a utiliser l'instruction If TypeOf pour tester la 
forme d'un objet. Nous expliquerons aujourd'hui plus en detail ce que fait cette instruc- 
tion — elle determine en realite la classe d'un objet, mais nous y reviendrons. 

Un objet peut etre a peu pres n'importe quoi dans Visual Basic. Vous avez deja travaille 
avec des objets tels que les controles, les feuilles et l'objet Printer. Vous avez aussi trans- 
mis le type de donnees Object a une procedure dans le Chapitre 13. Vous savez deja que 
les objets controles contiennent des proprietes, des methodes et des evenements. Les 
controles contiennent du code et des elements de donnees. D'une certaine facon, un objet 
— tel que le controle bouton de commande — est comme un paquet qui vous est tendu par 
les developpeurs de Visual Basic. Vous n'avez pas a ecrire le code qui declenche un 
bouton de commande, a declarer des variables pour decrire son apparence et son titre, etc. 
Les methodes encapsulees du bouton de commande font tout le travail a votre place. 

Les objets sont encapsules . Comme une capsule contient des medicaments 
ou des astronautes en route vers la lune, des methodes, des evenements et 
des proprietes sont encapsulees dans un objet. L encapsulation vous permet 
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de travailler sur les objets d'un point de vue plus eleve en vous evitant 
I'ecriture de tout le code necessaire a leur support. Une classe definit le 
comportement et V apparence des objets qu'elle contient. 

Classes d'objets 

Les objets n'apportent pas seulement 1' encapsulation, ils font aussi partie d'une hierar- 
chie nominee classe d'objets. L'avantage d'une classe est que tous ses objets partagent 
les memes caracteristiques. (Un objet unique est dit etre une instance de la classe.) 

Vous pouvez creer vos propres objets. Si vous les integrez dans une classe 
existante, ils beneficient automatiquement, ou heritent, des nombreux 
proprietes, methodes et evenements de la classe. 

Lorsque vous testez un objet a l'aide de If TypeOf , Visual Basic renvoie sa classe. La 
ligne de code suivante renvoie done True ou False, suivant que l'objet myObj fait partie 
ou pas de la classe CommandButton : 

If TypeOf myObj Is CommandButton 'Verifie la classe 

Visual Basic supporte aussi la fonction TypeOf ( ) qui renvoie le nom de la 
classe. Par exemple, TypeOf (myObj ) pourrait renvoyer CommandButton ou 
Form. 

Les classes rendent plus souple la programmation avec les objets. Par exemple, les 
instructions With ... End With vous permettent d'assigner simplement plusieurs proprietes 
a un objet. Notez la redondance du code ci-dessous : 

chkMaster. Caption = "Source principale" 
chkMaster. Alignment = vbLeftJustify 
chkMaster. Enabled = True 
chkMaster. Font. Bold = False 
chkMaster. Left = 1000 
chkMaster. RightToLeft = False 
chkMaster. Top = 400 

En entourant un objet d'un bloc With ... End With, vous pouvez eliminer la repetition du 
nom de l'objet. Le code suivant est identique au precedent : 

With chkMaster 

.Caption = "Source principale" 
.Alignment = vbLeftJustify 
.Enabled = True 
.Font. Bold = False 
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.Left = 1000 
.RightToLeft = False 
.Top = 400 
End With 



L' utilisation de With ... End With sur deux ou trois proprietes demande plus 
de saisie que des assignations directes. Cependant, lorsque vous avez plus de 
trois proprietes a assigner, la clause With devient une instruction attirante, 
car elle demande moins de saisie et la maintenance est plus facile si vous 
devez ajouter des proprietes. 



Si vous pensez avoir a assigner des proprietes supplementaires dans de futures 
versions du programme, vous pouvez anticiper et utiliser la clause With, mime 
avec une ou deux proprietes. 



Objets systeme 

Contrairement aux objets que vous declarez, les objets systeme sont les objets comme App 
ou Printer, que vous avez deja utilises dans ce livre. Si vous ne pouvez pas transmettre les 
objets systeme (ils sont par nature globaux), vous pouvez les traiter comme les objets que 
vous creez. Les objets systeme representent des elements particuliers de votre application. 

Le Tableau 16.1 decrit les objets systeme et liste quelques methodes importantes qui 
peuvent leur etre appliquees. 



Tableau 16.1 : Les objets systeme supportent plusieurs methodes 



Objet systeme 


Methodes 


Description 


App 




Application en cours. 




EXEName 


Renvoie le nom de fichier de l'application. 




Path 


Renvoie le chemin d'acces de l'application. 




Title 


Renvoie le texte de la barre de titre de la fenetre 
principale. 




Prevlnstance 


Renvoie True ou False, selon qu'une autre copie de 
l'application est en cours d'execution ou pas. 


Clipboard 




Presse-papiers de Windows. 




Clear 


Efface le Presse-papiers. 




GetData 


Renvoie l'image enregistree dans le Presse-papiers. 
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Tableau 16.1 : Les objets systeme supportent plusieurs methodes (suite) 



Objet systeme 


Methodes 


Description 




GetFormat 


Renvoie le format de l'objet dans le Presse-papiers. 




GetText 


Renvoie le texte du Presse-papiers. 




SetData 


Copie une image dans le Presse-papiers. 




SetText 


Copie du texte dans le Presse-papiers. 




SelStart 


Utilise pour des operations de selection dans le Presse- 
papiers . 




SelLength 


Utilise pour des operations de selection dans le Presse- 
papiers . 




SelText 


Utilise pour des operations de selection dans le Presse- 
papiers . 


Debug 




Fenetre Execution. 




Print 


Copie les informations a 1' execution dans la fenetre 
Execution (utilisable uniquement pour les programmes 
Visual Basic non-EXE executes depuis l'environnement 
de developpement). 


Err 




Contient des informations sur 1'etat d'erreur actuel de 
1' application. 


La propriete essentielle Number contient un code d'erreur 
qui correspond a l'erreur systeme la plus recente (zero si 
aucune erreur ne s'est produite). 


Printer 




Imprimante systeme. Ses methodes ont ete presentees 
dans le Chapitre 13. 


Screen 




Ecran de l'utilisateur. 




FontCount 


Renvoie le nombre de polices supportees par l'ecran 
actuel. 




Fonts 


Contient une liste de tous les noms des polices possibles a 
l'ecran. 




Height 


Renvoie la hauteur de la zone ecran en twips. 
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Tableau 16.1 : Les objets systeme supportent plusieurs methodes (suite) 



Objet systeme Methodes Description 

MousePointer Contient la forme du curseur de la souris et determine sa 
forme si vous specifiez un autre curseur. 

TwipsPerPixel Renvoie le nombre de twips possibles en horizontal. 



TwipsPerPixel Renvoie le nombre de twips possibles en vertical. 



Width Renvoie la largeur de l'ecran en twips. 



Vous avez travaille avec la majorite des objets systeme — en particulier Printer et 
Screen — avant la lecon d'aujourd'hui. L' objet App est utile pour determiner au moment 
de 1' execution des informations comme le chemin et le nom de fichier du programme ; 
l'objet Clipboard fournit quelques fonctionnalites interessantes a utiliser. L' objet Debug 
vous permet d'interagir avec votre programme lors des tests pour vous aider a en 
extraire les bogues. 

Suivant les besoins de votre application, l'objet Clipboard est relativement simple a 
programmer. C'est le Presse-papiers de Windows ; vos applications peuvent done y 
couper ou copier des informations, que l'utilisateur peut ensuite coller dans une autre 
application Windows. Votre application peut aussi coller des informations deja conte- 
nues dans le Presse-papiers. 

Vous pouvez utiliser l'objet Clipboard et ses proprietes pour selectionner du texte a 
partir de votre programme et pour determiner le texte selectionne par les utilisateurs. Par 
exemple, la propriete SelStart marque la position du debut de la selection dans la zone 
de texte (ou d'un autre type de controle qui recoit la selection). La mise a 0 de SelStart 
place le curseur devant le premier caractere. SelLength determine le nombre de caracte- 
res choisis. Si vous selectionnez du texte en configurant SelStart et SelLength, ce texte 
est transmis au Presse-papiers lorsque l'utilisateur frappe Ctrl-C (pour copier) ou Ctrl-X 
(pour couper). SelText est une chaine qui contient le texte selectionne. 

Si vous avez selectionne du texte dans une zone de texte, il se retrouve dans SelText. 
Vous pouvez effacer la valeur courante de l'objet Clipboard (le Presse-papiers ne peut 
contenir qu'une valeur a la fois), puis envoyer le texte selectionne au Presse-papiers a 
l'aide du code suivant : 

B Clipboard. Clear ' Efface le contenu du Presse-papiers 
Clipboard. SetText txtName. SelText 'Copie le texte 
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Pour copier le texte du Presse-papiers dans une variable, vous pouvez utiliser 
GetText ( ) , ainsi : 

strlnfo = Clipboard. GetText () 

Pour remplacer le texte selectionne dans un controle par le texte contenu dans l'objet 
Clipboard, vous pouvez le faire de cette maniere : 

txtName.SelText = Clipboard. GetText () 

La methode GetText ( ) utilise parfois des arguments et elle exige des parentheses, meme 
si vous n'en specifiez pas. Pour travailler sur du texte dans le Presse-papiers, il n'est pas 
necessaire de fournir des arguments. 

Groupes d'objets et de controles 

Une des choses les plus interessantes a faire avec les objets est de declarer un groupe 
d'objets, comme un groupe de boutons de commande ou de feuilles. En outre, ces objets 
n'ont meme pas besoin d'exister. II n'est par exemple pas obligatoire de declarer toutes 
les feuilles au moment de la conception, car vous pouvez toujours creer un groupe de 
feuilles a l'execution. 

Vous connaissez deja les collections Forms et Printers. Visual Basic supporte 
egalement la collection Controls, qui vous permet de parcourir tous les controles 
comme s'ils etaient des variables de tableaux. Par exemple, le code qui suit masque tous 
les controles : 

8 For intCtr = 0 To Controls .Count - 1 
Controls(intCtr) .Visible = False 
Next intCtr 

Si votre application contient plusieurs feuilles, vous pouvez masquer tous les controles 
de l'ensemble des feuilles en utilisant des boucles imbriquees (l'utilisation de For Each 
elimine la necessite de recourir a Count - 1) : 

81 : Dim f rmAForm As Form 

2: Dim ctlAControl As Control 

3: For Each frmAForm In Forms ' Parcours de toutes les 
feuilles 

4: For Each ctlAControl In frmAForm. Controls 

5: ctlAControl. Visible = False 

6: Next ctlAControl 

7: Next frmAForm 
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Un menu est considere comme un contrdle dans la collection Controls. 
Dans de nombreux cas, il est souhaitable d'omettre les menus dans une 
boucle de ce type en testant, a Vaide de la fonction TypeOf( ), si le contrdle 
est un objet Menu avant de le masquer. 

La collection Controls contient tous les controles de la feuille en cours ; vous pouvez 
cependant definir un groupe de controles d'un type particulier. Un groupe de controles 
se declare comme suit : 



Dim ctlManyLabels(1 To 4) As Label 



Les collections, approfondies a la section suivante, fonctionnent comme des groupes qui 
permettent d'acceder aux elements comme on le fait avec un tableau. Au lieu de creer 
les objets lors de la conception, vous pouvez creer un groupe d'objets comme suit 
(remarquez l'utilisation du mot cle New) : 



Dim fmrArray(1 To 10) As New frmFirstForm 



L'instruction Dim considere qu'une feuille, frmFirstForm, existe. Apres cette 
declaration, il existe 10 nouvelles feuilles, dont les indices vont de frmArray(l) a 
f rmArray(l0). On peut alors modifier par programme les proprietes des feuilles du 
groupe pour que chacune ait les particularites souhaitees, et les differencier de la feuille 
de base, frmFirstForm. 



Chacune de ces feuilles ne s'affichera qua V invocation de sa methode Show. 



Pour par exemple diminuer la taille de police des controles d'une feuille quand un 
utilisateur la redimensionne, vous pouvez utiliser la collection Controls pour le faire 
dans chaque controle : 



Private Sub Form_Resize () 

' Diminue la taille de police de tous les controles 

Dim intCtr As Integer 

For intCtr = 0 to Controls. Count - 1 
Controls(intCtr) .FontSize = Controls(intCtr) .FontSize * .75 

Next intCtr 
End Sub 



La taille de police des controles sera reduite de 25 % par rapport a ce qu'elle etait avant 
que l'utilisateur redimensionne la feuille. 

Vous ne trouverez pas beaucoup de programmeurs Visual Basic qui utilisent des groupes 
de controles quand une collection existe pour le meme objet (Visual Basic fournit une 
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collection Forms). Pour utiliser les groupes de controles, vous devez declarer de la 
memoire pour les contenir et pour initialiser les tableaux. 

Visual Basic supporte une technique que vous utiliserez sans doute souvent pour creer les 
groupes de controles. Lorsque vous copiez un controle et que vous le collez a nouveau sur 
la feuille, Visual Basic affiche la boite de message de la Figure 16.5. 



Figure 16.5 

Visual Basic va 
creer un groupe de 
controles pour vous. 




Vous pouvez vous demander pourquoi copier et coller un controle, mais si vous avez a 
placer plusieurs boutons de commande ou etiquettes qui ont tous le meme format, c'est 
une technique utile : vous creez le premier controle, configurez toutes ses proprietes, le 
copiez ensuite dans le Presse-papiers et enfin, vous le collez sur la feuille pour ajouter 
autant de controles que vous le voulez. 

Des que vous collez le controle, Visual Basic affiche la boite de message de la Figure 16.5. 
Si vous repondez Oui, Visual Basic cree automatiquement un groupe de controles en 
utilisant le nom du premier. Par exemple, si le premier controle est Command 1 , les elements 
commenceront a Command 1 (0) et l'indice augmentera tant que vous continuerez a coller le 
controle. 

Votre code peut alors parcourir tous les elements du groupe, de Commandl (0) a 
Commandl (n - 1),n etant le nombre de controles du groupe, et definir des proprietes pour 
chacun. 



Collections 

Les collections jouent un role vital dans la programmation Visual Basic, comme vous 
avez deja pu le voir. Elles sont toujours presentes et Visual Basic les met a jour automa- 
tiquement ; si vous ajoutez par exemple une feuille lors de l'execution avec la 
declaration New Form, Visual Basic actualise en consequence la propriete Count de la 
collection Forms. 

Les collections predefinies sont sans aucun doute utiles. Alors, pourquoi ne pas en creer 
une ? Visual Basic vous y autorise. Vous devrez cependant la gerer vous-meme — ce qui 
demande plus d'effort que pour les collections predefinies. 
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Comme vous le savez maintenant, tous les objets appartiennent a une classe. Tout ce qui 
s'applique a une classe s'applique a ses objets. Par exemple, si un controle est un 
membre de la classe CommandButton, vous savez qu'il supporte l'evenement Click, car 
tous les membres de la classe CommandButton supportent cet evenement. 

Vos collections propres doivent etre des objets de la classe Collection. Elles se definis- 
sent au niveau du module en utilisant les mots cles Public ou Private, suivant la plage 
des procedures qui doivent y acceder. L' instruction suivante declare une collection 
nominee colMyCol : 

Private colMyCol As New Collection 

Une collection fonctionne comme une etagere vide. Vous pouvez placer des objets (comme 
des livres), les oter, les compter, etc. Naturellement, sur une etagere on peut mettre autre 
chose que des livres. Dans une collection, on ne peut mettre qu'un type d'element, mais on 
peut declarer plusieurs collections contenant chacune des types d'objets differents. Voici les 
methodes auxquelles vos collections ont acces : 

• Add . Ajoute un element a la collection. 

Count. Renvoie le nombre d'elements de la collection. 

• Item. Sert d'index pour les elements de la collection. 

• Remove. Supprime un element de la collection. 

Comme le montre le Listing 16.3, Visual Basic s'occupe de la mise a jour de Count dans 
l'ajout d'elements a la collection. Le code du Listing 16.3 cree une collection nommee 
Cities et y ajoute quatre elements (des noms de ville). 



Listing 16.3 : Utilisation de Add pour ajouter des elements a la nouvelle collection 

1 : Dim Cities As New Collection 

2: Dim intCtr As Integer 

3: 

4: 1 Ajoute les elements 

5: Cities. Add "Tulsa" 

6: Cities. Add "Miami" 

7: Cities. Add "New York" 

8: Cities. Add "Seattle" 
9: 

10: 1 Montre qu'il y a quatre villes 

11: frmMyForm. Print "II y a "; Cities. Count; " villes :" 

12: 

13: 1 Imprime chaque nom de ville 

14: For intCtr = 1 To Cities. Count 

15: frmMyForm. Print " "; Cities(intCtr) 

16: Next 
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Si vous executez ce code, la sortie suivante s'affiche : 

II y a 4 villes : 

Tulsa 

Miami 

New York 

Seattle 

Cette lecon ne fait qu'effleurer les capacites des collections. Vous devez cependant 
savoir que vous pouvez facilement y inserer et en oter des elements, dans l'ordre que 
vous preferez. Chaque element de la collection est reference par un indice, qui part de 1 . 
Dans l'exemple precedent, Cities (1 ) est la premiere ville listee dans la collection. Les 
indices de collection commencent toujours a 1 , et non a 0 (comme le font les groupes de 
controles). 

Vous pouvez utiliser V argument nomme (un argument comprenant le nom de l'argument 
suivi de l'operateur designation, :=) Before pour ajouter des elements a la collection a 
l'endroit oil vous les voulez. La ligne suivante ajoute une ville au debut de la collection 
Cities, quel qu'en soit le nombre d'elements : 

Cities. Add "St. Louis", Before:=1 

Une position Before de 1 ajoute l'element au debut de la collection. Visual Basic ajoute 
l'element avant l'indice specifie. Si vous incluez cette instruction a la fin du code du 
Listing 16.3, vous obtiendrez la sortie suivante : 

II y a 5 villes : 

St. Louis 

Tulsa 

Miami 

New York 

Seattle 

Si vous n'aviez pas indique l'argument Before : =1 dans 1' instruction, St. Louis se retrou- 
verait a la fin de la collection. 

Vous pouvez supprimer des elements specifiques en utilisant la methode Remove. Lors- 
que vous supprimez des elements, les indices s'ajustent pour toujours commencer a 1. 
L' instruction suivante supprime le second element (Tulsa) de la collection. 

Cities. Remove 2 
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L'Explorateur d'objets 

En progressant dans votre connaissance de Visual Basic, votre besoin d'outils perfor- 
mants augmente. Visual Basic en comporte un, l'Explorateur d'objets, qui vous permet 
d'inspecter les variables, les controles et d'autres objets de votre application. Les 
programmeurs Visual Basic qui decouvrent l'Explorateur d'objets l'utilisent beaucoup 
plus souvent qu'ils ne pensent le faire, car ses caracteristiques simplifient beaucoup la 
programmation. 

L'Explorateur d'objets vous aide a localiser et a gerer les objets de vos 
applications . 



L'Explorateur d'objets est un referentiel en ligne complet, mais pas dans le meme sens 
que l'aide en ligne. L'Explorateur d'objets vous offre un endroit unique oil chercher les 
objets et leurs informations. II vous permet aussi de sauter directement au code dont 
vous avez ensuite besoin. 

L'Explorateur d'objets decrit les bibliotheques de types de votre application, 
qui sont des referentiels des informations de classes. Vous pouvez utiliser 
l'Explorateur d'objets pour acceder aux proprietes, methodes et evenements 
des objets de vos applications, y compris ceux que vous avez crees. 

La fenetre de l'Explorateur d'objets 

Quand vous choisissez l'Explorateur d'objets dans le menu Affichage ou par son icone 
de la barre d'outils, sa fenetre, illustree a la Figure 16.6, s'affiche. II se peut que vous 
ayez a l'agrandir et a fermer les fenetres des proprietes et de la boite a outils pour voir 
l'Explorateur d'objets dans son ensemble. 

Le Tableau 16.2 decrit les parties de la fenetre de l'Explorateur d'objets. 
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Figure 16.6 

L'Explorateur 
d 'objets decrit 
les objets de votre 
application . 
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Tableau 16.2 : La fenetre de l'Explorateur d'objets comprend plusieurs elements 
avec lesquels vous devez vous familiariser 



Composant 


Description 


Zone de liste Projet/ 


Decrit la source des objets que vous voulez explorer. (Vous 


Bibliotheque 


utiliserez souvent l'option <Toutes bibliotheques>, mais 




vous pouvez par exemple vous limiter aux objets propres a 




votre projet en selectionnant son nom). 


Texte a rechercher 


Vous permet de saisir un objet, un evenement, une methode ou 




une propriete a rechercher. 


Controles de manoeuvre 


Utilises pour aller d'avant en arriere sur un chemin 




d'exploration deja parcouru. 


Classes 


Contient les noms des classes du projet ou de la bibliotheque 




selectionnee. 


Membres 


Contient les membres de la classe selectionnee. 
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Parcourir I'Explorateur d'objets 

L'Explorateur d'objets contient nombre d'informations identiques a celles fournies par le 
systeme d'aide en ligne. Mais il s'adresse plus particulierement au programmeur Visual 
Basic et il presente les informations dont ce dernier a besoin de maniere succincte. Par 
exemple, l'entree <globales> de la liste des Classes decrit 1'ensemble des fonctions 
integrees a Visual Basic . Faites defiler la fenetre des membres jusqu' a la rubrique Left pour 
voir des informations sur la fonction Left ( ) . 



Comme vous I'avez deja etudie, la fonction Left() renvoie la partie de 
gauche d'une chaine de caracteres . 



Lorsque vous selectionnez l'entree Left, Visual Basic decrit la fonction dans le bas de la 
fenetre de I'Explorateur d'objets. Le texte decrit non seulement le but de la fonction, mais 
il montre aussi son format. Vous pouvez connaitre la nature de chaque objet de la liste des 
Membres par son icone. Par exemple, la petite icone verte indique une fonction. Faites 
defiler la liste pour voir toutes les constantes nominees qui s'affichent apres les fonctions 
et les collections dans la fenetre Membres. 

Si vous cliquez du bouton droit et selectionnez Membres du groupe dans le menu 
contextuel, Visual Basic groupe les elements Membres et Classes par usage, et non plus 
par ordre alphabetique. 

Apres avoir selectionne une entree dans la fenetre de I'Explorateur d'objets, 
cliquez sur le bouton Aide de la barre d'outils (icone avec un point d' inter- 
rogation) pour obtenir les informations de I 'aide en ligne le concernant. 



Vous pouvez etre encore plus specifique avec I'Explorateur d'objets. La liste des Classes 
contient entre autres plusieurs entrees qui referencent des constantes nominees. Quand 
vous cliquez sur l'entree ColorConstants, par exemple, seules les constantes nominees 
de couleurs de Visual Basic s'affichent dans la liste des membres (voyez la Figure 16.7). 



Vous pouvez utiliser ces constantes nommees partout dans votre code oil 
vous avez besoin d'une couleur. Par exemple, vous pouvez configurer la 
couleur d'arriere-plan d'une feuille ainsi : 



f rmMyForm.BackColor = vbRed 



Configure la feuille en rouge 



Tous les controles de la boite a outils apparaissent egalement dans la liste des Classes. 
Si vous cliquez sur ComboBox, par exemple, I'Explorateur d'objets affiche toutes les 
informations pertinentes le concernant, ses proprietes, ses mefhodes et ses evenements. 
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Figure 16.7 

La recherche 
des objets 
a ete reduite 
a des constantes 
particulieres . 
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Si vous cliquez sur une des entrees dans la liste des Membres, vous en obtiendrez une 
description. 

Les programmeurs utilisent 1' Explorateur d'objets pour de nombreux usages. II affiche 
les objets d'une maniere organisee. Outre les objets, il coordonne toutes les particularites 
de votre programme. Par exemple, si vous ecrivez du code et voulez utiliser des fonctions 
internes de date et d'heure, cliquez sur l'entree DateTime dans la liste de Classes. 
Comme le montre la Figure 16.8, la liste des Membres se met a jour et ne montre que les 
fonctions integrees qui concernent les dates et heures. 

Meme si ces fonctions sont egalement listees dans l'aide en ligne ou ailleurs, pouvoir 
reviser toutes les fonctions concernant la date et l'heure simplifie la programmation, car 
elles se retrouvent classees thematiquement. 

Le bouton Precedent retrace votre cheminement dans V Explorateur 
d'objets. II est done facile d'aller d'avant en arriere avec la souris. Cela 
imite le comportement des navigateurs Web utilises actuellement . 

L'Explorateur d'objets est aussi tres utile pour decrire votre projet. Lorsque vous ajoutez 
des objets, des variables et des procedures evenementielles, l'Explorateur d'objets 
s'occupe dans l'ombre a tout recenser. La Figure 16.9 montre le Projetl selectionne 
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Figure 16.8 
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dans la zone de liste Projet/Bibliotheque. Quand vous cliquez sur Forml (pour l'instant le 
seul objet de ce projet), l'Explorateur d'objets affiche la liste complete des procedures 
evenementielles, des methodes et des proprietes correspondantes. Une seule entree, 
Commana"l_Click est en gras, ce qui signifie que du code a ete ajoute dans cette procedure. 

Un des aspects les plus puissants de l'Explorateur d'objets est l'option AfTicher la 
definition. Si vous selectionnez un membre qui fait partie de vos propres objets (par exem- 
ple une procedure evenementielle que vous avez ecrite ou un objet que vous avez declare), 
puis que vous cliquez du bouton droit et selectionnez Afficher la definition, Visual Basic 
saute directement au code ou cet objet est defini. Vous pouvez ainsi utiliser l'Explorateur 
d'objets pour localiser du code specifique dans une application volumineuse. Vous n'avez 
pas besoin de savoir dans quel projet l'objet a ete defini tant que vous pouvez le localiser 
dans l'Explorateur d'objets. 

Quand vous cherchez un element dans l'Explorateur d'objets, vous obtenez une liste de 
toutes les references faites a cet element dans votre application. Par exemple, si vous 
cherchez Click, Visual Basic affiche une fenetre supplemental (voyez la Figure 16.10) 
qui contient toutes les references en rapport dans le projet (et dans tout le repertoire 
Visual Basic, car l'option <Toutes bibliotheques> est selectionnee). 
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Figure 16.9 

L'Explorateur 
d'objets 

ne montre que les 
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specifiques de 
V application. 
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La seule procedure evenementielle contenant du code 



L'evenement Click se produit sur divers objets, done l'Explorateur d'objets affiche une 
fenetre qui contient tous les objets references qui supportent Click. Vous pouvez ensuite 
affmer la recherche en cliquant sur l'objet ou le projet qui contient l'evenement Click 
que vous recherchez. 



En resume 

Ce chapitre n'a traite que des objets. Vous avez appris la maniere dont les objets OLE 
fonctionnaient dans Visual Basic. Le controle OLE ne fait rien en lui-meme si ce n'est 
contenir des objets (ou des liens vers des objets) d'autres applications. Une fois ces 
objets en place, l'utilisateur peut les modifier et les manipuler a l'interieur de votre 
application. Vous n'avez pas a ecrire de commandes pour acceder a l'autre application, 
car les objets OLE sont intelligents et ils en amenent tous les outils d'edition, y compris 
les menus. 

Outre les collections, Visual Basic vous permet de declarer des groupes de controles, qui 
fonctionnent souvent comme des tableaux d'objets. Vous pouvez dupliquer les controles 
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Figure 16.10 
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d'une feuille pour qu'ils partagent des caracteristiques communes, en n'ayant plus qu'a 
modifier les proprietes qui different (par exemple le titre ou la couleur). Les objets 
systeme proposent des objets predefinis avec lesquels votre application peut interagir 
avec les ressources exterieures a l'environnement classique du programme. En accedant 
a l'objet App, votre application peut determiner en cours d'execution le chemin a partir 
duquel elle a ete lancee. L'objet Clipboard permet a votre application d'interagir avec le 
Presse-papiers de Windows pour copier et coller du texte. 

Visual Basic fournit un outil d'organisation, l'Explorateur d'objets, qui est essentiel- 
lement un referentiel de donnees. Vous pouvez rechercher des evenements, des metho- 
des ou des proprietes specifiques ou consulter toute une classe d'objets. L'Explorateur 
d'objets suit meme dans votre code les objets que vous avez initialises et les procedures 
evenementielles que vous avez ecrites. 

La lecon de demain passe a la generation suivante des objets en decrivant comment 
utiliser et creer les controles ActiveX. 
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Questions-reponses 

Q L'utilisateur doit-il disposer de l'application d'origine de l'objet OLE pour que 
ce dernier fonctionne dans l'application Visual Basic qui l'utilise ? 

R Oui, car l'automatisation in situ exige les menus et toutes les caracteristiques de 
l'application d'origine. Si cette derniere n'est pas installee, l'utilisateur sera inca- 
pable de modifier l'objet OLE. Microsoft Excel, par exemple, tableur tres puissant 
qui occupe beaucoup d'espace disque et de memoire, est compatible OLE. Vous 
pouvez done amener une feuille Excel dans une application que vous concevez, et 
l'utilisateur disposera alors de toute sa puissance dans votre programme. Etant 
donne la taille d'Excel, de ses menus et de ses caracteristiques, il ne pourrait 
jamais etre integre dans votre application avec son objet. II faut done qu'Excel soit 
installe pour pouvoir utiliser un objet Excel dans votre application. Vous devez 
clairement declarer les exigences de votre application, dont la presence de 
programmes auxiliaires tels que Microsoft Excel, pour que Ton puisse l'utiliser 
pleinement. 



Atelier 

L' atelier propose une serie de questions qui vous aident a renforcer votre comprehension 
des elements traites et des exercices qui vous permettent de mettre en pratique ce que 
vous avez appris. Essayez de comprendre les questions et les exercices avant de passer a 
la lecon suivante. Les reponses se trouvent a 1' Annexe A. 

Quiz 

1 . Quelle est la difference entre liaison et incorporation ? 

2. Quel type de technique OLE, liaison ou incorporation, consomme a votre avis le plus 
d'espace disque ? 

3. Vrai ou faux. Visual Basic enregistre automatiquement les modifications que fait 
l'utilisateur aux objets OLE incorpores. 

4. Quelle est la methode permettant d'enregistrer un objet OLE dans un fichier 
disque ? 

5. Quelle est la methode permettant de lire un objet OLE a partir d'un fichier disque ? 

6. Indiquez deux manieres de tester la classe d'un objet. 
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7. Vrai ou faux. Vous devez transmettre les objets systeme si vous devez y acceder a 
partir de plusieurs procedures. 

8. Indiquez trois types d' elements qui apparaissent souvent dans la liste des Membres 
de l'Explorateur d'objets. 

9. Que se passe-t-il si vous groupez la liste des Membres dans l'Explorateur d'objets ? 

10. Vrai ou faux. L'Explorateur d'objets ne recherche pas les objets que vous avez crees. 

Exercices 

1 . Pourquoi l'utilisation de With... End With est-elle sans doute une mauvaise idee dans 
ce cas ? 

, With chkMaster 

.Caption = "Source principale" 

.Alignment = vbLeftJustify 
1 End With 

2. Ecrivez une application simple qui contient un controle OLE. Incorporez-y l'objet 
Image Paintbrush de Windows. Ajoutez une option de menu permettant d'enregistrer 
les images et une autre pour les charger. Executez 1' application, double-cliquez sur le 
controle et dessinez une image. Enregistrez-la, quittez 1' application, puis redemarrez- 
la. Chargez l'image enregistree pour vous assurer que les procedures de chargement et 
d'enregistrement sont correctes. 
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Controles ActiveX 



La legon d'aujourd'hui vous montre comment apprehender et utiliser les controles 
ActiveX. En ajoutant des controles ActiveX a votre fenetre de boite a outils, vous ajoutez 
des fonctionnalites a l'environnement Visual Basic et reduisez le temps necessaire au 
developpement des applications. 

La technologie objet supportee par Visual Basic vous permet d'emprunter des fonction- 
nalites a d'autres applications qui supportent ActiveX et l'automatisation ActiveX. Par 
exemple, votre application Visual Basic peut creer un document Word ou une feuille de 
calcul Excel en empruntant la technologie de ces applications externes. 

Une fois que vous aurez compris 1'importance de la technologie des controles ActiveX et 
les nombreuses manieres dont vous pouvez en tirer parti, vous apprendrez comment creer 
vos propres controles ActiveX. 

Aujourd'hui vous apprendrez : 

• l'historique des controles ActiveX ; 

• le rapport entre controles VBX et OCX et controles ActiveX ; 
comment ajouter des controles ActiveX a vos projets ; 

• l'automatisation des objets dans vos applications ; 

comment creer une feuille de calcul Excel a partir d'une application Visual Basic ; 

• comment creer de nouveaux controles ActiveX ; 
le sous-classement des nouveaux objets ActiveX ; 

• comment creer des valeurs de proprietes propres a vos controles. 
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La technologie ActiveX est la version actuelle de l'ensemble de controles d'extension 
VBX apparus il y a quelques annees. L' extension de fichier .VBX signifie "Visual Basic 
extended". En d'autres termes, les controles ActiveX sont les descendants des controles 
que vous pouviez ajouter aux versions anterieures de Visual Basic pour etendre la boite 
a outils livree avec le produit. 

Dans le passe, les controles Visual Basic n'etaient pas compatibles avec la technologie 
des navigateurs Web, l'lnternet et les autres outils de programmation de Windows, tels 
que Visual C++. Cependant, ils etaient importants pour permettre aux programmeurs 
d'etendre leur capacite a ecrire du code. Plus le programmeur dispose de controles, 
moins il a de travail a faire. En consequence, une communaute et toute une activite se 
sont developpees pour creer des controles Visual Basic manipulant des graphiques, des 
donnees, des grilles, du multimedia, etc. Leur succes a oblige Microsoft a les reconce- 
voir (car ils n'etaient compatibles avec aucun autre produit Microsoft). 



OLE est une technique cousine des controles VBX, mais qui est plus 
universelle dans les applications Microsoft — elle n'a pas ete congue 
exclusivement pour les programmeurs Visual Basic. Cependant, comme 
vous avez pu le voir hier, un objet OLE est un objet de donnee (et pas un 
controle) utilisable comme un controle Visual Basic. 



Entre les controles Visual Basic et ActiveX, Microsoft a concu des controles OCX 
32 bits particuliers. Ces nouveaux controles Visual Basic etendaient les capacites de 
Visual Basic, mais aussi d'autres langages de programmation comme Visual C++. Les 
controles OCX avaient une extension de fichier .OCX. Les anciens controles VBX ne 
reconnaissent que les applications 16 bits. 



Si vous avez travaille avec de precedentes editions de Visual Basic qui 
supportaient des controles VBX 16 bits, ce qui a ete le cas jusqu'a la 
version 5.0, le systeme actuel ne peut les utiliser que s'il dispose de nouvel- 
les versions 32 bits. Par exemple, Visual Basic est fourni avec une 
version 32 bits du controle Gauge (la version 16 bits faisait partie des 
versions anterieures de Visual Basic). Done, si vous chargez une ancienne 
application Visual Basic qui utilise ce controle, Visual Basic le remplacera 
par la version 32 bits, et tout devrait fonctionner correctement. Si, par 
contre, un remplacement n'existe pas ou qu'il ne peut pas etre fourni par le 
distributeur du controle VBX, vous devrez supprimer le controle de V appli- 
cation et lui substituer un controle identique. 
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Les controles OCX, bien que compatibles avec Visual C++, ne fonctionnaient pas 
simplement sur l'lnternet ; Microsoft les a done fait evoluer en controles ActiveX, pour 
permettre aux navigateurs Internet et aux multiples applications et langages de program- 
mation de fonctionner correctement avec eux. 

Y aura-t-il un remplacement a ActiveX ? Sans doute un jour, suivant les nouvelles tech- 
niques qui demanderont des fonctionnalites que ne propose pas la technologie ActiveX. 



Les versions actuelles d'Internet Explorer et de Netscape (a I'aide d'un 
module d 'extension disponible sur la page de support de Netscape), suppor- 
tent ActiveX sur les pages Web. Ce qui signifie que les utilisateurs peuvent 
interagir avec les controles ActiveX dans toutes les pages Web qui en 
contiennent . 



Ajout de controles ActiveX a un projet 

Les controles ActiveX (pour vous, programmeur Visual Basic) ne representent que des 
controles additionnels qui peuvent etre ajoutes a la fenetre Boite a outils et utilises pour 
developper des programmes. Tous types de controles existent. Plusieurs sont fournis 
avec Visual Basic ; vous pouvez les trouver en selectionnant Projet, Composants (ou 
Ctrl-T), comme vous l'avez deja fait. En outre, vous trouverez des controles ActiveX sur 
l'lnternet. Des entreprises de programmation vendent egalement des controles ActiveX 
qui peuvent etre fusionnes dans l'environnement Visual Basic. 



Consultez le site Web de Microsoft (http://www.microsoft.com/activex) pour 
avoir des exemples de controles ActiveX que vous pouvez. telecharger sur 
votre PC. 



0 s 



N'ajoutez. a la fenetre Boite a outils que les controles necessaires a votre 
application. Chaque controle supplementaire est envoy e dans V application 
compilee que vous distribuez. Plus V application contient de controles, plus 
elle sera volumineuse, plus elle s 'executera lentement et plus elle consom- 
mera de ressources sur la machine de I'utilisateur. Pour supprimer les 
controles ActiveX inutiles, affichez la boite de dialogue Projet, Composants 
et decochez tous les controles qui n'appartiennent pas a votre projet. 



Qu'une application utilise tous les controles ActiveX charges au moment de la compila- 
tion ou pas, il est obligatoire de distribuer les fichiers executables ActiveX avec le 
projet. 
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Un fichier executable de contrdle ActiveX est un fichier annexe que vous 
devez fournir avec V application qui utilise le contrdle ActiveX correspon- 
dant. Ce fichier contient les instructions necessaires pour que le contrdle 
ActiveX fonctionne lors de V execution. 



II existe des controles ActiveX pour pratiquement toutes les taches de programmation 
que vous pouvez avoir a faire. Pour un meilleur controle du son que celui offert par le 
controle multimedia, vous pourrez trouver de nombreux types de controles ActiveX 
relatifs au son en ligne. De meme, les controles graphiques 3D, les controles Internet, les 
controles mathematiques, d'imprimantes, de scanners et un vaste assortiment d'autres 
controles sont disponibles. Vous devrez decider du type de programmation que vous 
effectuez le plus souvent et rechercher les controles particuliers qui peuvent vous assister. 
Par exemple, si vous ecrivez un logiciel de publication, vous chercherez tous les controles 
de manipulation et d'edition de texte possibles. 

Lorsque vous ajoutez un nouveau controle ActiveX a la fenetre Boite a outils, 
comment l'utiliser ? Pour commencer, vous pouvez considerer que les controles ActiveX 
supportent les elements suivants : 

• Proprietes ; 
Evenements ; 

• Methodes. 

Autrement dit, vous utilisez un controle ActiveX exactement comme n'importe quel 
autre controle. II vous faudra obtenir une liste des proprietes, evenements et methodes 
supportes par le controle pour pouvoir le programmer correctement. Si de nombreuses 
proprietes des controles apparaissent parfois dans la fenetre Proprietes, ce n'est pas 
toujours le cas (en particulier pour les controles disponibles a 1' execution). Lorsque vous 
achetez des controles ActiveX ou que vous les telechargez depuis les sites Internet qui les 
proposent, vous devez aussi obtenir des instructions qui listent les proprietes, evenements 
et methodes. Les controles ActiveX fournis avec Visual Basic sont references dans l'aide 
en ligne. 

La Figure 17.1 montre la boite de dialogue Composants, qui s'affiche quand vous 
selectionnez Projet, Composants. Vous avez deja rencontre cette boite de dialogue 
plusieurs fois dans ce didacticiel, car vous avez deja ajoute des controles ActiveX 
auparavant, par exemple le controle multimedia. 

Lorsque vous installez Visual Basic, plusieurs controles ActiveX sont ajoutes a votre 
systeme ; vous pouvez a votre tour les ajouter a un projet par la boite de dialogue 
Composants. De plus, la routine d' installation de Visual Basic recherche aussi sur votre 
systeme des controles supplementaires a ajouter, dont nombre apparaitront dans la boite 
de dialogue Composants. Une installation de Visual Basic sur deux ordinateurs 
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Figure 17.1 

Utilisez la botte de 
dialogue Composants 
pour ajouter de 
nouveaux controles 
ActiveX a votre projet. 




differents peut done presenter des ensembles de controles ActiveX differents. Cliquez 
sur le bouton Parcourir de la boite de dialogue pour rechercher les fichiers de controles 
ActiveX de votre disque dur. 



La liste des controles ActiveX de la boite de dialogue Composants peut devenir 
assez longue. Vous pouvez cliquer sur 1' option Elements selectionnes pour ne 
voir apparaitre dans la liste que les controles ActiveX que vous utilisez ■ 
Cependant, pour ajouter d'autres elements, vous devrez decocher I'option 
pour pouvoir trouver le contrdle que vous voulez ajouter. 



Lorsque vous ajoutez des controles dans la fenetre Boite a outils, elle peut vite se 
remplir. Observez l'onglet General au sommet de la boite a outils. En cliquant du 
bouton droit sur une zone vierge dans la fenetre Boite a outils, vous pouvez y creer de 
nouveaux onglets pour regrouper des controles ActiveX. Pour ajouter des controles dans 
un nouveau groupe, cliquez sur l'onglet correspondant, puis ajoutez-les. (La boite de 
dialogue Composants est disponible a partir du menu contextuel de la fenetre Boite a 
outils qui s'affiche par un clic droit.) La Figure 17.2 montre un ensemble de controles 
ayant rapport a Internet ajoutes dans un groupe concu dans ce but. 
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Figure 17.2 

Les onglets de groupes permettent 
d' organiser lafenetre Boite a outils. 
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Automatisation ActiveX 



Jusqu'ici, vous avez ajoute quelques controles et vous savez tout du parametrage des 
proprietes, de la reaction aux evenements et du declenchement des methodes. 
Certains controles ActiveX vous permettent cependant d'aller un cran au-dela. Vous 
pouvez en fait utiliser dans votre application un controle incorpore et en emprunter 
les fonctionnalites. 

Visual Basic supporte une telle automatisation des controles entre applications. Par 
exemple, vous pouvez ouvrir Excel, charger une feuille de calcul, en manipuler les 
donnees a partir de commandes Excel, fermer Excel, puis incorporer la feuille de calcul 
resultante dans la fenetre de votre application sans que les utilisateurs se doutent un 
instant que vous avez emprunte les caracteristiques d'Excel. 

L automatisation est le traitement par lequel une application utilise les 
donnees d'une autre application et les manipule avec Vaide de cette 
derniere. Les utilisateurs ne se rendent pas compte que V autre application a 
ete lancee, a travaille et a ete refermee. 

L'utilisation de 1' automatisation se limite aux applications ActiveX enregistrees dans la 
base de registres de votre machine. En general, si vous utilisez une application compati- 
ble ActiveX, elle a enregistre sa capacite d' automatisation dans la base de registres lors 
de son installation. 

L' automatisation exige normalement une connaissance approfondie de la 
hierarchie des objets de I'autre application, qui peut etre complexe. 
U exemple qui suit vous apprend V automatisation par une demonstration 
utilisant un document ActiveX. Pour comprendre pleinement V automatisa- 
tion, vous devez etre verse dans les fonctionnalites internes de V application 
empruntee. Cet ouvrage ne peut pas entrer dans les particularites des 
applications autres que Visual Basic. Heureusement , la plupart des concepts 



> 536 



Chapitre 17 : Controles ActiveX 



de V automatisation depassent le cadre d'une application unique. Les 
concepts de Vexemple que vous verrez ici se transposent largement a 
d'autres applications . 

Pour commencer cet exemple, vous devez definir une variable qui represente 1' applica- 
tion a automatiser dans votre propre programme. Vous utiliserez le type de donnees 
Object pour creer une variable referencant l'application d'automatisation. Vous devez 
d'abord definir un objet application ainsi : 

Dim obExcelApp As Object 

Vous devez ensuite connecter la variable a l'application. Si cette derniere n'est pas en 
cours d'execution, vous devez la lancer a l'arriere-plan par la fonction CreateObj ect ( ) . 
Cette fonction ne se limite pas a demarrer l'application, mais elle y connecte aussi votre 
variable objet, ainsi : 

Set obExcelApp = CreateObject("Excel. Application") 

L' argument de la fonction CreateObj ect ( ) est le nom de l'application. 

Utilisez Setau lieu d'une simple assignation pour attacher l'application auto- 
matisee a votre application Visual Basic. Une variable ne peut pas contenir 
une application externe ; elle ne peut contenir que des valeurs telles que des 
nombres et des chaines de caracteres. 

Utilisez Set pour creer une reference a I 'objet externe. Set n'assigne pas, 
mais fait pointer la variable sur V objet qu'elle represente . 

Un probleme peut se poser si l'application s'execute deja. Dans un systeme multitache et 
multi-utilisateur, plusieurs copies d'Excel peuvent s'executer au meme moment. Vous 
pouvez utiliser la fonction GetOb j ect ( ) a la place de CreateObj ect ( ) si l'application est 
en cours d'execution : 

Set obExcelApp = GetObject(, "Excel. Application" ) 

Remarquez la virgule au debut de la liste des arguments. Vous pouvez, dans la plupart 
des cas, omettre le premier argument, car le second decrit l'objet que vous obtenez. Si le 
second argument est absent, vous devez fournir, comme premier argument, le chemin 
d'acces a un fichier qui decrit l'objet que vous voulez creer. 

Si Excel est deja en cours d'execution, il est preferable de ne pas en lancer une seconde 
instance. En utilisant le deroutement des erreurs, vous pouvez verifier si c'est le cas. La 
fonction GetObject() declenchera une erreur si Excel n'est pas en cours d'execution. 
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Dans ce cas, vous pouvez alors utiliser CreateObjectO pour demarrer une instance 
d'Excel. 

Voici un exemple de code que vous pouvez utiliser pour verifier qu'une instance d'Excel 
est demarree : 

1 : 1 Deroutement des erreurs 
2: On Error Resume Next 
3: 1 

4: 1 Reference l'application Excel 

5: Set obExcelApp = GetObjectf, "Excel. Application" ) 

6: If Err. Number <> 0 Then 

7: Set obExcelApp = CreateObject(" Excel. Application") 

8: blnRunning = False ' Excel n'etait pas en execution 

9: Else 

10: blnRunning = True 
11 : End If 

Vous avez deja etudie l'instruction On Error Goto lors de lecons precedentes, mais c'est 
la premiere fois que vous rencontrez l'option Next. Jusqu'ici, l'instruction On Error se 
deroutait en cas d'erreur sur une etiquette d' instruction. L'option Next indique simple- 
ment a Visual Basic, quand il rencontre une erreur, de passer a l'instruction suivante et 
de continuer le programme. Cette situation fournit l'occasion de dire qu'un code 
d'erreur est renvoye chaque fois que l'instruction On Error detecte une erreur. Ce code 
est une propriete d'un objet predefini du systeme nomme Err. 

Tant qu'il n'y a pas d'erreurs dans un programme en execution, Err. Number est a 0. Par 
consequent, si Err. Number contient une valeur differente, cela signifie qu'une erreur 
s'est produite. Dans l'exemple, la ligne 6 signalera un code d'erreur dans Err . Number si 
la fonction GetObjectO echoue. Done, la ligne 7, deduisant qu'Excel n'est pas deja 
demarre, lance une instance d'Excel par la fonction CreateObject( ). (Pour detecter 
d'autres erreurs plus loin dans le programme, comme vous devriez le faire si vous affi- 
chez des boites de dialogue et que vous aviez besoin de savoir si l'utilisateur a clique sur 
Annuler, vous pouvez reinitialiser l'etat de l'erreur en mettant Err . Number a 0.) La variable 
booleenne blnRunning est mise a False pour que le programme sache qu'il a lance Excel. 

Si Excel etait deja en cours a" execution, il ne faut pas Varreter dans votre 
programme . 



Quand vous ouvrez une autre application en utilisant l'automatisation, votre application 
doit comprendre dans le detail son interface. D'une certaine maniere, votre programme 
est un utilisateur de l'autre application. Done, si vous ouvrez Excel, vous interagissez 
avec lui en utilisant la notation classique de ligne et de colonnes, mais vous devez aussi 
utiliser une notation de proprietes des objets specifique a Excel. 
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Les variables d'objets d'automatisation d' application sont une exception a la 
regie generale qui dit qu'il est preferable de n'utiliser que des variables loca- 
les. L' operation etant reellement en dehors de votre application, vous pouvez 
utiliser en toute securite une variable objet globale pour que vos procedures 
n'aient pas a transmettre la variable de 1' application. 

Vous devez maintenant declarer un objet feuille de calcul pour que l'application puisse 
generer des donnees : 

Dim obWorkSheet As Object ' Objet feuille de donnees 

Le code suivant ajoute des donnees a certaines cellules de la feuille de donnees : 

' Entrer des valeurs dans des cellules 
obWorkSheet. Cells (1 , 1). Value = "Ventes" 
obWorkSheet. Cells(1 , 2). Value = "Mois" 
obWorkSheet. Cells(2, 1). Value = 21913.44 
obWorkSheet. Cells(2, 2). Value = "avril" 

Si vous assemblez les elements de la section precedente et ajoutez un peu de code de 
nettoyage, comme le code d'enregistrement de la feuille de calcul et de fermeture de 
l'objet Excel, vous devriez aboutir a quelque chose qui ressemble au Listing 17.1 . 

Listing 17.1 : Votre application peut utiliser Excel pour creer une feuille de calcul 

1: Private Sub cmdSendToExcel_Click( ) 

2: Dim obExcelApp As Object ' Objet Appplication 

3: Dim obWorkSheet As Object ' Objet Feuille de calcul 

4: Dim blnRunning As Boolean ' Si Excel etait en execution 

5: 

6: ' Deroutement des erreurs 

7: On Error Resume Next 
8: 

9: ' Referencer l'application Excel 

10: Set obExcelApp = GetObject(, "Excel. Application" ) 

11: If Err. Number <> 0 Then 

12: Set obExcelApp = CreateObject( "Excel. Application" ) 

13: blnRunning = False 1 Excel n'etait pas en execution 

14: Else 

15: blnRunning = True 

16: End If 

17: 

18: ' Ajouter un nouveau classeur 

19: obExcelApp. Workbooks. Add 
20: 

21 : ' Referencer la feuille de calcul active 

22: Set obWorkSheet = obExcelApp. ActiveSheet 
23: 
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Listing 17.1 : Votre application peut utiliser Excel pour creer une feuille de calcul 

( suite) 

24: ' Entrer des valeurs dans les cellules de la feuille active 
, 25: obWorkSheet. Cells (1 , 1). Value = "Ventes" 
, 26: obWorkSheet. Cells (1 , 2). Value = "Mois" 

27: obWorkSheet. Cells(2, 1). Value = 21913.44 
, 28: obWorkSheet. Cells(2, 2). Value = "avril" 

29: 

30: ' Selectionner la deuxieme ligne pour formater 

31 : obWorkSheet. Rows( "2:2") .Select 

32: obExcelApp. Selection. NumberFormat = "$##,###.##" 

j 33: 

I 34: ' Enregistrer le classeur (changez ce nom s'il existe deja) 
I 35: obExcelApp. Save ("c:\VBCreated.XLS") 
36: 

37: ' Ne pas quitter si Excel etait deja lance ! 

38: obExcelApp. ActiveWorkBook. Close False 

39: 

, 40: If Not (blnRunning) Then ' S'il n' etait pas lance... 
41: obExcelApp. Quit ' alors quitter Excel 

42: End If 
43: 

I 44: End Sub 

Si vous avez verifie qu'Excel n'etait pas deja en cours d' execution, vous pouvez le 
fermer (comme le fait la ligne 41). Dans le cas contraire (la fonction GetObj ect ( ) n'ayant 
pas renvoye d'erreur) , il n'est pas souhaitable de quitter Excel, car il peut etre en train de 
s'executer en tache de fond. Le code de cet exemple cree la petite feuille de calcul illus- 
tree a la Figure 17.3. 



Figure 17.3 
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Cette feuille de calcul est simple pour permettre a l'exemple d'avoir une taille raison- 
nable. D'ordinaire, votre application Visual Basic peut modifier des valeurs et meme 
declencher un graphique Excel et imprimer un etat. La chose importante a retenir est 
que Visual Basic a utilise 1' intelligence d'Excel pour creer une feuille de calcul mise en 
forme sans que l'utilisateur, a son clavier, ne sache qu'Excel est implique. 

Une fois que vous avez utilise Excel ou Word ou une autre application compatible Acti- 
veX, vous devez inclure cet objet dans votre application Visual Basic. 

Excel contient son propre langage d'automatisation, comme Word et toutes 
les applications compatibles avec V automatisation ActiveX. Cependant, la 
plupart des applications supportent les caracteristiques d' ouverture et de 
fermeture presentees dans cette section pour connecter une application et 
son objet de donnees principal a des variables objet Visual Basic. De meme, 
elles supportent des methodes et des proprietes comme celles qui sont 
illustrees ici. Vous n'aurez que peu de problemes tant que vous comprenez. 
Visual Basic. Vous devez cependant avoir acces au langage interne de 
V application utilisee pour V automatisation . Recherchez. dans son aide en 
ligne pour trouver sa hierarchie des objets. 



Creation de vos propres controles ActiveX 

Si l'idee de creer un controle ActiveX vous effraie un peu, considerez les raisons qui 
peuvent vous amener a le faire. Vous pourriez non seulement distribuer (ou meme 
vendre) vos controles a d'autres developpeurs, mais aussi les reutiliser dans vos 
propres applications. Par exemple, si vous vous retrouvez a toujours refaire les memes 
types de modifications aux controles de Visual Basic pour qu'ils fonctionnent comme 
vous le voulez, ecrivez de nouveaux controles qui ne se contentent pas d'imiter ceux 
dont vous disposez, mais qui presentent des proprietes et des methodes integrees dont 
vous avez besoin ! La prochaine fois que vous avez a ecrire une application qui a 
besoin de ce controle, vous n'avez qu'a l'ajouter a la boite a outils et definir les 
proprietes necessaires. Au lieu d'avoir a recrire le meme code pour que le controle se 
comporte d'une certaine maniere, il suffit de parameter les valeurs de ses proprietes et 
de revenir aux details importants de 1' application. 



— 1 ) Un autre avantage lie au developpement de votre propre collection d' outils 
de programmation ActiveX est la possibilite de porter ces outils vers d'autres 
langages de programmation qui supportent ActiveX, par exemple Visual 
C+ + . 
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Concevoir les controles 

Visual Basic contient des outils qui vous aident a concevoir vos propres controles 
ActiveX, meme si le processus doit se passer en plusieurs etapes. Pour illustrer ce que 
cela implique, le reste du Chapitre vous guide dans la conception d'un nouveau type de 
zone de texte. 



Details de la nouvelle zone de texte 

La nouvelle zone de texte que vous allez creer etendra le controle TextBox generique de 
Visual Basic en proposant les caracteristiques suivantes : 

• II reconnaitra toutes les valeurs classiques des proprietes reconnues par le controle 
TextBox standard. 

• II contiendra aussi une nouvelle propriete, AutoTSize qui reconnait quatre valeurs : 
1-NA, 2-Small, 3-Medium et 4-Large. Ces valeurs apparaitront comme une enume- 
ration dans une liste deroulante de la fenetre Proprietes. Vous pouvez assigner, dans 
votre code, 1,2,3 ou 4 a la zone de texte pour parametrer la valeur. La valeur 1 -NA, 
qui est la valeur par defaut, ne modifie pas la taille courante de police de la zone de 
texte, definie dans la propriete Font. Size. Lorsqu'on attribue la valeur 2-Small, le 
texte de la zone de texte sera dimensionne a 25 % de la valeur Height. La valeur 3- 
Medium met la taille du texte a la moitie de la valeur Height. Enfin, la valeur 4-Large 
mettra le texte a 75 %. (La valeur de la propriete Font .Size se modifiera pour refle- 
ter la nouvelle taille.) Cela donne une maniere simple de parametrer le texte de la 
zone de texte a une de ces trois valeurs. 



0& 



Une enumeration est une liste de valeurs fixes pouvant etre prises par un 
controle, par exemple, True et False. Les valeurs enumerees apparaissent 
dans une liste deroulante en face de la propriete dans la fenetre Proprietes. 



• II contiendra egalement deux nouvelles proprietes appelees UCase et LCase, qui 
seront des proprietes booleennes. Si UCase est positionne a True, le texte de la zone 
de texte sera converti en majuscules. Si LCase est positionne a True, le texte sera 
converti en minuscules. UCase et LCase sont par defaut tous deux parametres a 
False ; les deux ne pouvant etre True en meme temps. Votre controle doit done 
s'assurer que, lorsqu'une de ces proprietes est a True, l'autre se positionne a False. 

Le nouveau controle ActiveX que vous creerez ressemblera et fonctionnera comme les 
autres. Vous pourrez l'inserer dans la fenetre Boite a outils, double-cliquer dessus pour 
l'ajouter a la fenetre feuille, et selectionner ses proprietes a partir de la fenetre Proprietes. 
Ce nouveau controle est visible lors de l'execution, mais vous pouvez aussi creer un 
controle a l'arriere-plan qui ne s'affiche pas dans la fenetre feuille lors de l'execution 
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(comme c'est le cas du controle Timer). II faut pour cela positionner la propriete Invisi- 
bleAtRunTime a True. Un tel controle fonctionne a l'arriere-plan et n'apparait pas sur la 
feuille utilisateur. (La propriete Visible determine simplement si le controle peut etre vu, 
alors que la propriete invisibleAtRunTime, lorsqu'elle prend la valeur True, garantit que le 
controle ne peut jamais etre affiche.) 

Le nom du nouveau controle sera TextSizeUL. 



L'importance des classes 

Tous les objets Visual Basic, y compris les variables et les controles, sont membres d'une 
classe. Le groupement en classes vous offre une maniere de regrouper les objets identi- 
ques. De plus, vous pouvez sous-classer un objet dans une classe existante pour creer un 
nouvel objet qui aura toutes les proprietes du reste de la classe et de nouvelles qui lui 
seront propres. Grace au sous-classement, vous n'avez pas a reinventer la roue, car 
l'objet (dans ce cas le controle ActiveX) accepte automatiquement les proprietes, les 
methodes et les evenements supportes par la classe parente ; vous pouvez alors en ajouter 
de nouveaux. 

Une classe est un regroupement (ou en fait une description) des proprietes, 
des methodes et des evenements supportes par un objet. Un controle n'est 
rien d' autre qu'une instance d'un objet d'une classe donnee. Une feuille 
ajoutee a un projet, par exemple, est simplement une instance que vous avez, 
ajoutee a la classe Form. Lefait d'etre un membre de la classe Form donne a 
la feuille ses proprietes, ses methodes et ses evenements, qui sont distincts 
des autres classes d' objets, par exemple la classe CommandButton. 

Sous-classer signifie creer un nouvel objet a partir d'une classe d'objets existants. Le 
nouvel objet prend les proprietes, les methodes et les evenements de sa classe parente. 
Vous pouvez egalement y ajouter vos propres proprietes, methodes et evenements. 

Les types de donnees integres, comme String, ne sont pas membres d'une 
classe Visual Basic, car Us ne supportent pas d' evenements. 



Supposons que vous vouliez creer un controle qui en imite en partie un autre. En sous- 
classant ce nouveau controle, vous lui adjoignez automatiquement toutes les proprietes, 
methodes et evenements supportes par le controle parent. Le sous-classement n'est 
cependant pas une obligation, car vous pouvez toujours creer un controle sans cette 
aide. 
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Visual Basic propose trois manieres de creer de nouveaux controles ActiveX : 

• Les controles sous-classes simples. Vous pouvez utiliser un controle ActiveX 
existant comme base de votre nouveau controle, qui est alors sous-classe a partir 
du controle d'origine (parent). Le nouveau controle recoit toutes les fonction- 
nalites du controle parent existant et peut les etendre en ajoutant de nouvelles 
caracteristiques. Le sous-classement d'un controle est la maniere la plus simple de 
creer un controle ActiveX. Vous devez modifier l'interface du controle sous-classe 
pour qu'il supporte les nouvelles caracteristiques que vous voulez que votre 
controle offre. 

• Les controles sous-classes agreges. Vous pouvez sous-classer votre nouveau 
controle a partir de plusieurs controles existants. En d'autres termes, si votre 
nouveau controle ressemble a une boite de dialogue contenant des boutons de 
commande, des boites de texte, des etiquettes, vous pouvez utiliser les controles 
existants pour reduire le travail a effectuer sur le nouveau controle. Vous pouvez 
alors vous concentrer sur les fonctionnalites supplementaires qu'il doit apporter. 

• Les controles dessines par l'utilisateur. Si votre controle n'a rien en commun avec 
des controles existants, vous pouvez le creer a partir de zero en definissant toutes ses 
proprietes, tous ses evenements et methodes, puis le dessiner pour qu'il ressemble 
exactement a ce que vous souhaitez. Un controle cree par l'utilisateur demande un 
reel effort de creation, car on n'emprunte aucune des fonctionnalites des controles 
existants. 

Creer le controle ActiveX 

Les sections qui suivent vous guident dans le processus de creation du nouveau controle 
ActiveX TextSizeUL. 

Preparer Visual Basic 

Vous ne devez pas suivre la procedure standard de creation des applications Visual Basic 
lorsque vous creez un controle ActiveX. Lorsque vous selectionnez Nouveau, Projet 
pour afficher la boite de dialogue Nouveau Projet, au lieu de cliquer sur l'icone EXE 
standard, selectionnez l'icone Controle ActiveX. Visual Basic se prepare pour le 
nouveau controle et l'ecran ressemble beaucoup a celui de la creation d'une nouvelle 
application — mis a part que la fenetre feuille semble s' afficher sans sa bordure habi- 
tuelle (voir Figure 17.4). En realite, la fenetre ne montre pas une feuille, mais la toile de 
fond du controle ActiveX a creer. Visual Basic lui attribue le nom par defaut 
UserControll . Naturellement, le mot User est trompeur, car c'est en tant que program- 
meur que vous creez ce controle pour vous assister dans votre developpement. Une fois 
le controle concu, cependant, l'utilisateur final pourra effectivement interagir avec lui. 
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Figure 17.4 
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Le terme execution a un sens different suivant que vous creez des controles ou des appli- 
cations classiques. Alors que la conception d'un controle se produit quand vous creez ou 
modifiez le controle, il peut etre execute dans les deux situations suivantes : 

• Quand un programmeur Tinsere au moment de la conception d'une application, le 
controle est un executable compile qui reagit aux instructions d'installation du program- 
meur. 

• Lorsque le programmeur compile et execute Implication, le controle s'execute 
aussi, mais il reagit alors a un utilisateur final. 

Pour distinguer ces deux types d' execution, les programmeurs parlent respectivement 
d' execution a la conception et d' execution a 1' execution. En general, le contexte du 
mode d'execution est evident quand vous creez ou utilisez le controle ActiveX. 

U execution a la conception est le terme qui s' applique a un controle que 
vous "executez" pour le tester au moment de sa creation. U execution a 
V execution s' applique au controle qui s'execute de concert avec une appli- 
cation. 
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Commencer la personnalisation 

Vous pouvez ajouter votre nouveau controle ActiveX a la fenetre Boite a outils. Une des 
premieres choses a faire est done, une fois les objectifs du controle definis, de lui affec- 
ter une icone. La propriete ToolboxBitmap configure l'icone que vous voulez utiliser. Le 
rectangle gris qui ressemble un peu a une fenetre feuille dans le coin superieur gauche 
de la zone d'edition est en fait votre controle, mais il est encore vierge. Lorsqu'elle est 
selectionnee, la fenetre Proprietes affiche done des valeurs pour le controle. 

Faites defiler la fenetre des proprietes pour trouver ToolboxBitmap. Lorsque vous 
double-cliquez sur la propriete, la boite de dialogue Charger un bitmap s'ouvre pour 
vous permettre de trouver une icone sur le disque et l'utiliser comme icone du controle 
ActiveX. Dans notre cas, selectionnez dans le repertoire \Graphics\Bitmaps\Assorted 
\Plan, qui se trouve dans le dossier Common de Visual Basic (si vous avez installe les 
fichiers graphiques supplementaires lors de 1' installation de Visual Basic). 

Vous pouvez creer votre propre image bitmap avec Windows Paint (ou un 
programme de dessin du meme genre). L' image doit avoir une taille de 
15 pixels par 16 pour qu'elle s 'affiche de la meme maniere que les autres 
icones de la boite a outils. 

L' image Plan est une icone qui s'adaptera bien a cette nouvelle entree de boite a outils 
qu'est la nouvelle zone de texte. Le bitmap s'affichera dans le coin superieur gauche de 
la feuille du controle lorsque vous renseignez la propriete ToolboxBitmap. 

Les informations concernant votre controle s'afficheront dans les applications qui en 
feront usage, il est done utile de le documenter. Selectionnez Projet, Proprietes et modi- 
fiez le nom du projet de Projectl en TextSizeUL. Ajoutez une description dans la zone 
de texte intitulee Description du projet pour que les applications qui utiliseront le 
controle puissent l'afficher. Tapez ce qui suit dans la description : 

Un controle de zone de texte qui commande sa propre taille et 
gere la conversion majuscule-minuscule. 

Modifiez le nom de propriete du controle en NewControl. Enregistrez ensuite le controle 
et le projet lorsque la question est posee. Visual Basic enregistre le controle sous le nom 
NewControl . ctl, mais vous finirez par convertir le projet en un fichier ActiveX. 

Sous-classer le controle 

Vous pouvez desormais sous-classer le nouveau controle a partir du controle TextBox 
classique, pour qu'il en prenne les proprietes, les evenements et les methodes. Lors du 
sous-classement du controle, 1' assistant Interface de controles ActiveX vous permettra 
d'etendre ses fonctionnalites. 
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L 'assistant Interface de controles ActiveX est un assistant qui vous guide 
dans le processus du sous-classement d'un nouveau contrdle. 



L' assistant Interface de controles ActiveX ne fait pas partie de l'environnement Visual 
Basic par defaut. Vous pouvez l'y ajouter par les etapes suivantes : 

1. Selectionnez le menu Complements. 

2. Selectionnez le Gestionnaire de complements pour afficher la boite de dialogue 
correspondante, illustree a la Figure 17.5. 



Figure 17.5 
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3. Double-cliquez sur l'element "Assistant Interface de controles ActiveX". Le 
message "Charge" qui apparait a sa droite vous informe que 1' assistant fait desor- 
mais partie de l'environnement. 

Si vous creez souvent des controles ActiveX, vous pouvez cocher la case 
Charger au demarrage pour que V assistant se charge toujours avec l'envi- 
ronnement Visual Basic. 

4. Cliquez sur OK pour fermer la boite de dialogue. 

Si l'assistant est bien charge, vous n'etes pas encore pret a le demarrer ; vous devez 
commencer par ajouter un controle TextBox a sous-classer dans votre controle 
ActiveX vierge. Vous pouvez cependant verifier que l'assistant a bien ete ajoute a 
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l'environnement Visual Basic en affichant le menu Complements. La derniere option 
doit etre Assistant Interface de controles ActiveX. Chaque fois que vous ajoutez des 
composants a l'environnement Visual Basic, ils s'affichent dans le menu Complements. 

Avant de demarrer 1' assistant, vous devez ajouter un controle TextBox a votre projet. Placez- 
le sur l'arriere-plan et nommez-le txtParent. Cette zone de texte sera commandee par le 
nouveau controle ActiveX. Lorsqu'un programmeur utilisera votre controle ActiveX et le 
redimensionnera, ce sont les procedures evenementielles qui modifieront la zone de texte 
interne du nouveau controle. Le controle TextBox fournit les fonctionnalites que vous devez 
sous-classer. 

D'une certaine maniere, la zone de texte agira comme un controle masque 
(exactement comme un objet local dans un controle public), qui sera utilise 
par d'autres projets. Votre controle utilisera ce controle intrinseque, en 
modifiera le comportement et le presentera alors a d'autres applications. 

Demarrer I'assistant 

Vous etes maintenant pret a lancer I'assistant Interface de controles ActiveX a partir du 
menu Complements. La premiere fenetre qui s'affiche est un ecran d' introduction que 
vous avez le choix de cacher lors d'executions ulterieures en cochant la case en bas de la 
fenetre. Apres avoir lu le contenu de cette fenetre, cliquez sur Suivant pour afficher la 
fenetre Selection des membres d' interface, illustree a la Figure 17.6. 




Figure 17.6 
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L' assistant affiche deux listes d' informations. Celle de gauche contient tout ou partie 
des proprietes, evenements et methodes que vous pouvez inclure dans le nouveau 
controle ActiveX. L' assistant genere la liste en analysant le controle en cours ; ici, le 
controle TextBox place dans la zone d' edition. 

La liste de droite contient plusieurs proprietes, methodes et evenements selectionnes par 
1' assistant dans la liste complete de gauche. Vous pouvez selectionner des elements 
supplementaires en cliquant sur un element de la fenetre de gauche, puis sur le bouton > 
pour l'envoyer dans la liste de droite des elements selectionnes. Vous pouvez aussi 
selectionner des elements dans la liste de droite et cliquer sur < pour les supprimer. 

Le bouton » envoie tous les elements de la liste de gauche dans la liste de 
droite. Le bouton « efface tous les elements selectionnes pour vous 
permettre de repartir de zero. 

D'une maniere surprenante, l'assistant n'envoie pas plusieurs proprietes necessaires aux 
boites de texte sous-classees dans la liste de droite ; vous devez done selectionner et faire 
passer a droite les elements suivants : 

• Alignment 
Change 

• FontBold 
Fontltalic 

• FontName 
FontSize 
FontS trikethru 

• FontUnderline 

• Multiline 
PasswordChar 

• ScrollBars 
Text 

ToolTipText 

Vous devez pouvoir appliquer toutes ces proprietes a votre nouveau controle ActiveX de 
zone de texte, avec les nouvelles proprietes a definir. Une fois les elements ajoutes, 
cliquez sur Suivant pour afficher la fenetre Creation des membres d'interface person- 
nalises , illustree a la Figure 17.7. 
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Figure 17.7 
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La liste au centre de la fenetre est vierge, car il vous reste a ajouter vos propres elements 
a la configuration du controle. Vous ne pouvez pas taper directement Telement, vous 
devez cliquer sur le bouton Nouveau pour decrire la nouvelle propriete (ou methode ou 
evenement) que vous souhaitez ajouter. 

En cliquant sur Nouveau, vous affichez la boite de dialogue illustree a la Figure 17.8. 
Vous devez saisir le nom et le type (propriete, methode ou evenement) du nouvel 
element en cliquant sur Tune des options presentees. Puis cliquez sur OK pour l'ajouter 
a la liste de 1' assistant. 




> 550 



Chapitre 17 : Controles ActiveX 



Pour le controle ActiveX que vous etes en train de creer, entrez les deux elements 
suivants : 

AutoTSize (propriete) 

ULText (propriete) 

Cliquez sur Suivant pour passer a la fenetre suivante, Definition de l'association. C'est 
la que vous associez, ou connectez, les proprietes, evenements et methodes aux equiva- 
lents de la zone de texte. En d'autres termes, la liste affichee dans la fenetre Noms 
publics est celle qui est generee a partir des elements selectionnes precedemment et des 
nouveaux que vous avez ajoutes dans la fenetre precedente. 

Vous devez indiquer a l'assistant comment vous voulez que chaque propriete, methode 
et evenement se comporte. Dans le cas de la nouvelle zone de texte que vous creez, vous 
voulez que tous fonctionnent comme ils le font normalement pour une zone de texte. 
(Vous pourriez cependant modifier les associations : par exemple, un evenement 
MouseDown pourrait etre associe a un evenement MouseClick, genere a la place de 
l'evenement MouseDown normal qui se produit quand l'utilisateur clique sur le controle.) 

Les deux seules proprietes que vous ne voulez pas associer au comportement normal 
d'une zone de texte sont les deux que vous avez ajoutees : AutoTSize et ULText. Selec- 
tionnez done tous les elements de la liste hormis ces deux-la. 



La liste supportant les selections multiples, une maniere rapide de tout 
selectionner sauf vos deux proprietes consiste a cliquer sur le premier 
element de la liste, puis a appuyer sur les touches Maj+Fin pour mettre tout 
en surbrillance . En maintenant la touche Ctrl enfoncee, cliquez enfin sur les 
proprietes ULText et AutoTSize pour les deselectionner. 

Selectionnez l'element auquel vous voulez associer tous ces elements. Ouvrez la liste 
deroulante Correspond a Controle et selectionnez txtParent. Tous ces elements publics, 
a l'exception des deux qui ne sont pas selectionnes, sont appliques au controle TextBox 
incorpore que vous avez place sur la feuille. Vous voulez que la zone de texte interne se 
comporte normalement pour que le controle ActiveX puisse y acceder normalement. 
Les deux nouvelles proprietes ne s'appliqueront absolument pas a la zone de texte 
interne — c'est pourquoi elles n'y sont pas associees. 

Cliquez sur Suivant pour afficher la fenetre Definition des attributs illustree a la 
Figure 17.9. C'est ici que vous faites correspondre les nouvelles proprietes au nouveau 
controle. 
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Figure 17.9 

Vous pouvez 
maintenant faire 
correspondre les 
nouvelles proprietes 
a votre contrdle. 



Assistant Interface de cantrflles ActiveX - Definition des attributs 




Description 



Vous pouve2 definir les attributs des membres non associes, Tous 
les rnembres que vous ne modifiez pas utilisent les valeurs par 
defaut. 

Selectionnez le nom public du membre dontvous souhaitez 
modifier les valeurs d'attribut. Repetez cette operation pour 
chaque membre a modifier, 

Une fbis cette operation terminee, cliquez sur Suivant 
r- Informations sur les attributs 
Type de donnees Valeur par defaut 



Property 



Variant 



Moment I'execution Moment de 



Lecture-ecriture 
Argument 



■3 



Lecture-ecriture 



3 



Aide 


Annuler 


< Precedent 


buivant > jl 


Terminer 





Si vous avez ajoute des methodes et des evenements au nouveau controle, ils apparai- 
tront egalement dans la fenetre Definition des attributs. Vous avez deja fait correspon- 
dre les proprietes, methodes et evenements connus au controle interne, vous devez 
maintenant vous occuper des nouveaux. Suivez ces etapes pour preparer les nouvelles 
proprietes : 

1. Pour la propriete AutoTSize selectionnee, changez la valeur par defaut de 0 a 1 (les 
autres champs sont deja corrects). Si vous vous en souvenez, la propriete AutoTSize 
devra prendre une valeur parmi quatre enumerees, qui vont de 1 a 4. La valeur 1 sera 
la valeur par defaut (c'est-a-dire la valeur prise lorsqu'on place pour la premiere 
fois le controle ActiveX dans une feuille) . II faut done remplacer le 0 par 1 . 

2. Tapez la description suivante pour la propriete AutoTSize : 

Determine le pourcentage (25%, 50% ou 75%) de la taille de police du 
texte en fonction de la hauteur. 

3. Selectionnez la propriete ULText. Tous les champs sont corrects, mais il faut ajouter 
cette description : 

Met le texte en majuscules, minuscules ou ne le change pas. 

4. Cliquez sur Suivant pour achever la tache de l'assistant. II peut desormais construire 
toutes les informations necessaires a la generation du controle. Vous pouvez cliquer 
sur Terminer pour le generer. Si vous laissez cochee l'option Afficher le 
recapitulatif , l'assistant affiche un resume de ce qui reste a faire. 
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A l'evidence, le controle ActiveX est incomplet. Vous n'avez pas defini le comporte- 
ment des proprietes AutoTSize et ULText. L'assistant configure les parametres du 
controle, mais vous devez toujours ajouter du code et completer manuellement le 
controle ActiveX pour le rendre entierement fonctionnel. 

Completer le corps du controle ActiveX 

L'assistant ne peut pas ajouter le code qui active les proprietes AutoTSize et ULText, car il 
n'a aucun moyen de savoir ce que vous voulez en faire. II a cependant pu associer les 
proprietes, methodes et evenements existants au controle parent, car ces elements sont deja 
definis. 

Pour achever le controle ActiveX, vous devez faire un peu de programmation, ce qui, 
naturellement, se fait dans la fenetre Code. Selectionnez Affichage, Code pour voir le 
contenu de la fenetre. En parcourant le code, vous remarquerez que la majeure partie est 
dediee a l'association des proprietes, methodes et evenements, a ceux de la zone de texte 
txtParent sous-jacente. En d'autres termes, quand un programmeur utilisant ce nouveau 
controle configure, en execution de conception (c'est-a-dire que le code s'execute lors de 
la conception d'une autre application) , la propriete BackColor, le code configure en fait la 
propriete BackColor de la zone de texte sous-jacente. Ce code est parfois complexe, 
attendez-vous done a ne pas tout en comprendre. 



Observez, dans le code, toutes les procedures evenementielles Let et Get. 
Comme vous devez vous en souvenir, ces deux qualifiants particuliers de 
fonctions sont utilises pour configurer et renvoyer des valeurs pour les 
proprietes que vous creez. L 'assistant a en effet cree des proprietes pour le 
controle TextBox parent lorsque vous les avez associees au nouveau 
controle. 



$0 



Ne faites jamais de modifications dans les parties du code prefacees par la 
remarque suivante : 

'ATTENTION! NE SUPPRIMEZ PAS OU NE MODIFIEZ PAS LES LIGNES 
COMMENTEES SUIVANTES! 



Completez. toutes les parties qui contiennent des commentaires commencant 
par les mots : A COMPLETER. Vous verrez de telles parties si vous creez de 
nouveaux controles ActiveX bases sur un des controles de liste. L'assistant 
ne peut pas gerer les proprietes des listes, vous devez. done ajouter le code 
necessaire au traitement des listes si vous utilisez un jour un controle de 
liste comme parent. 
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Les instructions qui suivent ces commentaires sont cruciales pour le fonctionnement du 
nouveau controle et doivent etres laissees telles quelles. 

Le Listing 17.2 montre les premieres lignes du code. Elles sont dediees aux nouvelles 
proprietes que vous avez ajoutees au projet. 

Listing 17.2 : L' assistant a initialise les valeurs par defaut des nouvelles proprietes 

'Valeurs de proprietes par defaut: 
Const m_def_AutoTSize = 1 
Const m_def_ULText = 0 
'Variables de proprietes: 
Dim m_AutoTSize As Variant 
Dim mJJLText As Variant 

Le mot cle Const declare des constantes nommees. Done, a la ligne 2, m_def_AutoTSize 
n'est pas une variable, mais une constante nommee. Visual Basic comporte plusieurs 
constantes nommees telles que vbWhite et vblnf ormation ; vous pouvez aussi declarer les 
votres, qui peuvent etre locales ou globales. (Les constantes nommees sont souvent globa- 
les, car, de par leur nature meme, elles ne risquent pas d'etre modifiees par inadvertance 
par une procedure qui ne devrait pas y avoir acces.) 

Les lignes 2 et 3 declarent des constantes nommees pour les valeurs par defaut des deux 
nouvelles proprietes. Elles sont configurees dans la fenetre Definir les attributs de 1' assis- 
tant. Elles apparaitront dans la fenetre Proprietes correspondant aux deux proprietes 
quand un programmeur placera le controle ActiveX dans une feuille. Chaque fois que le 
reste du code fait reference a une de ces constantes nommees, elle est remplacee par sa 
valeur creee aux lignes 2 et 3 du Listing 17.2. 

Les lignes 5 et 6 declarent des variables Variant qui representent la valeur en cours des 
proprietes, definie quand un programmeur configure une de ces valeurs en execution de 
conception (ou quand l'application finale parametre par programme ces valeurs). 

Vous devez definir les valeurs enumerees des deux proprietes qui s'afficheront dans la 
fenetre Proprietes. Une liste enumeree se decrit dans un pave de code d'enumeration qui 
commence par l'instruction Enum. Juste apres la partie generale de la fenetre de code, 
tapez le code du Listing 17.3. 

Listing 17.3 : Vous devez definir les valeurs enumerees qui s'afficheront 
dans la fenetre Proprietes 

1 : Public Enum AutoTSizeEnum 

2: NA = 1 

3: Small = 2 

4: Medium = 3 

5: Large = 4 

6: End Enum 



j> 554 




Chapitre 17 : Controles ActiveX 



9 
10 
11 



Public Enum ULTextEnum 
Asls = 0 
Uppercase = 1 
Lowercase = 2 
End Enum 



Declarez toutes les valeurs enumerees publiques pour qu'elles soient toujours accessi- 
bles. L'instruction Enum debute une definition de valeurs enumerees. Ce sont des valeurs 
qui s'afficheront dans une liste deroulante de la fenetre Proprietes pour les deux proprie- 
tes. Les valeurs AutoTSize se presenteront sous la forme courante suivante : 

1 - NA 

2 - Small 

3 - Medium 

4 - Large 

Pour parametrer une valeur initiale, le programmeur peut selectionner une de ces valeurs 
dans la fenetre Proprietes lorsqu'il travaille avec le controle ActiveX. En outre, le code 
inclus dans l'application qui utilise ce controle ActiveX peut assigner 1 , 2, 3 ou 4 a la 
propriete pour parametrer le controle. L'instruction d' assignation peut egalement assi- 
gner les valeurs enumerees, comme on le fait ci-dessous : 

NewControl. AutoTSize = Medium ' Assigne 3 

De la meme maniere, le type enumere ULTextEnum definit les valeurs enumerees de la 
propriete ULText. 

Le code de dimensionnement du nouveau controle est tres simple, car il doit prendre la 
taille de sa zone de texte parente. Souvent, un nouveau controle ActiveX doit prendre 
une taille differente du ou des controles qu'il sous-classe, en particulier avec les 
controles ActiveX sous-classes agreges. Cependant, lorsqu'il y a correspondance 
univoque entre la taille du parent et celle du nouveau controle, vous pouvez ajouter une 
procedure evenementielle UserControl_Resize( ) en saisissant dans la fenetre de code la 
procedure illustree dans le Listing 17.4. 



Listing 17.4 : Le nouveau controle ActiveX sera a la meme place et 
de la meme taille que le controle TextBox interne 

1: Private Sub UserControl_Resize() 

2: 1 Definit la hauteur et l'echelle a celle du controle sous-jacent 

3: ' Etend le controle aux bonnes largeur et hauteur 

4: If UserControl. Height <> txtParent .Height Then 

5: txtParent. Height = UserControl. Height 

6: End If 

7: txtParent .Move 0, 0, UserControl. ScaleWidth 

8: End Sub 
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La ligne 4 permet de s' assurer que, lorsque le programmeur qui utilise le nouveau 
controle modifie sa taille, le controle TextBox incorpore est egalement redimensionne, 
car il fonctionne comme un receptacle du nouveau controle. La ligne 7 utilise la 
methode Move pour deplacer la zone de texte parente vers le coin superieur gauche du 
nouveau controle (0,0), puis parametre la meme echelle pour les deux proprietes. Cela 
garantit que la zone de texte interne se deplace chaque fois que le programmeur deplace 
le nouveau controle. La methode Move gere a la fois le deplacement et le dimension- 
nement et permet de conserver les deux controles a l'identique. La zone de texte agit 
done comme un caique sur le controle ActiveX et reste toujours exactement au-dessus 
pour recevoir et afficher le texte. 

Maintenant que vous etes debarrasses du probleme de la taille, votre tache principale 
consiste a configurer l'affichage des valeurs enumerees, a ecrire le code qui gere la 
selection de la propriete AutoTSize et la conversion du controle ActiveX en minuscules 
ou majuscules, qui depend de la propriete ULText. L'assistant a cree un receptacle pour 
ces proprietes, mais vous devez completer les details. 

Vous etes maintenant pret a configurer les procedures Let et Get pour les nouvelles valeurs 
de proprietes. Lorsque l'utilisateur (e'est-a-dire le programmeur qui utilise ce controle 
ActiveX dans une application) parametre une valeur de propriete, la procedure Let 
s'execute. Lorsque l'utilisateur accede a une valeur de propriete, la procedure Get 
s' execute. 

La methode la plus simple des deux est Get. L'assistant a cree des procedures echan- 
tillons de la fonction Get pour les deux proprietes, mais vous devrez les modifier. Au 
lieu de renvoyer un type de donnees Variant, il faudra utiliser le type enumere, comme le 
montre le Listing 17.5. 

Listing 17.5 : Les procedures Get des nouvelles proprietes doivent renvoyer les 
valeurs enumerees correspondantes 

1: Public Property Get AutoTSize() As AutoTSizeEnum 
2: AutoTSize = m_AutoTSize 
3: End Property 
4: 

5: Public Property Get ULText() As ULTextEnum 
6: ULText = mJJLText 
7: End Property 

Ce listing ne fait qu'assigner la valeur en cours du membre a la propriete d'etat. La 
conversion de Variant en enumeration pour la valeur de retour est la seule modification 
necessaire. 
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Vous devez aussi modifier les deux types de donnees des procedures Let. Elles deman- 
dent du code supplemental. Lorsqu'une valeur est assignee a une des deux nouvelles 
proprietes, plusieurs choses doivent se passer, par exemple le dimensionnement du texte 
ou la conversion en majuscules ou en minuscules. 

II vous faut done completer les deux procedures Let des proprietes correspondantes, car 
l'assistant n'a cree qu'un noyau de code. Le code resultant est montre dans le 
Listing 17.6. 

Listing 17.6 : Vous devez completer les procedures Let des deux proprietes 



1: Public Property Let AutoTSize(ByVal New_AutoTSize As AutoTSizeEnum) 

2: m_AutoTSize = New_AutoTSize 

3: ' Tester l'etat de la propriete et en modifier la taille 

4: ' en fonction de sa valeur 

5: 

6: Select Case New_AutoTSize 

7: Case 1: ' Pas de modification necessaire 

8: Case 2: Font. Size = 72 * 0.25 * (Height / 1440) 

9: Case 3: Font. Size = 72 * 0.5 * (Height / 1440) 

10: Case 4: Font. Size = 72 * 0.75 * (Height / 1440) 

11 : End Select 

12: PropertyChanged "AutoTSize" 

13: End Property 

14: 

15: Public Property Let ULText(ByVal NewJJLText As ULTextEnum) 

16: mJJLText = NewJJLText 

17: 1 Tester l'etat du controle 

18: 1 et modifier en fonction la zone de texte 

19: 1 (ignorer ULText a 0 qui signifie tel quel) 

20: If NewJJLText = 1 Then 

21: Text = UCase(txtParent. Text) 

22: Elself NewJJLText = 2 Then 

23: Text = LCase(txtParent.Text) 

24: End If 

25: PropertyChanged "ULText" 
26: End Property 



Assurez-vous que vous avez bien modifie les types de donnees transmis 
des procedures Get AutoTSize( ) et Get ULText ( ) pour qu 'elles recoivent des 
donnees enumerees au lieu des types de donnees Variant qu' elles recoi- 
vent par defaut. 




557 < 



Partie III 



Les lignes 8, 9 et 10 ajustent la taille de police du controle TextBox interne a un facteur 
de sa propriete Height. Le programmeur travaille directement sur le nouveau controle 
ActiveX, mais ce dernier n'est en fait qu'un intermediate vers la zone de texte interne 
qui s'affiche dans la feuille. Les fonctions internes UCase( ) et LCase( ) des lignes 21 et 
23 convertissent le texte en majuscules ou minuscules, suivant la valeur donnee a la 
propriete. Si le programmeur qui utilise le controle ActiveX assigne la propriete ULText a 
la conception ou a l'execution, cette procedure s'execute. 

La conception et la creation du controle ActiveX est achevee. Vous devez maintenant le 
preparer a etre insere dans une autre application et le tester pour vous assurer qu'il fonc- 
tionne comme vous le voulez. 

Implementer le controle ActiveX 

Le nouveau controle ActiveX peut etre insere dans une application et place sur la feuille, 
et il recoit egalement tous les avantages des controles intrinseques. Sa fenetre Proprietes 
fonctionnera comme pour les autres controles. De meme, quand un programmeur qui 
utilise le controle ActiveX dans une fenetre de code tape une instruction d' assignation 
d'une valeur de propriete, meme la fenetre Info Express s'affiche pour permettre de la 
selectionner. La boite a outils qui contient le controle ActiveX affiche aussi automati- 
quement une info-bulle qui le decrit. Vous serez tiers de votre controle ActiveX lorsque 
que vous l'utiliserez, car il se comportera comme s'il avait ete fourni avec Visual Basic 
par Microsoft ! 

Quand vous compilez le controle ActiveX, Visual Basic le transforme en un fichier 
ActiveX que vous pouvez inserer dans un projet comme n'importe quel controle ActiveX. 
Si vous ne creez pas le fichier OCX, vous ne pourrez pas utiliser le controle dans une 
application. 

Le controle doit etre enregistre avant compilation. Choisissez Fichier, Enregistrer le 
projet pour enregistrer a la fois le controle et le projet. Un controle ActiveX ne peut 
pas etre execute en utilisant la touche F5, car il doit etre compile avant de pouvoir 
s'executer. Le terme executer signifie en fait ici fonctionner comme les autres quand un 
programmeur utilise le controle dans une application. 

Pour compiler le controle ActiveX, selectionnez Fichier, Creer. Visual Basic affiche la 
boite de dialogue Creer le projet illustree a la Figure 17.10. Vous pouvez selectionner 
l'emplacement du controle ActiveX compile. Vous pouvez le placer dans votre dossier 
\ Windows \System ou dans un dossier de travail Visual Basic que vous avez cree. (C'est le 
dossier dans lequel vous recherchez quand vous voulez charger le controle Visual Basic 
dans la boite a outils d'une autre application Visual Basic a partir de la boite de dialogue 
Proprietes.) Si le compilateur signale des erreurs, Visual Basic ne creera pas le controle 
et mettra en surbrillance les lignes de code en erreur. Des que les bogues sont elimines, 
le compilateur vous renvoie dans l'environnement de developpement. 
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Figure 17.10 
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Options 



Visual Basic supporte deux methodes de test du controle : 

• Ouvrir un nouveau projet et y tester le controle. L'environnement de developpement 
n'est disponible que pour le test des controles ActiveX. 

• Ouvrir un nouveau projet EXE Standard et y deposer le controle. 

Pour tester le nouveau controle, il faut l'utiliser en situation. Selectionnez Fichier, 
Nouveau Projet et creez un nouveau fichier EXE Standard. Appuyez sur Ctrl-T pour 
ouvrir la boite de dialogue Composants. Comme le montre la Figure 17.11, le controle 
TextSizeUL apparait en haut de la boite de dialogue. La description que vous avez utilisee 
pour le controle s'affiche pour faciliter la selection. 

Selectionnez le controle ActiveX et fermez la boite de dialogue. L'image bitmap que 
vous avez selectionnee a la creation du controle s'affiche dans la boite a outils. Pour 
utiliser le programme dans une application, suivez ces etapes : 

1. Changez le nom de feuille en frmActiveX et son titre en Test du controle ActiveX. 
Etendez les proprietes Width et Height a 7575 et 5775, respectivement. 

2. Pointez le controle TextSizeUL et lisez l'info-bulle creee par l'assistant de controle 
ActiveX. NewControl n'est pas tres parlant, mais c'est le nom sous lequel vous avez 
enregistre le projet. Dans cette session, nous nous interessons plus au fonctionne- 
ment qu'au nom du controle. 

3. Double-cliquez sur le nouveau controle pour l'ajouter a la feuille. (Vous pouvez aussi 
dessiner la faille du controle a la souris.) Le controle ressemble a une zone de texte 
tout ce qu'il y a de plus normal mis a part ses deux proprietes supplementaires. 
Dimensionnez le controle TextSizeUL a environ 4 815 twips (propriete Width) par 
1 215 twips (propriete Height). Mettez la propriete Font. Size a 18 et Font. Bold a 
True. 
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Figure 17.11 

Le texte de 

description 

du nouveau controle 

ActiveX s 'affiche dans 

la boite de dialogue 

Composants . 



□ 



Controles j Concepleurs | Objels ainserer | 



□ Microsoft Windows Common Controls-2 6,0 

□ Microsoft Windows Common Controls-3 6,0 

□ Microsoft Winsock Control 6,0 

□ MSFIexGrid Wizard 

□ Package and Deployment Wizard 

□ setupctl 1,0 Type Library 

□ TLBMSMusCtl 
□| 

□ VB 6 Application Wizard 

□ VB 6 Data Form Wizard 

□ VB 6 MSChart Wizard 

□ VisModelBrowser 

□ webvw 1.0 Type Library 

*\ i 



~3 



controle de zone de texts qui commande sa 





r Elements selectionnes 



Un controle de zone de texte qui commande sa propre taille et gere la conversion m 
Chemin d'acces: C:\WINDOWS\SVSTEM\TEXTSIZEULOCX 



Appliquer 



4. Cliquez sur le bouton de la propriete ULText pour ouvrir la liste deroulante. Vous 
verrez trois valeurs enumerees, Asls, Uppercase et Lowercase, telles qu'elles ont ete 
programmers. Pour l'instant, laissez la valeur par defaut. 

5. Cliquez sur la propriete AutoTSize pour voir ses valeurs enumerees. Laissez encore 
la valeur par defaut. 

6. Changez la propriete Name en MyFirstCtl et effacez la propriete Text. 

7. Ajoutez cinq boutons de commande a la feuille en utilisant les valeurs de proprietes 
du Tableau 17.1. 

Tableau 17.1 : Definissez ces controles et ces proprietes pour les boutons 
de commande de la feuille 



Controle 


Propriete 


Command 1 Name 


cmdSmall 


Commandl Caption 


Texte &Small 


Commandl Left 


1320 


Commandl Top 


2640 


Command2 Name 


cmdMedium 



> 560 



Chapitre 17 : Controles ActiveX 



Tableau 17.1 : Definissez ces controles et ces proprietes pour les boutons 
de commande de la feuille (suite) 



Contrdle 


Propriete 


Command2 Caption 


Texte &Medium 


Coroma.nd2 Left 


^ 1 0C\ 

J 1ZU 


V^UlIlIIldIlU.Z. 1 Up 




Command3 Name 


cmdLarge 


Command3 Caption 


Texte &Large 


Command3 Left 


/1G90 


Command3 Top 


OA/in 


Command4 Name 


cmdUpper 


r^ommfiTirl^- fanti nn 

VI llllltlllLlr wau L1UI 1 


LriLl 1 OC UoL Lilt, 3 


Command4 Left 


2160 


Command4 Top 


3600 


Command5 Name 


cmdLower 


Command5 Caption 


Minuscu&les 


Command5 Left 


3960 


Command5 Top 


3600 



8. Ajoutez les procedures evenementielles du Listing 17.7 



Listing 17.7 : Ces procedures evenementielles permettront de tester le nouveau 
controle ActiveX 

1: Private Sub cmdSmall_Click( ) 

2: ' Test de la conversion Small 

3: MyFirstCtl.AutoTSize = Small 

4: End Sub 
5: 

6: Private Sub cmdMedium_Click( ) 

7: ' Test de la conversion Medium 

8: MyFirstCtl.AutoTSize = Medium 

9: End Sub 
10: 

11: Private Sub cmdLarge_Click( ) 
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12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



1 Test de la conversion Large 
MyFirstCtl.AutoTSize = Large 
End Sub 

Private Sub cmdllpper_Click( ) 

' Test de la conversion en majuscules 
MyFirstCtl.ULText = Uppercase 

End Sub 

Private Sub cmdLower_Click( ) 

1 Test de la conversion en minuscules 
MyFirstCtl.ULText = Lowercase 

End Sub 



En tapant ces lignes, remarquez que Visual Basic vous aide a localiser les valeurs de 
proprietes du nouveau controle ActiveX lorsque vous tapez le signe egale, a l'aide d'une 
liste deroulante d'options ((voir Figure 17.12). Les choix proposes sont les seules options 
acceptables par Visual Basic. Cette liste de selection a done quelque chose d'incroyable, 
etant donne que vous n'avez absolument rien fait pour generer cette fonction. 



Figure 17.12 
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Private Sub cmdSmall_Click 0 
1 Test de la conversion Small 
MyFirstCtl.AutoTSize = Small 

End Sub 



Private Sub cmdMedium_Click 0 
1 Test de la conversion Medium 
MyFirstCtl.AutoTSize = Medium 

End Sub 



Private Sub cmdLarge_Click () 
1 Test de la conversion Large 
MyFirstCtl.AutoTSize =| 
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| frmActiveX 






Appearance 


[1-3D 






AutoRedraw 


False 






3ackColor 


□ aH8D0D0(; 






3orderStyle 


2 - Sizable 




Caption 


Forml 




ClipControls 


True 




ControlBox 


True 




DrawMode 


13 - Copy Pet 




DrawSryle 


0 - Solid 




DrawWidth 


1 




Enabled 


True 




FillColor 


■ BlHOOOOOC 





(Name) 

»| Renvoie le nom utilise dans le 
code pour identifier un objet. 



Seules les valeurs enumerees s'affichent 
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Compilez et executez 1' application. Tapez une valeur dans la zone de texte du controle 
ActiveX, en combinant majuscules et minuscules. Cliquez sur les trois boutons de 
dimensionnement pour voir la taille du texte se modifier. Ces boutons ne sont pas asso- 
cies a la propriete Font. Size, mais a la nouvelle propriete creee pour le controle. 
Cliquez aussi sur les boutons de commande de conversion de la casse pour voir les 
modifications. 




Une fois que vous avez converti le texte du controle ActiveX en majuscules 
ou en minuscules, la casse d'origine est perdue. 



Figure 17.13 

Les proprietes 
du controle ActiveX 
effectuent desormais 
les conversions. 



« Test du Controle ActiveX 



Texte a convertir 



MM 



Texte Small 



'■■'--I-'.'" 



Texte Large 



Majuscules 



La Figure 17.13 montre l'application en execution. Ces conversions ne demandaient pas 
la creation d'un controle ; cependant, le nouveau controle supporte des proprietes inte- 
grees qui peuvent etre configurees a tout moment pour commander la taille du texte en 
fonction de la propriete Height, et egalement la casse du texte. 
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En resume 

La legon d'aujourd'hui vous a explique comment travailler sur les objets particuliers que 
sont les controles ActiveX. Non seulement ils ajoutent des nouveaux controles a votre fene- 
tre Boite a outils, mais ils peuvent etre utilises dans d'autres types d' applications Windows 
comme Visual C++ et les navigateurs Internet. C'est pourquoi les controles ActiveX sont 
disponibles a partir de nombreuses sources differentes. Une fois que vous avez appris a 
utiliser un controle ActiveX, vous pouvez le reutiliser dans d'autres applications. 

Vous pouvez creer vos propres controles ActiveX en tirant avantage de 1' assistant Inter- 
face de controles ActiveX. Vous pouvez sous-classer un controle ActiveX a partir d'un 
controle existant (meme si c'est un autre controle ActiveX ecrit par quelqu'un d'autre). 
Finalement, vous pourrez creer une bibliotheque de controles qui vous aideront dans la 
creation de nouveaux controles et applications. 

Questions-reponses 

Q Pourquoi creer de nouveaux onglets de groupe dans la fenetre Boite a outils ? 

R Les onglets ne sont la que pour organiser les controles. En les regroupant, vous 
retrouverez plus facilement le controle dont vous avez besoin pour un but particulier. 
Par exemple, si vous creez une application Visual Basic qui se rapporte aux bases de 
donnees, vous pouvez regrouper l'ensemble des controles qui ont trait a ce sujet 
dans leur propre onglet pour y acceder plus simplement. Vous n'avez plus a chercher 
dans tous les controles de l'onglet General pour retrouver celui dont vous avez 
besoin. Meme s'ils sont groupes dans les onglets, tous les controles de la fenetre 
Boite a outils sont toujours disponibles. 

Q Puis-je me debarrasser des onglets de groupes que je cree ? 

Oui. II suffit de cliquer du bouton droit sur le nom de groupe pour afficher un menu 
contextuel contenant l'option Supprimer un onglet. Vous pouvez aussi renommer les 
onglets a partir de ce menu. 

Atelier 

L' atelier propose une serie de questions qui vous aident a renforcer votre comprehension 
des elements traites et des exercices qui vous permettent de mettre en pratique ce que 
vous avez appris. Essayez de comprendre les questions et les exercices avant de passer a 
la lecon suivante. Les reponses se trouvent a 1' Annexe A. 
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Quiz 

1 . Que signifie automatisation ? 

2. Que se passe-t-il si votre application utilise CreateObject() pour un document Word, 
alors que Word est deja en execution ? 

3. Pourquoi ne peut-on pas assigner directement des applications a des variables 
objets ? 

4. Quel est le but de l'objet systeme Err. Number ? 

5 . Quelles sont les trois manieres de creer des controles ActiveX ? 

6. Quelle est la methode de creation des controles ActiveX la plus simple a utiliser ? 

7. Vrai ou Faux. Quand vous sous-classez un controle, le nouveau controle ActiveX 
emprunte les proprietes, les methodes et les evenements du parent. 

8. A quoi servent les blocs d' enumerations ? 

9. Quelle extension utilise Visual Basic pour les controles ActiveX compiles ? 

10. Quelles sont les deux procedures obligatoires dans les proprietes des controles 
ActiveX ? 

Exercices 

1 . Utilisez la boite de dialogue Composants pour rechercher des controles ActiveX sur 
votre disque. Vous en trouverez certainement quelques-uns en dehors du dossier Visual 
Basic. Par exemple, si vous etes membres du service en ligne Microsoft Network, vous 
trouverez plusieurs controles ActiveX dans le dossier Microsoft Network. 

2. Modifiez le controle ActiveX et 1' application crees a la fin de cette lecon. Modifiez la 
valeur enumeree Asls en AsEntered. Modifiez le controle ActiveX pour que, quand 
un programme change le texte de AsEntered en Uppercase ou Lowercase, le controle 
memorise le texte tel qu'il se presentait avant conversion. Recrivez 1' application finale 
de cette legon et ajoutez un sixieme bouton de commande qui indique Comme saisi. 
Lorsque l'utilisateur clique dessus, le texte doit revenir a sa forme initiale. 
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Ces elements 
qui enjolivent 
les applications 

Ce projet decrit comment creer une application qui comporte les elements suivants : 

une boite A propos de affichee par 1' option de menu Aide, A propos de ; 

un fichier son joue automatiquement lorsque la boite A propos de s'affiche ; 

une zone d'image animee illustrant une animation simple ; 

un timer qui controle 1' animation ; 

un groupe de controles images. 

Ce projet ne comporte aucune fantaisie. Malgre la zone d'image animee, vous verrez 
que l'animation est assez triste. Cela ne pose cependant pas de probleme, car le but est 
de vous faire comprendre les principes du deplacement des objets dans les zones 
d'images et vous aurez une experience pratique de l'utilisation des boites A propos de et 
de l'ajout d'un fichier Wav a vos applications. 
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But de Implication 



La Figure PB8.1 montre la feuille telle qu'elle se presentera durant 1' animation. (A la 
premiere execution de 1' application, l'enveloppe est close et la lettre ne s'affiche pas). La 
feuille est simple et assez grande pour permettre a la lettre de s'echapper de l'enveloppe 
ouverte quand l'utilisateur clique sur le bouton Animer. 



Figure PB8.1 

L' application montre 
simplement une lettre 
qui s 'echappe 
de l'enveloppe. 



l-lolxl 



Unefois V animation demarree, la lettre continue a sortir de l'enveloppe, et 
le titre du bouton devient Stop. 



La Figure PB8.2 montre la boite A propos de qui s'affichera quand l'utilisateur 
selectionne Aide, A propos de. 



Creation de la feuille principale 

Le Tableau PB8.1 contient les controles et proprietes dont vous avez besoin pour creer la 
feuille principale qui s'affiche lorsque l'utilisateur demarre l'application. Vous devez avoir 
installe le dossier Graphics avec Visual Basic ; dans le cas contraire, vous devrez inserer le 
CD-ROM Visual Basic et pointer sur le dossier ou reinstaller Visual Basic avec les graphi- 
ques. De plus, vous devez appuyer sur Ctrl-T pour ajouter le controle multimedia a la 
boite a outils avant de pouvoir 1' inserer dans la feuille. 
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Figure PB8.2 

Unfichier Wav 
est joue quand 
I'utilisateur qffiche 
cette boite 
A propos de. 



•m A propos de ph8 



pb8 



Voir une animation simple 
et entendre un son 



Attention : programmeur a bord ! 



System Info. . 



De nombreux controles de ce projet, tel le contrdle Timer et les zones 
d'images, places lors de la conception, se positionnent sur les bords exte- 
rieurs de lafeuille, pour qu'ils ne genent pas Vajout des autres controles. Le 
contrdle Timer etant invisible a I'utilisateur, il pent etre place n'importe oil. 
Les zones d'images se deplacant dans V animation, leur position initiate 
importe peu. 



Ce projet contient trois controles de zones d'images qui font partie d'un 
unique groupe de controles. Vous pourriez creer trois controles PictureBox 
separes, mais les mettre en groupe est un bon exercice pour les projets qui 
demandent de nombreux controles identiques en apparence et dans leur but. 
Pour creer le groupe, creez le premier contrdle, picAni2 (le contrdle 
picAnil est un contrdle independant) . Une fois picAni2 place et ses 
proprietes assignees, copiez.-le dans le Presse-papiers par la commande 
Edition, Copier. Selectionnez Edition, Cotter et repondez. Oui quand la boite 
de dialogue vous demande pour creer un groupe de controles. Visual Basic 
transforme le contrdle d'origine picAni2 en picAni2 (0) , premier element 
du groupe. Copiez une nouvelle fois pour avoir un troisieme element dans le 
groupe picAni2. 



Pour vous donner une meilleure idee de l'apparence de la feuille, la Figure PB8.3 
montre a quoi elle devrait ressembler apres le placement des controles du Tableau 
PB8.1. Al'execution, certains controles seront invisibles et donneront l'illusion d'une 
lettre qui jaillit de l'enveloppe. 



Le son, Chimes .wav , qui est joue lorsque I'utilisateur selectionne Aide, A 
propos de, est unfichier de son standard fourni avec Windows. 
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Figure PB8.3 

Votre feuille aura 
cette apparence 
unefois les contrdles 
places. 



1 



1-lnlxl 



:fEl 



I- 1 I I I 1 1^ 



Tableau PB8.1 : Configurez ces controles et ces proprietes dans la feuille 



Nom de propriete du controle 


Valeur de propriete 


Feuille : Name 


frmEnvelope 


Feuille : Caption 


Envoyer une lettre 


Feuille : Height 


5790 


Feuille : Width 


7845 


Option de menu #1 : Name 


mnuHelp 


Option de menu #1 : Caption 


&Aide 


Option de menu #2 : Name 


mnuHelpAbout 


Option de menu #2 : Caption 


A &propos de... 


Bouton de commande : Name 


cmdAni 


Bouton de commande : Caption 


&Animate 


Bouton de commande : Left 


2940 


Bouton de commande : Top 


2880 


Timer : Name 


tmrAni 
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Tableau PB8.1 : Configurez ces controles et ces proprietes dans la feuille (suite) 



Norn de propriete du contrdle 


Valeur de propriete 


Timer : Enabled 


False 


Timer : Interval 


300 


Timer : Left 




1410 


Timer : Top 




3405 


PictureBox #1 : 


: Name 


pic Anil 


PictureBox #1 : 


: Height 


495 


PictureBox #1 : 


: Left 


3330 


PictureBox #1 : 


: Picture 


Common\Graphics\Icons\Mail\MailO 1 a 


PictureBox #1 : 


: Top 


1485 


PictureBox #1 : 


: Width 


1215 


PictureBox #2 ; 


: Name 


picAni2(0) 


PictureBox #2 : 


: Height 


495 


PictureBox #2 : 


: Left 


5895 


PictureBox #2 : 


: Picture 


Common\Graphics\Icons\Mail\MailO 1 a 


PictureBox #2 : 


: Top 


2520 


PictureBox #2 ; 


: Width 


1215 


PictureBox #3 : 


: Name 


picAni2(l) 


PictureBox #3 : 


: Height 


495 


PictureBox #3 : 


: Left 


5520 


PictureBox #3 : 


: Picture 


Common\Graphics\Icons\Mail\Mail01b 


PictureBox #3 : 


: Top 


3240 


PictureBox #3 : 


: Visible 


False 


PictureBox #3 : 


: Width 


1215 
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Tableau PB8.1 : Configurez ces controles et ces proprietes dans la feuille (suite) 



Norn de propriete du contrdle 


Valeur de propriete 


PictureBox #4 


Name 




picAni2(2) 


PictureBox #4 


Height 


495 


PictureBox #4 


Left 




3960 


PictureBox #4 


Picture 


Common\Graphics\Icons\Mail\Mail03 


PictureBox #4 


Top 




1080 


PictureBox #4 


Visible 


False 


PictureBox #4 


Width 




1215 


Controle multimedia : 


Name 


mmcEnv 


Contrdle multimedia : 


DeviceType 


WaveAudio 


Controle multimedia : 


PlayEnabled 


True 


Controle multimedia : 


Filename 


\Windows\Media\Chimes .wav 


Controle multimedia : 


Left 


2520 


Controle multimedia : 


Top 


4080 


Controle multimedia : 


Visible 


False 


Controle multimedia : 


Width 


3540 



Ajouter le code de la feuille principale 

Le Listing PB8.1 contient le code que vous devez ajouter a la feuille principale. II active 
la feuille et commande l'animation, qui est simple. Elle resulte du deplacement d'un 
controle PictureBox sur trois endroits de la feuille. 

Listing PB8.1 : Le code de l'animation peut etre simple 

1: Private Sub cmdAni_Click( ) 

2: ' Utilise le bouton pour commander l'animation 
3: If cmdAni. Caption = "&Animer" Then 
4: cmdAni. Caption = "&Stop" 
5: tmrAni. Enabled = True 
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6: Else 

7: cmdAni. Caption = "SAnimer" 

8: tmrAni. Enabled = False 

9: End If 

10: End Sub 
11 : 

12: Private Sub mnuHelpAbout_Click( ) 

13: mmcEnv. Command = "Open" 

14: mmcEnv. Command = "Play" 

15: f rmAbout .Show 

16: End Sub 
17: 

18: Private Sub tmrAni_Timer( ) 

19: 1 Determine le bon emplacement 

20: 1 d 1 image a afficher 

21 : 1 

22: ' La variable suivante part de zero 

23: 1 et conserve sa valeur a chaque execution 

24: 1 de la procedure. 

25: Static intCounter As Integer 

26: 

27: Select Case intCounter 

28: Case 0: 

29: picAnil . Picture = picAni2(1 ) .Picture 

30: picAni2(2) .Visible = True 

31 : picAni2(2) .Left = 3840 

32: picAni2(2) .Top = 1220 

33: intCounter = 1 

34: Case 1 : 

35: picAnil . Picture = picAni2(1 ) .Picture 

36: picAni2(2) .Visible = True 

37: picAni2(2) .Left = 4040 

38: picAni2(2) .Top = 1120 

39: intCounter = 2 

40: Case 2: 

41: picAnil . Picture = picAni2(1 ) .Picture 

42: picAni2(2) .Visible = True 

43: picAni2(2) .Left = 4240 

44: picAni2(2) .Top = 1220 

45: intCounter = 3 

46: Case 3: 

47: picAnil . Picture = picAni2(0) .Picture 

48: picAni2(2) .Left = 4440 

49: picAni2(2) .Top = 1320 

50: intCounter = 4 

51 : Case 4: 

52: 1 Arreter 1' animation 

53: picAnil .Visible = True 

54: intCounter = 0 

55: picAni2(2) .Visible = False 

56: End Select 

57: End Sub 
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Analyse 



La procedure evenementielle cmdAni_Click( ) bascule le titre du bouton de commande 
d' Animer a Stop. Si le titre est Animer, la ligne 4 le modifie en Stop et le controle Timer 
est active a la ligne 5. L'evenement Click du bouton de commande declenche alors 
l'evenement tmrAni_Timer( ) de la ligne 18. La propriete Interval a 300 signifie que la 
procedure tmrAni_Timer( ) s'executera toutes les 300 millisecondes pour creer l'anima- 
tion. Elle continue tant que l'utilisateur ne clique pas sur le bouton Stop. La ligne 7 
change alors a nouveau le titre en Animer et la ligne 8 desactive le Timer. 

La procedure evenementielle tmrAni_Timer( ) , qui commence a la ligne 18, est done 
executee par l'evenement Timer toutes les 300 millisecondes. Elle effectue une des cinq 
actions controlees par l'instruction Select Case de la ligne 27. La variable de controle 
est une variable statique, declaree a la ligne 25, qui part d'une valeur de 0 (comme toute 
variable statique). Une fois une valeur assignee, elle sera preservee lors des executions 
ulterieures de tmrAni Timer ( ) . Elle peut prendre les valeurs de 0 a 4, modifiees a chaque 
execution. 

Chacun des trois premiers cas effectue les actions suivantes : 

• Assigne a l'enveloppe fermee l'icone de l'enveloppe ouverte (voyez les lignes 29 et 
35). 

• Rend l'icone de lettre visible (voyez les lignes 30 et 36). 

• "Deplace" l'icone de lettre en modifiant ses proprietes Left et Top (voyez les 
lignes 31 et 32). 

• Incremente la variable statique intCounter pour qu'a l'execution suivante, un autre 
groupe d' instructions Case s' execute. 

Ce processus se poursuit jusqu'a ce que la valeur de Case soit de 4. A ce moment, a la 
ligne 53, la procedure montre a nouveau l'enveloppe fermee et masque l'icone de lettre 
(ligne 55). Sauf si l'utilisateur clique a ce moment sur le bouton Stop, la lettre se remettra 
a voler hors de l'enveloppe au bout de 300 millisecondes, car la ligne 54 assigne 0 a la 
variable statique pour obliger l'execution du premier Case. 

La procedure evenementielle restante, mnuHelpAbout_Click ( ) , commande l'affichage de 
la boite A propos de a la ligne 15, apres que les lignes 13 et 14 ont ouvert et fait jouer le 
fichier Wav. Les proprietes de la feuille A propos de sont decrites a la section suivante. 

Si la boite A propos de contient du code, ce dernier provient du modele de 
feuille utilise pour la boite A propos de. Vous n'avez rien a ajouter ou a modi- 
fier. II garantit que la routine Infos systeme commence lorsque l'utilisateur 
clique sur le bouton de commande correspondant. 
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Creation de la boite A propos de 

Utilisez le modele de feuille A propos de pour la boite A propos de. Une fois la premiere 
feuille creee, cliquez du bouton droit dans la fenetre Projet et selectionnez Ajouter, 
Feuille. Selectionnez A propos de, ce qui ajoute la feuille et le code correspondant au 
projet. 

Le Tableau PB8.2 contient les valeurs de controles a utiliser. Le Tableau PB8.2 ne 
contient que les proprietes a modifier. 



Tableau PB8.2 : Configurez ces controles et ces proprietes dans la feuille 
A propos de 



Nom de propriete du controle 


Valeur de propriete 


lblDescription Caption 


Voir une animation simple et entendre un son 


lblDescription FontSize 


14 


lblDescription FontStyle 


Gras 


lblDisclaimer Caption 


Attention : programmeur a bord ! 



— 1 Le code qui accompagne la boite A propos de ajoute le titre et le numero de 
version a partir des objets systeme App. Title, App. Major, App. Minor et 
App. Revision. Ces trois dernier s se combinant pour donner le numero de 
version 1 .0.0. 
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Chapitre 



18 



Interactions avec 
les donnees 

Ce chapitre vous montre comment acceder aux bases de donnees a partir de vos applica- 
tions Visual Basic. Une base de donnees est un regroupement de fichiers qui offre un 
systeme de gestion de donnees complet. Un tel systeme, tel Microsoft Access, cree la 
base de donnees a laquelle votre application Visual Basic peut avoir besoin de se 
connecter. En utilisant des controles et des methodes specifiques, vos applications 
peuvent communiquer avec la base de donnees. 

Vous apprendrez aujourd'hui : 

• les bases de donnees avec lesquelles interagir ; 
la terminologie des bases de donnee ; 

• l'importance des champs d'index ; 

les capacites du Gestionnaire des donnees a analyser les structures de donnees ; 
le controle Data ; 

• la comparaison entre les controles ADO et le controle Data ; 

• comment l'assistant Creation d' applications de Visual Basic peut analyser les tables 
et generer des feuilles. 
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Donnees de base de donnees et Visual Basic 

En offrant la possibilite d'interagir avec les bases de donnees, Visual Basic vous permet 
d'acceder a et de manipuler des ressources de donnees importantes a partir d'un 
programme Visual Basic. Les bases de donnees auxquelles il peut acceder ont des formes 
et des formats nombreux. Visual Basic supporte les formats de base de donnees courants 
suivants : 

Microsoft Access ; 

DBase ; 

FoxPro ; 

• bases de donnees des feuilles de calculs Lotus ; 

• bases de donnees compatibles ODBC ; 
Paradox ; 

• fichiers texte avec des donnees separees par des virgules. 

Une base de donnees est un regroupement organise de donnees, qui ne sont 
generalement pas basees sur du texte, comme c'est le cas des donnees de 
traitement de texte. Ce sont plutot des groupes d'elements qu'il faut suivre, 
que ce soient des personnes, des clients, des fournisseurs, des inventaires, 
des livres ou des logiciels (en d'autres term.es, tout type de donnees dont 
vous devez garder la trace, faire des comptes rendus et modifier). Souvent, 
vous utilisez. un systeme de base de donnees, tel que Microsoft Access, pour 
creer et gerer la structure de la base de donnees. Visual Basic permet 
d'acceder a la base a partir du systeme de base de donnees. 

Visual Basic peut acceder aux donnees de nombreuses versions de ces 
systemes de base de donnees et les gerer. Tant que vous utilisez une version 
qui existe depuis V apparition de Windows 95, vous pouvez etre sur que 
Visual Basic reconnait son format (mais il supporte aussi certaines versions 
anterieures a Windows 95). 

Pour comprendre comment Visual Basic supporte l'utilisation des bases de donnees, 
vous devez comprendre les termes apparentes a leur technologic La lecon 
d'aujourd'hui ne propose qu'un vernis ! Vous lisez ce livre pour apprendre Visual Basic 
et pas les bases de donnees. Pour une approche plus approfondie du sujet, il existe de 
nombreux ouvrages traitant des bases de donnees et des acces avances de Visual Basic. 



> 
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II n'est cependant pas utile d'etre un expert en bases de donnees pour connaitre les 
techniques d'acces de Visual Basic. Ce dernier comporte de nombreux controles qui 
gerent l'acces aux bases de donnees dans un environnement structure. Le reste du chapitre 
vous presente ces outils et le traitement des bases de donnees en general. 



Apprentissage des termes 

On commence generalement par apprendre les bases de donnees en partant des fichiers 
de donnees en general. Vous avez deja un avantage, car vous avez deja entendu parler 
des enregistrements et des champs au Chapitre 12. La Figure 18.1 illustre un scenario 
classique qui montre clairement le concept des enregistrements et des champs. Un enre- 
gistrement peut etre considere comme une ligne d' informations dans un fichier de 
donnees, meme si un enregistrement logique peut s'etendre sur deux ou trois lignes 
physiques du fichier. Chaque enregistrement est decompose en champs ou colonnes, qui 
aident a distinguer les elements de donnees de 1' enregistrement. 



Figure 18.1 

Un fichier de texte 
classique se decompose 
en enregistrements 
et champs. 



EnregistrementsH- 



CodeD 
piece 





Fichier d'inventaire 



Description 



Prix deD 
QuantiteD gros 



Prix deD 
detail 



XG12 


Gadget 


47 


0,52 


01,35 


C1-98 


Embases n° 4 


3 


16,73 


26,99 


W2A 


Sac de joints 


5 


9,38 


14,95 


KL7 


Boulon n° 4 


62 


0,12 


00,67 


AT8E 


Boulons n° 5 


38 


0,08 


00,21 


MVP9 


Joint large 


4 


7,88 


15,00 


MVP8 


Joint etroit 


2 


4,88 


10,00 




Champs 



— ' I Le fichier de donnees de la Figure 18.1 presente sept enregistrements et cinq 
champs. Si d'autres elements sont ajoutes a Vinventaire, le nombre d'enre- 
gistrement augmentera, mais le nombre de champs restera le mime. Les 
fichiers de donnees ne sont cependant pas figes, car vous pouvez augmenter 
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le nombre de champs. Mais vous devez pour cela changer la structure du 
fichier ; I'ajout de champs ne constitue habituellement pas le meme traite- 
ment que I'ajout ou la suppression d'enregistrements. La plupart du temps, 
vous ajoutez ou retirez des elements d'inventaire, ce qui revient a ajouter ou 
supprimer des enregistrements a la base de donnees. 

Les noms de champs ne font jamais partie des donnees. lis ne servent qu'd 
etiqueter les champs, comme les noms de variables etiquettent le contenu 
des variables. 

Le fichier de la Figure 18.1 est dit fichier sequentiel, car il est autonome. Un programme 
peut acceder simplement aux informations — en sequence ou aleatoirement. Les enre- 
gistrements n'ont pas d'ordre particulier, mais le concepteur de la base peut par exemple 
les classer par numero de piece, car ce type de fichier est plus simple a utiliser si on 
emploie des donnees triees. Les systemes de base de donnees d'aujourd'hui vont bien 
plus loin que le concept de fichier sequentiel unique illustre par cette figure. 

Dans la terminologie de base de donnees actuelle, une table est un fichier de donnees, et 
la base de donnees est le rassemblement de ces tables. Done, votre base de donnees peut 
se composer d'une table des clients, d'une table des fournisseurs , d'une table des 
employes et d'une table d'inventaire. Lorsque vous les mettez dans une base de donnees 
unique, un programme qui a acces a la base a acces a l'ensemble des tables en meme 
temps. II peut done determiner quel fournisseur vous a vendu une piece en gros ou quel 
employe a vendu un produit particulier. En d'autres termes, un systeme de base de 
donnees peut prendre ces tables differentes et fournir a partir de la des informations 
consolidees. 

On utilise une interrogation pour rechercher des informations dans une base de donnees. 
C'est-a-dire qu'un programme interroge la base de donnees pour rechercher un enregistre- 
ment ou un groupe d'enregistrements. Une table de base de donnees dispose generalement 
d'au moins un index. Un index est un champ de cle avec des valeurs uniques pour chaque 
enregistrement. L index fonctionne comme un index de livre : quand vous avez besoin 
d'acceder a un enregistrement particulier de la table, vous pouvez specifier la valeur d'index 
et la base saute directement a la ligne correspondante sans rechercher dans toute la table 
(comme on le ferait avec des routines classiques d' acces a un fichier sequentiel). Dans la 
Figure 18.1 , le meilleur champ pour l'index serait le champ Code piece, car chaque piece a 
un numero unique. 

Avez-vous deja eu V impression de n'etre qu'un numero ? Vous etes-vous 
send fatigue de tous ces numeros presents dans votre vie ( compte cheques, 
compte d'epargne, emprunts, plaques mineralogiques , permis de conduire, 
numero de securite sociale, etc.) ? Maintenant, vous comprenez mieux 
V importance de ces numeros : Us permettent a Vordinateur de vous identifier 
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plus rapidement. Des informations enregistrees par noms seraient plus 
difficiles a retrouver. Par exemple, plusieurs personnes dans un fichier national 
de cartes de credit auront probablement le mime nom que vous. Si vous vous 
appelez Delabrosse et que vous demandez, votre solde actuel, le 
receptionniste pourrait chercher De La Brosse, ou Labrosse ou DELA- 
BROSSE, et I'ordinateur ne pas retrouver le nom. Les machines sont telle- 
ment bornees ! L' identifiant numerique unique utilise pour les champs 
d'index signifie que moins d'erreurs se produiront. Les entreprises peuvent 
egalement automatiser pour gagner du temps, ce qui se ressent finalement 
dans de meilleurs prix et taux d'interets. 

Lorsqu'ils travaillent sur des bases de donnees, les programmeurs preferent le terme 
table a celui de fichier. Cependant, ils utilisent egalement colonnes et lignes pour 
designer les champs et les enregistrements . C'est judicieux, car les fichiers, ou tables, 
sont en theorie rectangulaires (mais pas en realite, car ils sont enregistres physique - 
ment d'une maniere differente) et se composent de colonnes et de lignes (voir 
Figure 18.1). Parler de plusieurs fichiers dans un seul fichier de base de donnees peut 
egalement preter a confusion, de la le terme table pour une occurrence d'un ensemble 
de donnees (un fichier de donnees) dans la base de donnees. En outre, la plupart des 
systemes de base de donnees actuels sont relationnels, ce qui signifie qu'il n'y a pas 
deux tables contenant exactement les memes donnees pour eviter autant que possible la 
redondance des fichiers. Microsoft Access est de ce type. Les fichiers de base de 
donnees non relationnels, comme les fichiers dBase d'avant la version 4.0, demandent 
l'ajout de code Visual Basic assez complexe pour que le fichier imite les acces relation- 
nels avant de pouvoir effectuer des Entrees/Sorties avec les outils de base de donnees 
de Visual Basic. 

La plupart des bases de donnees supportent egalement l'interface utilisateur. Par exem- 
ple, les fichiers de base de donnees peuvent contenir des etats qui generent des sorties en 
fonction des donnees, des formulaires ecrans pour afficher et recevoir les nouvelles 
donnees des utilisateurs, des interrogations enregistrees pour eviter a 1'utilisateur de 
creer une nouvelle requete chaque fois qu'il a besoin d' informations, et des definitions 
de bases de donnees pour que les programmes puissent analyser la base de donnees et 
lire le format a l'aide de procedures standards. Ces procedures permettent aux program- 
meurs de savoir combien de tables existent et a quoi elles ressemblent. 
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Obtention d'un echantillon de donnees 

Visual Basic est fourni avec les deux bases de donnees exemples, toutes deux au format 
Microsoft Access : 

• BIBLIO.MDB, qui contient une base de donnees de vendeurs et de titres de livres 
informatiques. 

• NWIND.MDB, qui contient le systeme de base de donnees complet d'une entreprise 
imaginaire, comprenant l'inventaire, les clients, les fournisseurs, les employes, les 
statistiques des ventes, etc. Le nom de 1' entreprise est North wind Traders. 

Tous les noms de fichiers des bases de donnees Access se terminent par .MDB (pour 
Microsoft Database). Un fichier de base de donnees Access peut etre volumineux, car il 
contient l'ensemble des tables, etats, formulaires, ecrans et requetes enregistres dans la 
base de donnees. L'avantage du fichier unique est une simplification de la sauvegarde de 
la base complete (il n'est pas utile de garder la trace de plusieurs fichiers lorsqu'on 
effectue la sauvegarde). 

Pour que cette presentation des bases de donnees reste simple, la presente lecon utilise la 
base de donnees NWIND.MDB pour illustrer l'utilisation de certains controles et comman- 
des lies aux bases de donnees. Cependant, tous les programmeurs Visual Basic n'ont pas 
acces a un systeme de base de donnees externe. Heureusement, Visual Basic comporte un 
outil complementaire special nomme le Gestionnaire de donnees qui vous permet de creer 
et de modifier des fichiers de base de donnees. 

Le Gestionnaire de donnees est un programme de complement, disponible a 
partir de V environnement Visual Basic, que vous pouvez utiliser pour creer 
des bases de donnees, entrer modifier des donnees, et modifier et rendre 
compte de leur structure. Les fichiers crees et analyses dans le Gestionnaire 
de donnees vous aident a ecrire et a tester des programmes Visual Basic qui 
doivent travailler sur des donnees identiques . 

Si vous utilisez la version standard de Visual Basic, vous ne trouverez pas le 
Gestionnaire des donnees, mais la base de donnees NWIND.MDB est 
toujours la, ce qui vous permet de travailler sur certains des exemples qui 
suivent. 

Le Gestionnaire de donnees est le seul outil par defaut du menu Complements. Selec- 
tionnez Complements, Gestionnaire de donnees pour que Visual Basic demarre le 
programme (voir Figure 18.2). 
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Figure 18.2 

Le Gestionnaire 
de donnees vous aide 
a creer et a analyser 
desfichiers de base de 
donnees. 




. dl::jteur .idniin 



Le Gestionnaire de donnees vous permet d'eff'ectuer les taches suivantes : 

• creer de nouvelles bases de donnees ; 

entrer de nouvelles donnees dans les fichiers de donnees ; 

• modifier les structures des fichiers de base de donnees existants ; 
modifier les donnees des fichiers de base de donnees existants ; 
rechercher des champs, des requetes et des jeux d'enregistrements. 



Un jeu d'enregistrements (recordset) est simplement un regroupement 
d'enregistrements. II en existe plusieurs types. Le type par defaut est celui 
constitue par Vensemble des enregistrements (lignes) d'une table. Vous 
pouvez creer un nouveau jeu d' enregistrements en ne recherchant que les 
enregistrements qui repondent a un critere particulier (par exemple, "Tous 
les enregistrements dont le champ Solde est superieur a 3 000 F"). Un 
dynaset est un jeu d'enregistrements qui se modifie, mais en continuant a 
repondre a un certain critere lorsque vous I'interrogez. Un snapshot est un 
jeu d' enregistrements pris a un instant precis, par exemple tous les enregis- 
trements qui repondent a un critere particulier le dernier jour du mois. 



En d'autres termes, le Gestionnaire de donnees se comporte comme un systeme de 
donnees, pas tres different de Microsoft Access. Mais n'oubliez cependant pas qu'il est 
tres limite et que c'est plus un outil d' administration pour l'analyse de fichiers de base 
de donnees qu'un veritable systeme de base de donnees. Vous ne pouvez par exemple 
pas creer d'etats ni de formulaires. 
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Rappelons que cette lecon ne presente qu'un survol rapide de la technique 
et de la terminologie des bases de donnees. La mattrise d'un systeme de 
base de donnees complet tel que Microsoft Access prend autant de temps 
sinon plus que celle du systeme de developpement Visual Basic. 

Voici les etapes generates pour creer une nouvelle base de donnees avec le Gestionnaire de 
donnees de Visual Basic : 

1. Creez le fichier de base de donnees en selectionnant Fichier, Nouvelle base de donnees, 
puis en choisissant le type de base que vous voulez creer en choisissant dans la liste. Le 
Gestionnaire de donnees peut creer et modifier tous les formats de base de donnees 
listes au debut de cette lecon. 

2. Creez chaque table de la base en cliquant du bouton droit sur la fenetre Base de 
donnees et en selectionnant Nouvelle table dans le menu contexfuel. Le Gestionnaire 
de donnees affiche la feuille Modifier la structure, illustre a la Figure 18.3, dans lequel 
vous pouvez entrer le nom de la table, chacun des champs, leur type (chaque champ de 
base de donnees supporte un type de donnees unique, comme les variables dans Visual 
Basic), les exigences de securite et de validation (par exemple les champs proteges par 
mots de passe), et les champs indexes (une table peut avoir plusieurs index suivant la 
maniere dont 1' application accede aux donnees). 




Figure 18.3 

Vous pouvez 
concevoir chaque 
table et la structure 
de ses champs a 
partir du formulaire 
Modifier la structure. 



Modifier la structu 



Nom de la table: 



Liste des champs: 



Ajouter un champ 



Liste des index: 




iupprinw le champ 



Nom: 

r Prim 
r Req 



Nom: 

Type: 
Size: 

CollatingOrder; 

Or dralPosition: 
ValidationText: 
ValidationRule: 
DefaultValue ; 



r Unique 



Ajouter un index Sup_primer I'index 



Champs: 



r FIxedLength 
r VarlableLengtft 
r Autolncrement 
r AllowZeroLength 
r Required 



Creer la tabk 
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3 . Cliquez sur le bouton Creer la table pour creer la structure de la table et pour ajouter 
des tables supplementaires. 

4. Cliquez sur le bouton de la barre d'outils dont Tinfo-bulle annonce "Utiliser le 
controle Data sur la feuille" pour que le Gestionnaire de donnees de Visual Basic ait un 
outil (le controle Data) a utiliser lors de la saisie des donnees de table de la base de 
donnees. 

5 . Double-cliquez sur un des noms de table de la fenetre de base de donnees et entrez 
chaque enregistrement en utilisant le formulaire de saisie illustre a la Figure 18.4. 



Figure 18.4 

Entrez les donnees 
de chaque table pour 
avoir une base de 
donnees sur laquelle 
travailler. 



tff Dynasetlnventaire 



Valider 


Annuler 







Norn du champ: 
Code piece: 
Descrption: 
Quant] te 
Prix de gros: 
Prix de detail: 



Valeur (F4=Zoom) 



jjAjouterun enregistremenl 



Si vous avez d'abord clique sur le bouton de la barre d'outils de jeu d'enre- 
gistrements de type dynaset, les donnees que vous allez saisir prendront la 
forme d'un de ces types avances de jeux d'enregistrements. 



6. Selectionnez Fichier, Fermer pour fermer et enregistrer la nouvelle base de donnees. 

Bien que la creation d'une base de donnees exige bien plus de details que ce qu'il en est 
dit ici, vous avez desormais une idee generale des etapes necessaires a sa creation en 
n'utilisant que les outils fournis par Visual Basic. 

Si votre pro gr animation en arrive a exiger un travail important sur les bases 
de donnees, il vaut mieux ne pas vous fier au Gestionnaire de donnees de 
Visual Basic pour generer et modifier vos fichiers de base de donnees. S'il 
est utile pour decrypter les formats de base de donnees et pour creer des 
bases simples de test et de debogage, ses fonctionnalites sont tres loin de 
celles de Microsoft Access, FoxPro, ou d'autres systemes du marche. Par 
exemple, n 'utilisez pas le Gestionnaire de donnees pour concevoir et creer 
la base de donnees complete d'une entreprise. II n'est pas assez souple ni 
simple pour travailler regulierement a la gestion d'une base de donnees. 
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Pour une programmation serieuse de base de donnees, il est preferable 
d'ajouter un systeme de gestion de base de donnees a votre collection 
d' applications. 

Meme si le Gestionnaire de donnees de Visual Basic offre quelques outils d'inter- 
rogation permettant de rechercher des donnees et creer des requetes complexes pour 
trouver des enregistrements, il reste limite a 1' administration de la base de donnees. 
Visual Basic attend patiemment de vous permettre de creer une application complete 
pour reellement travailler sur une base de donnees. Maintenant que vous avez eu une 
presentation du Gestionnaire de donnees, vous etes pret a voir comment Visual Basic 
peut acceder aux fichiers de la base de donnees que vous avez crees, avec le Gestion- 
naire de donnees, ou avec un systeme autonome de gestion de base de donnees tel 
que dBase. Comme Visual Basic est fourni avec le fichier de base de donnees 
NWIND.MDB, il est inutile de creer une base pour suivre la lecon d'aujourd'hui. 

Le controle Data 

Le controle Data, ou controle de donnees, dernier controle intrinseque de la fenetre 
Boite a outils qu'il reste a etudier, est souvent considere comme un outil lent et encom- 
brant de gestion des donnees. Mais, pour sa defense, il est toujours utile pour les raisons 
suivantes : 

• C'est un controle simple, qui rend plus aise l'apprentissage de la maniere dont 
Visual Basic interagit avec les fichiers de base de donnees. 

• Le controle Data est toujours present dans la fenetre Boite a outils. II n'est done pas 
necessaire de chercher et d'ajouter un controle ActiveX pour l'utiliser. 

• L' edition Standard de Visual Basic ne contient pas tous les outils avances de base de 
donnees inclus dans les editions Professionnelle et Entreprise. Dans la partie finale 
de la lecon d'aujourd'hui, vous apprendrez comment ces outils et techniques 
avances peuvent aider le programmeur a acceder aux bases de donnees de maniere 
plus variee que ne le permet le controle Data. Mais tout le monde ne possedant pas 
ces versions, ces outils plus avances ne sont pas disponibles pour tous, alors que le 
controle Data Test. 

Les sections qui suivent decrivent comment utiliser le controle Data pour acceder a la 
base de donnees NWIND.MDB. Une fois celui-ci maitrise, les controles de donnees 
plus avances ne vous paraitront plus si impressionnants . 
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Configurer le controle Data 

La methode la plus simple pour acceder a une base de donnees est d'utiliser le controle 
Data. Quand vous le placez sur une feuille, il ressemble un peu au controle multimedia 
etudie au jour 14. Si vous l'elargissez quelque peu, vous constaterez qu'il ressemble a 
celui que montre la Figure 18.5. 



Figure 18.5 

Le controle Data 
contient des boutons 
qui vous aident a 
parcourir une base 
de donnees. 



Afficher une valeur de champ ici 



PremierD :::::: ' '''''''' 
enregistrement []lL<J D,!,Bl 



DernierD 
" enregistrement 



EnregistrementD 
precedent 



EnregistrementD 
suivant 



Un controle Data se compose de : 

• Deux fleches interieures qui permettent d'avancer et de reculer d'un enregistrement 
a la fois dans une table de base de donnees. 

• Des fleches exterieures qui vous conduisent au premier ou au dernier enregistrement 
de la table de base de donnees. 

• Une zone centrale qui affiche l'information que vous voulez de la base de donnees. 

Le controle Data est un controle lie. Vous pouvez lier de nombreux controles Visual 
Basic, tels que le controle TextBox, a une base de donnees. Quand un utilisateur parcourt 
la base, le champ de texte affiche le champ configure. Lorsque vous liez un controle a une 
base de donnees, vous n'avez plus a vous preoccuper de l'affichage des donnees du 
champ ; c'est Visual Basic qui s'occupe de tout. 

Un controle lie est un controle lie aux donnees de votre base de donnees de 
maniere a ce qu'il en rende le parcours simple pour un programme Visual 
Basic. 
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Pour afficher un enregistrement a la fois a partir d'un jeu d'enregistrements que vous 
avez defini dans la base de donnees, utilisez un controle lie. II permet de n'afficher en 
general que 1' enregistrement en cours ou un de ses champs. Lorsque l'utilisateur 
navigue dans la base en cliquant sur les boutons du controle Data, 1' enregistrement en 
cours change et reflete la position de l'utilisateur dans la table de la base de donnees. 

Utiliser le controle Data 

Pour voir fonctionner le controle Data, prenez le temps de creer une application qui affi- 
che des enregistrements d'une table de la base NWIND.MDB. Les etapes suivantes en 
decrivent le processus : 

1. Creez une nouvelle application et ajoutez le controle Data a la feuille. Modifiez la 
valeur de propriete Width a 4620 pour laisser de la place au texte a afficher dans la partie 
centrale du controle. Mettez le controle en bas de la fenetre en donnant a la propriete 
Top la valeur 3240. 

2. Nommez le controle dtaBooks. 

3. Utilisez la propriete DatabaseName pour connecter le controle a la base de donnees. 
Double-cliquez sur la propriete pour selectionner le fichier NWIND.MBD dans le 
dossier Visual Basic. Le controle Data est un controle intelligent qui sait distinguer les 
differentes tables d'une base de donnees. II permet de n'acceder qu'a une table a la fois 
(ou plus precisement a un jeu d'enregistrements a la fois) et, une fois la propriete Data- 
baseName configuree, le controle est capable de dechiffrer les tables de la base. 

4. Double-cliquez sur la propriete RecordSource et selectionnez la table Customers 
dans la liste. La propriete RecordSource specifie le jeu d'enregistrements gere par le 
controle Data lorsque l'application accede a la base. 

5. Modifiez la propriete Caption du controle Data en Cliquez pour changer de client. 
Le texte s'affiche dans la zone centrale du controle. 

6. Ajoutez a la feuille un controle etiquette avec les proprietes suivantes : 

Name: lblCust 
. Alignment: 2-Center 
Font. Size: 18 
Height: 915 
Left: 1680 
Top: 1440 
Width: 4320 

7. Ouvrez la propriete DataSource de l'etiquette. C'est une propriete que vous n'avez 
encore jamais eu a configurer. Vous allez lier l'etiquette au controle Data. (Une 
etiquette est un des controles qui peuvent etre lies). La propriete DataSource vous 
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permet de choisir la valeur de dtaBooks, car c'est la table de la base de donnees a 
laquelle le controle Data est rattache. S'il y a plusieurs controles Data sur la feuille 
et qu'ils sont deja attaches a des bases de donnees, la propriete DataSource les liste- 
rait tous, pour vous permettre de selectionner la source de cette etiquette de donnees. 

8. L' etiquette etant liee a la bonne table, il reste a la lier a la bonne colonne (champ). 
Ouvrez la propriete DataField et selectionnez ContactName comme colonne de la 
table a afficher. 

9. Vous etes pret a executer 1' application. Appuyez sur F5 pour cela : le nom du 
premier client s'affichera automatiquement dans l'etiquette. N'oubliez pas qu'elle 
est liee au controle Data, lui-meme lie a la base de donnees. Quand vous cliquez sur 
les boutons du controle Data, le contenu du champ change et reflete le client en 
cours (voir Figure 18.6) 

10. Cliquez sur le bouton de fermeture de la fenetre de l'application pour terminer le 
programme et enregistrer votre projet.. 



Figure 18.6 

Vous pouvez 
maintenant parcourir 
la base de donnees, 
enregistrement par 
enregistrement, en 
avant ou en arriere. 




Vous n'etes absolument pas limite a une colonne de la table. Vous pouvez ajouter autant 
d'etiquettes que vous le voulez pour afficher plusieurs colonnes. La Figure 18.7 montre 
l'affichage d'un enregistrement client complet. Les etiquettes supplementaires ont 
simplement leur valeur DataField liee a des colonnes particulieres de la table. En outre, 
des etiquettes supplementaires aident a la description des donnees affichees. (Vous 
pourrez modifier le programme de base de donnees en ajoutant ces colonnes 
supplementaires dans le premier exercice a la fin du chapitre). 
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Pour afficher les colonnes de plusieurs tables, vous devez creer un jeu 
d'enregistrements, tel qu'un dynaset, dans le systeme de base de donnees 
pour extraire les colonnes des tables correctes. Des commandes et des 
controles Visual Basic plus avances vous permettent d'effectuer des selec- 
tions complexes dans les bases de donnees, comme vous le verrez, dans les 
dernieres parties de la lecon d'aujourd'hui. 



Figure 18.7 

Afficher plusieurs 
colonnes de tables 
ne demande que 
des etiquettes 
supplementaires . 



ME1 



ID client ALFKI 



Nom entreprise 
Titre contact 



Maria Anders 



Alfreds Futtgtliste 
Sales Representative 



Obere Str. 57 



| ciiquez pour changer de client 



±0 



Pour afficher les donnees de type booleen, utilisez une case a cocker ou un 
bouton d'option pour indiquer les conditions True ou False du champ. 
L'option peut indiquer les valeurs de donnees Oui/Non ou Vrai/Faux qui 
apparaissent dans les tables des bases de donnees. 



Utilisation avancee du controle Data 

Les applications de base de donnees ne doivent pas obligatoirement se cantonner a la 
lecture. Vous pouvez souhaiter laisser l'utilisateur modifier les donnees. II existe 
plusieurs manieres de le faire. L'approche la plus simple consiste a afficher les donnees 
dans des zones de texte au lieu d' etiquettes. Les utilisateurs verront les informations exac- 
tement comme avec les etiquettes, mais ils pourront aussi modifier les informations 
dans la zone de texte pour mettre a jour la base. 



as*** 



Soyez toujours vigilant sur la securite. Vous pouvez avoir besoin d'afficher 
une botte de dialogue de saisie de mot de passe pour limiter la mise a jour a 
certaines personnes. De plus, la base elle-meme peut limiter les types de 
modifications autorisees. La propriete Exclusive du controle Data 
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determine si un utilisateur pent avoir des droits exclusifs sur une base de 
donnees, et etre le seul utilisateur autorise a y acceder ( dans les systemes en 
reseau ) ; sinon, le contrdle Data n 'offre que peu en matiere de securite. Vous 
devrez maitriser des commandes et des controles plus avances (dont 
certains sont etudies plus loin) pour incorporer une veritable securite dans 
vos applications . 



Lorsque votre savoir-faire en programmation s'ameliorera, vous apprendrez des metho- 
des d'utilisation du controle Data permettant un acces plus avance aux bases de 
donnees. II dispose par exemple de plusieurs methodes Move qui permettent de deplacer 
le pointeur d'enregistrement comme le font les boutons du controle Data. 

Les methodes suivantes deplacent le pointeur au premier ou au dernier enregistrement, au 
precedent ou au suivant, dans la base de donnees pointee par la propriete DataSource du 
controle Data : 



dtaCust .Recordset .MoveFirst 
dtaCust .Recordset .MoveLast 
dtaCust .Recordset .MoveNext 
dtaCust .Recordset .MovePrevious 



Va au premier enregistrement 
Va au dernier enregistrement 
Enregistrement suivant 
Enregistrement precedent 



Le pointeur d'enregistrement garde la trace de V enregistrement en cours 
dans la table de la base de donnees ouverte. Lorsque vous ouvrez. une base, 
le pointeur indique le premier enregistrement. Lorsque vous lisez. en 
sequence la table, le pointeur d' enregistrement avance. Les methodes de type 
Move manipulent le pointeur et permettent d'acceder a differents enregis- 
trements de la table. 



Le jeu d'enregistrements par defaut du controle Data est defini par les valeurs de 
proprietes que vous configurez. Par exemple, si vous ajoutez un bouton de commande 
qui comporte une procedure evenementielle Click qui contient a son tour une de ces 
methodes, 1' etiquette affiche 1' enregistrement selectionne par la methode chaque fois 
que l'utilisateur clique sur le bouton de commande. Outre les controles de deplacement 
dans les enregistrements, il existe des methodes qui ajoutent ou suppriment des enregis- 
trements de la base de donnees. 



Utilisez les proprietes booleennes BOFet EOF pour voir si le pointeur d'enre- 
gistrement se trouve au debut ou a la fin d'une table. Les programmeurs 
Visual Basic utilisent souvent une boucle Do...While pour parcourir tous les 
enregistrements de la table. La boucle se termine quand datCust .Record- 
set .EOF est egale a True. 
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Les editions Professionnelle, Entreprise et Visual Studio de Visual Basic disposent d'un 
ensemble avance de controles, proprietes, methodes et evenements pour ecrire des applica- 
tions importantes d'acces aux bases de donnees. Si ce cours en 21 jours ne peut pas explorer 
tous les concepts avances des bases de donnees, cette lecon en offre une presentation. Si 
vous devez ajouter a vos applications une meilleure gestion de base de donnees, vous devez 
au moins savoir de quoi est capable Visual Basic et mieux comprendre une part de la termi- 
nologie. 

Depuis sa version 6, Visual Basic supporte une grande diversite d'objets ADO (ADO 
signifie ActiveX Data Objects, ou Objets de donnees ActiveX). Etants bases sur ActiveX, 
ces objets fonctionnent sur differentes plates-formes et avec differents langages de 
programmation (contrairement au controle Data qui est strictement limite a l'environne- 
ment Visual Basic). Les objets ADO supportent l'acces aux bases de donnees pour un 
objet de donnees local ou distant (RDO — remote data object). Les donnees distantes 
peuvent provenir d'un reseau ou d'une ligne de communication. 

La maitrise des controles ADO est importante, car ils offrent plusieurs avantages par 
rapport au controle Data. Malgre la formation qu'ils demandent (il reste beaucoup a 
apprendre pour pouvoir les utiliser pleinement), ils sont le choix habituel chez les 
programmeurs Visual Basic de bases de donnees, du fait de leur puissance et de leur 
souplesse. 

La technologie ADO supporte des acces aux bases de donnees plus rapides qu'avec le 
controle Data. Les ordinateurs actuels sont rapides, mais vous observerez une degradation 
quand vous utilisez le controle Data avec de grosses bases de donnees, en particulier sous 
OBDC. 

En utilisant ADO, vous aurez sans doute a ecrire plus de code qu'avec le controle 
Data. Meme si vous pouvez ecrire du code d'acces aux diverses methodes du controle Data, 
l'acces direct a la base de donnees est moins complique. ADO permet de controler 
l'acces aux donnees d'une maniere bien plus stricte que le controle Data, dont la 
simplicity reflete le manque de flexibilite. La surcharge causee par le controle Data ne 
greve pas les programmes utilisant ADO. 

L'avantage principal d'ADO est sans doute sa capacite a acceder a de nombreux types de 
donnees. Ne se limitant pas aux seules informations des bases de donnees, relationnelles ou 
pas, les controles ADO peuvent acceder, par une programmation poinfue, aux navigateurs 
Internet, au courrier electronique, et meme a des graphiques. 



Plusieurs controles ADO places sur une meme feuille peuvent degrader les 
performances d'une application, car chacun fonctionne independamment 
des autres et consomme son propre ensemble de ressources . 
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La technologie ADO supporte (dans toutes les editions dans une certaine mesure, mais 
completement dans les editions Professionnelle, Entreprise et Visual Studio) les controles 
de donnees suivants : 

• Controle Data ADO. II fonctionne comme un controle Data en se connectant a une 
base de donnees et en permettant a l'utilisateur de parcourir les enregistrements. 

• Controle DataCombo ADO. II ressemble a une zone de liste deroulante standard, 
mais donne a l'utilisateur l'acces a plusieurs enregistrements de cette colonne. 

• Controle DataList ADO. II ressemble a une zone de liste standard, mais donne a 
l'utilisateur l'acces a plusieurs enregistrements de cette colonne. 




Des versions non ADO des ces controles sont disponibles. 



[.'assistant Creation ^applications 

Visual Basic peut effectuer une bonne partie du travail si vous utilisez l'assistant Visual Basic 
Creation d' applications pour generer une application contenant un acces a la base de 
donnees. Bien que l'assistant fournisse un acces plus limite que celui que permet la 
programmation ADO, vous pouvez creer 1' application initiale, puis la modifier pour 
generer une application plus complete. 

Le code resultant de la generation de l'application par l'assistant est assez complet et il 
forme la base d'une veritable application de base de donnees. La Figure 18.8 montre la 
premiere fenetre de l'assistant consacree a l'acces a la base de donnees. 



Figure 18.8 

L'assistant Creation 
d' application vous 
permet de creer 
des programmes de 
base de donnees. 
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Supposons que vous vouliez une application qui propose un acces en consultation et en 
modification au fichier de base de donnees BIBLIO.MDB. Apres avoir lance 1' assistant 
Creation d'application et passe plusieurs fenetres, vous verrez la fenetre de la 
Figure 18.8. Vous y demandez a l'assistant de generer les feuilles d'acces a la base de 
donnees. Vous pourriez les creer par vous-meme, mais vous pouvez aussi laisser faire 
l'assistant, puis personnaliser ensuite les feuilles. 

Une fois que vous cliquez sur le bouton Creer une nouvelle feuille, l'assistant 
commence par vous demander un profil. Dans cet exemple, cliquez sur Suivant pour 
selectionner un type de base de donnees pour 1' application. La base BIBLIO .MDB 
fournie avec Visual Basic etant une base Microsoft Access, selectionnez Access, puis 
cliquez sur Suivant. 

L'assistant demande ensuite le nom de la base de donnees dans la fenetre illustree a la 
Figure 18.9. Specifiez le chemin d'acces et le nom de la base. (Vous pouvez cliquer sur 
le bouton Parcourir pour chercher le fichier.) 




Une fois la base specifiee, cliquez sur Suivant ; l'assistant demande le nom du formu- 
laire principal (entrez frmADO dans cet exemple) et la presentation que vous voulez. 
Vous avez les cinq choix de presentation suivants : 

• Enregistrement unique. L'utilisateur ne peut qu'acceder a un enregistrement a la 
fois, en consultation ou modification. 
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• Grille (feuille de donnees). L'utilisateur peut acceder a plusieurs enregistrements a la 
fois dans un affichage de type table, en consultation ou modification. 

• Principale/secondaire. L'utilisateur peut acceder, en consultation ou modification, 
a des enregistrements secondaires apparentes a un enregistrement principal unique ; 
par exemple, tous les produits (les enregistrements secondaires) qu'un fournisseur 
(1' enregistrement principal) a achete dans le passe, au travers d'une relation un-a- 
plusieurs. 

• MS HFlexGrid. L'utilisateur peut acceder a plusieurs enregistrements dans un 
format de table, en consultation ou modification. 

• MS Chart. L'utilisateur peut acceder a plusieurs enregistrements dans un format de 
diagramme, en consultation ou modification. 

Une relation un-d-plusieurs existe entre des enregistrements de plusieurs 
tables dans la plupart des bases de donnees. Un enregistrement peut conte- 
nir une valeur de colonne qui se retrouve sur plusieurs enregistrements d'un 
autre fichier. Par exemple, une base de donnees d'auteurs contiendra une 
table des auteurs. Une table des ouvrages peut exister avec plusieurs titres 
ecrits par le meme auteur. Ce dernier apparait comme V enregistrement prin- 
cipal, tandis que les livres sont les enregistrements secondaires de cette rela- 
tion auteur a livre, de un a plusieurs. 

Vous pouvez aussi specifier les liens (la maniere dont Visual Basic lie les informations 
de la base de donnees aux controles). L assistant propose ces trois liens de donnees : 

• Controle de donnees ADO. Utilise le controle de donnees ADO pour lier les 
controles aux donnees. 

• Code ADO. Utilise du code ADO pour lier les controles aux donnees. 

• Classe. Cree une classe de donnees particuliere pour la base de donnees et lie les 
donnees aux controles au travers de cette classe. 

Pour cet exemple, selectionnez Controle de donnees ADO et cliquez sur Suivant. Dans 
la fenetre suivante, l'assistant doit connaitre la table, ou le jeu d' enregistrements, auquel 
acceder dans la base. Ouvrez la liste deroulante Source d' enregistrements pour 
selectionner la table Publishers. Comme le montre la Figure 18.10, la liste des champs 
disponibles est mise immediatement a jour ; elle affiche tous les champs, ou colonnes, 
de la table. 

Les champs que vous selectionnez determinent ceux que l'assistant place sur la feuille 
ADO qu'il genere. Vous pouvez selectionner un champ de la liste de gauche et cliquer sur 
le bouton > pour l'envoyer dans la liste de droite, qui sert a generer les champs de la 
feuille finale. Dans cet exemple, envoyez-y tous les champs. 
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Reorganisez l'ordre des champs pour que Company Name apparaisse en premier. Pour 
cela, cliquez sur ce champ, puis cliquez sur la fleche vers le haut trois fois pour deplacer 
le champ en tete de liste. Pour que la feuille affiche les enregistrements par ordre alpha- 
betique d'entreprise, selectionnez Company Name dans la liste des colonnes a trier. 

Cliquez sur le bouton Suivant pour afficher la fenetre de selection des controles illustree 
a la Figure 18.11. Cette fenetre vous permet de specifier les boutons qui s'afficheront 
dans la feuille d'acces aux donnees. lis refletent les capacites que vos accordez a l'utili- 
sateur. Pour l'empecher de supprimer des enregistrements, decochez le bouton d'option 
Supprimer. Dans l'exemple, gardez tous les boutons coches. 

Lorsque vous cliquez sur le bouton Terminer, Visual Basic genere 1' application. 

Le bouton Terminer n'acheve pas V assistant, mais uniquement la partie 
creation de feuille. Vous devez achever I'assistant normalement . Dans cet 
exemple, en revenant de la generation de feuille, vous pouvez cliquer sur le 
bouton Terminer. 

Lorsque vous executez 1' application, la feuille Publishers s'affiche (voir Figure 18.12.) 
L' assistant y a place tous les boutons et zones de texte necessaires pour que les champs 
de donnees puissent etre accessibles correctement. Vous pourrez ajouter des elements a 
la feuille, peut-etre la personnaliser pour la rendre plus attrayante, une fois que vous 
avez verifie que 1' application generee fonctionne correctement. 
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Figure 18.11 

Vous pouvez 
controler la capacite 
de Uutilisateur 
a ajouter, modifier 
et supprimer 
des enregistrements 
de la table de 
base de donnees. 



2 Assistant Feuilles de donnees - Selection du controle 




Selectionnez les controles que vous souhaitez placer 
sur la feuille. 



Controles disponibles 




Bouton Ajouter 


Selectionner tout 


W Bouton Mettre a jour 




Deselectionner tout | 


W Bouton Sypprimer 




W Bouton Actualiser 




W Bouton Fermer 




P Afficher le controle Data 





Precedent |[3P" vant ^ I - er 



Figure 18.12 

L 'assistant a genere 
la feuille avec tous les 
champs et les boutons 
de base de donnees 
necessaires . 



Company Name: 
Address: 

City: 

Comments: 

Fax: 

Name: 

PubID: 

State: 

Telephone: 



SIMON i SCHUSTER SOFTWARE 



SIMON 8 SCHUSTER 



Ajouter 


| Mettre a jour | Supprimer | 


Actualiser | 


Fermer 








► |h| 



En resume 

La legon d'aujourd'hui a traite de l'acces aux bases de donnees a l'aide de Visual Basic. 
La maniere la plus simple d'acceder a une base de donnees (en considerant que vous 
n'utilisez pas l'assistant Creation d' applications) est d'ajouter le controle Data a votre 
feuille. II s'occupe de mettre a jour la base de donnees sous-jacente et de modifier les 
controles lies lorsque vous vous deplacez dans les enregistrements. Des methodes 
peuvent etre utilisees pour etendre les fonctionnalites du controle Data. 
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L'interface ADO peut exiger une programmation complexe, mais vous aurez beaucoup 
plus de controle et de souplesse dans 1'acces a la base de donnees. Meme si votre applica- 
tion doit s'occuper de mettre a jour les controles et le deplacement entre les enregistre- 
ments lorsque les evenements sont declenches, 1' application est globalement plus rapide. 

La lecon de demain explore des manieres d'integrer l'lnternet a Visual Basic. Le monde 
informatique est en train de devenir rapidement un monde connecte et vos applications 
ont souvent besoin de proposer des fonctionnalites Internet. 

Questions-reponses 

Q Les relations un-a-plusieurs existent-elles toujours dans les tables de bases de 
donnees ? 

R II existe plusieurs types de relations entre les donnees, qui peuvent se retrouver 
toutes ou en partie dans une base de donnees, en fonction de sa structure. Rappelons 
que le but du chapitre n'est pas d'approfondir la theorie des bases de donnees. 
Cependant, les relations un-a-plusieurs etant necessaires dans de nombreuses appli- 
cations Visual Basic, une meilleure comprehension de ce sujet n'est pas un mal. 
Vous aurez souvent a afficher tous les enregistrements en rapport a une valeur de cle 
donnee, c'est ce qu'offre cette relation. 

L'affichage Principal/Secondaire de l'assistant est une excellente maniere de creer 
des applications qui offrent cette relation entre les donnees. II faut au moins un 
champ en correspondance entre les deux tables pour que la relation soit possible. 
Une relation un-a-un se presente parfois, lorsqu'une colonne d'une table est appa- 
rentee a une autre colonne dans une autre table. Ce peut etre le cas par exemple 
d'une meme piece proposee par deux fournisseurs . Des relations plusieurs-a- 
plusieurs existent egalement. Toutes ces relations sont definies lors de la conception 
et elles sont la base de la comprehension du fonctionnement des bases de donnees 
relationnelles. Le principal dans ces relations est la maniere dont on y accede. Votre 
tache de programmeur Visual Basic consiste a acceder a ces relations, mais vous 
n'aurez pas a les reconstruire, sauf si vous etre le concepteur et le createur de la base 
de donnees. 
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Atelier 

L' atelier propose une serie de questions qui vous aident a renforcer votre comprehension 
des elements traites et des exercices qui vous permettent de mettre en pratique ce que vous 
avez appris. Essayez de comprendre les questions et les exercices avant de passer a la 
lecon suivante. Les reponses se trouvent a 1' Annexe A 

Quiz 

1 . Quel est l'outil fourni avec Visual Basic permettant la modification et la consultation 
des fichiers de base de donnees ? 

2. Quelle est la difference entre un fichier et une table ? 

3. Vrai ou faux. Lorsque vous ajoutez des enregistrements a une table, le nombre de 
ses colonnes augmente egalement. 

4. Vrai ou faux. Une table est un sous-ensemble d'un jeu d' enregistrements. 

5. Qu'est-ce qu'un controle lie ? 

6. Quelles sont les differences entre jeux d'enregistrements recordset, dynaset et 
snapshot ? 

7. Donnez deux avantages d'ADO sur le controle Data ? 

8. Que definissent les valeurs EOF et BOF ? 

9. Quelle est la difference entre un affichage Principal et un affichage Secondaire ? 

10. Quel est l'outil fourni avec Visual Basic pour generer des feuilles directement a 
partir de la structure de la base de donnees ? 

Exercices 

1 . Modifiez l'application d'acces a la base de donnees que vous avez creee (illustree a la 
Figure 18.6), pour qu'elle affiche tous les champs de la table Customer. Votre feuille 
doit imiter celle de la Figure 18.7. (N'oubliez pas d'ajouter les etiquettes descriptives 
pour que l'utilisateur sache ce que contient chaque colonne.) 

2. Utilisez l'assistant Creation d'application pour generer un affichage Principal/ 
Secondaire de la base de donnees BIBLIO.MDB qui presente le nom de l'auteur 
en affichage principal et tous les codes ISBN de ses ouvrages dans l'affichage 
secondaire. 
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Controles ADO 



Ce projet decrit comment creer une application de base de donnees sous ADO. Vous 
utiliserez la base de donnees exemple BIBLIO.MDB fournie avec Visual Basic. Les 
controles ADO supportent des instructions de programmation supplementaires (comme 
vous le verrez dans ce projet), mais, tel qu'il est decrit et utilise ici, il est simple a 
comprendre. 

But de 1'application 

La Figure PB9.1 montre la feuille que vous allez creer. Elle contient plusieurs lignes et 
controles ; sa creation peut demander un certain temps. Elle propose un systeme de gestion 
de base de donnees complet de BIBLIO.MDB. Ce projet ne peut pas decrire toutes les 
actions du controle ADO, mais il decrit comment commencer a manipuler la base. Apres 
avoir suivi ce projet, vous comprendrez une partie de ce qu'implique le travail avec les 
applications ADO. 

Cette application imite quelque peu ce que peut produire V assistant Crea- 
tion a" applications , mais dans ce projet, vous etudierez de I'interieur les 
exigences des contrdles ADO. Vous apprendrez comment incorporer des 
instructions de programmation concernant les contrdles ADO qui permet- 
tent d'acceder aux tables de base de donnees sans intervention de I'utili- 
sateur et de les modifier. 
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Figure PB9.1 

Votre application 
ADO permettra de 
gerer cette base 
de donnes des livres. 



i Application ADO - Titres des I 



Titre des livres 



Titre : 



Annee de publication 
ID d'editeu 




Sujet : 



Enregistrer j Ajouter j Nouveau j Supprimer j Annuler 



Ce projet ne vous donnera pas une maitrise complete des contrdles ADO 
et du langage de programmation sous-jacent. Vous en etudierez cependant les 
bases. Heureusement, de nombreux programmeurs Visual Basic n'auront 
jamais a programmer un controle ADO en utilisant en profondeur le 
langage dont nous allons parler. Ce projet a pour seul objectif de vous 
donner une introduction aux competences necessaires a une utilisation 
efficace du controle ADO. 



Creation de la feuille initiale 

Pour debuter, creez la feuille initiale en placant les controles et en parametrant leurs 
valeurs respectives comme il est decrit dans le Tableau PB9.1. Appuyez sur les touches 
Ctrl-T pour ouvrir la boite de dialogue Composants et selectionner Microsoft ADO Data 
Control 6.0 afm d'ajouter le controle a la Boite a outils. Vous ajouterez d'autres proprietes 
a ces controles avant d'avoir acheve ce projet. 



Tableau PB9.1 : Configurez ces controles et proprietes dans la feuille 



Nom de propriete du controle 


Valeur de propriete 


Feuille : Name 


frmBookTitle 


Feuille : Caption 


Application ADO — Titres des livres 


Feuille : Height 


4590 


Feuille : Width 


7740 
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Tableau PB9.1 : Configurez ces controles et proprietes dans la feuille (suite) 



Nom de propriete du controle 


Valeur de propriete 


ADO Name 


adoBooks 


ADO Height 


735 


ADO Left 


5400 


ADO Top 


0 


ADO Width 


2055 


Label #1 Name 


lblApp 


Label #1 Alignment 


Center 


Label #1 BorderStyle 


Fixed Single 


Label #1 Caption 


Titre des livres 


Label #1 FontStyle 


Gras 


Label #1 FontSize 


18 


Label #1 Left 


2520 


Label #1 Height 


495 


Label #1 Top 


240 


Label #1 Width 


2650 


Label #2 Name 


lblTWe 


Label #2 Alignment 


Right Justify 


Label #2 Caption 


Titre: 


Label #2 FontSize 


10 


Label #2 Left 


720 


Label #2 Height 


255 


Label #2 Top 


840 


Label #2 Width 


510 


Label #3 Name 


lblYear 


Label #3 Alignment 


Right Justify 


Label #3 Caption 


Annee de publication 
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Nom de propriete du controle Valeur de propriete 



Label #3 FontSize 


10 


Label #3 Left 


120 


Label #3 Height 


255 


Label #3 Top 


2400 


Label #3 Width 


1995 


Label #4 Name 


lbllSBN 


Label #4 Alignment 


Right Justify 


Label #4 Caption 


ISBN : 


Label #4 FontSize 


10 


Label #4 Let t 


3240 


Label #4 Height 


255 


Label #4 Top 


2400 


Label #4 Width 


615 


Label #5 Name 


lblPubID 


Label #5 Alignment 


Right Justify 


Label #5 Caption 


ID d'editeur : 


Label #5 FontSize 


10 


Label #5 Left 


120 


Label #5 Height 


255 


Label #5 Top 


3000 


Label #5 Width 


1455 


Label #6 Name 


lblSubject 


Label #6 Alignment 


Right Justify 


Label #6 Caption 


Sujet : 


Label #6 FontSize 


10 


Label #6 Left 


3480 
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Tableau PB9.1 : Configurez ces controles et proprietes dans la feuille (suite) 



Nom de propriete du controle 


Valeur de propriete 


Label #6 Height 


255 


Label #6 Top 


3000 


Label #6 Width 


855 


TextBox #1 Name 


txtTitle 


TextBox #1 DataField 


Title 


TextBox #1 DataSource 


adoBooks 


TextBox #1 Height 


1095 


TextBox #1 Left 


1320 


TextBox #1 Top 


840 


TextBox #1 Width 


5535 


TextBox #2 Name 


txtPub 


TextBox #2 DataField 


Year Published 


TextBox #2 DataSource 


adoBooks 


TextBox #2 Height 


345 


TextBox #2 Left 


2160 


TextBox #2 Top 


2400 


TextBox #2 Width 


975 


TextBox #3 Name 


txtlSBN 


TextBox #3 DataField 


ISBN 


TextBox #3 DataSource 


adoBooks 


TextBox #3 Height 


345 


TextBox #3 Left 


3960 


TextBox #3 Top 


2400 


TextBox #3 Width 


3495 


TextBox #4 Name 


txtPubID 


TextBox #4 DataField 


PubID 
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Tableau PB9.1 : Configurez ces controles et proprietes dans la feuille (suite) 



Nom de propriete du controle 


Valeur de propriete 


TextBox #4 DataSource 


adoBooks 


TextBox#4 Height 


345 


TextBox #4 Left 


1680 


TextBox #4 Top 


3000 


TextBox #4 Width 


1575 


TextBox #5 Name 


txtSubject 


TextBox #5 DataField 


Subject 


TextBox #5 DataSource 


adoBooks 


TextBox #5 Height 


345 


TextBox #5 Left 


4440 


TextBox #5 Top 


3000 


TextBox #5 Width 


1575 


Bouton de Commande #1 Name 


cmdSave 


Bouton de commande #1 Caption 


&Enregistrer 


Bouton de commande #1 Left 


240 


Bouton de commande #1 Top 


3600 


Bouton de commande #1 Width 


875 


Bouton de commande #2 Name 


cmdAdd 


Bouton de commande #2 Caption 


&Ajouter 


Bouton de commande #2 Left 


1200 


Bouton de commande #2 Top 


3600 


Bouton de commande #2 Width 


875 


Bouton de commande #3 Name 


cmdNew 


Bouton de commande #3 Caption 


&Nouveau 


Bouton de commande #3 Left 


2160 


Bouton de commande #3 Top 


3600 
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Tableau PB9.1 : Configurez ces controles et proprietes dans la feuille (suite) 



Nom de propriete du controle 


Valeur de propriete 


Bouton de commande #3 Width 


875 


Bouton de commande #4 Name 


cmdDelete 


Bouton de commande #4 Caption 


&Supprimer 


Bouton de commande #4 Left 


3120 


Bouton de commande #4 Top 


3600 


Bouton de commande #4 Width 


875 


Bouton de commande #5 Name 


cmdCancel 


Bouton de commande #5 Caption 


Ann&uler 


Bouton de commande #5 Left 


4080 


Bouton de commande #5 Top 


3600 


Bouton de commande #5 Width 


875 


Bouton de commande #6 Name 


cmdPrev 


Bouton de commande #6 Caption 


&< 


Bouton de commande #6 Left 


5160 


Bouton de commande #6 Top 


3600 


Bouton de commande #6 Width 


495 


Bouton de commande #7 Name 


cmdNext 


Bouton de commande #7 Caption 


&> 


Bouton de commande #7 Left 


5760 


Bouton de commande #7 Top 


3600 


Bouton de commande #7 Width 


495 


Bouton de commande #8 Name 


cmdExit 


Bouton de commande #8 Caption 


&Quitter 


Bouton de commande #8 Left 


6600 


Bouton de commande #8 Top 


3600 


Bouton de commande #8 Width 


855 
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Tableau PB9.1 : Configurez ces controles et proprietes dans la feuille (suite) 



Nom de propriete du controle 


Valeur de propriete 


Ligne #1 Name 


Linel 


Ligne#l X1 


120 


Ligne #1 X2 


7440 


Ligne #1 Y1 


2160 


Ligne #1 Y2 


2160 


Ligne #2 Name 


Line2 


Ligne #2 X1 


0 


Ligne #2 X2 


7800 


Ligne #2 Y1 


3480 


Ligne #2 Y2 


3480 


Ligne #3 Name 


Line 3 


Ligne #3 X1 


5040 


Ligne #3 X2 


5040 


Ligne #3 Y1 


3480 


Ligne #3 Y2 


4280 


Ligne #4 Name 


Line4 


Ligne #4 X1 


6480 


Ligne #4 X2 


6480 


Ligne #4 Y1 


3480 


Ligne #4 Y2 


4280 



En placant ces controles, notez que les zones de texte sont liees a leurs champs respec- 
tifs de la table BIBLIO.MDB, sur laquelle pointe le controle ADO adoBooks. Vous avez 
appris a realiser le meme type de liens avec le controle Data au Chapitre 18. Mais, 
contrairement a ce dernier, le controle ADO a plus de possibilites, comme vous le verrez 
au cours de ce projet. 
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Connexion du controle ADO aux donnees 

Lorsque vous utilisez un controle ADO, vous devez le connecter aux donnees auxquel- 
les il doit acceder, comme pour le controle Data ; le controle ADO peut cependant se 
connecter a des donnees qui ne sont pas necessairement dans une table de base de 
donnees. II permet aussi d'acceder a du courrier electronique, des graphiques et prati- 
quement toute source de donnees externe a Implication. 

La plupart du temps, un programmeur se connectera a des bases de donnees, qu'elles 
soient locales ou en reseau. Votre premiere etape pour que le controle ADO fonctionne 
consiste done a le connecter a sa source de donnees. Dans ce projet, cette source est la 
base de donnees Access 97 BIBLIO.MBD fournie avec Visual Basic. 



Le controle ADO est bien plus difficile a connecter a une base de donnees 
que ne Vest le controle Data. Mais les avantages compensent largement 
cette complication due a une meilleure efficacite et a la possibilite de se 
connecter a quasi n'importe quel type de donnees. 

Vous avez deux manieres de vous connecter au controle ADO : 

• configurer la propriete ConnectionString, 

• utiliser du code pour connecter le controle aux donnees. 

Si vous utilisez la fenetre Proprietes pour vous connecter aux donnees, vous passez par 
des boites de dialogue qui simplifient le parametrage de la connexion. L' autre methode 
demande d'ecrire du code assez abscons (cette section illustrera les deux manieres). 

La connexion par la fenetre Proprietes n'est pas aussi simple que pour le controle Data. 
Lorsque vous cliquez sur la propriete ConnectionString, la boite de dialogue illustree a 
la Figure PB9.2 s'affiche. Vous devez determiner les options qui correspondent a votre 
type de sources de donnees. 

Dans cet exemple, comme pour la plupart des applications utilisant le controle ADO, 
vous creerez une simple chaine de connexion qui pointe sur un fichier de base de 
donnees. Les deux premieres options, Utiliser un fichier OLE DB (utilise pour trans- 
mettre des donnees entre deux emplacements) et Utiliser un nom de source de donnees 
ODBC (utilise avec les bases de donnees compatibles ODBC), ne sont pas necessaires 
pour l'acces simple utilise dans ce projet. Cliquez sur la troisieme option pour specifier 
une chaine de connexion. 
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Figure PB9.2 

La boite de dialogue 
Pages de proprietes 
du controle ADO vous 
aide a specifier une 
chaine de connexion. 



Pages de proprietes 



General j Authentication | RecordSource | Couleur| Police | 
Source de la connexion — 



Utiliser un tichier OLE DB| 





C Utilise 


un nom de source de donnees ODBC 






C Utilise 


une chaTne de connexion 





Autres attribute: [ 



Appliquer 



Les chaines de connexion peuvent etre assez tongues, mais Visual Basic vous assiste 
dans leur creation. Suivez ces etapes : 

1 . Cliquez sur le bouton Creer pour afficher la boite de dialogue Proprietes des liaisons 
de donnees. 

2. Double-cliquez sur la premiere option, Microsoft Jet 3.51 OLE DB Provider. (Les 
bases de donnees Access ont pour systeme sous-jacent la technologie Jet utilisee par 
Microsoft pour un acces rapide aux bases de donnees). L'onglet suivant, Connexion, 
s'affiche. 

3. Cliquez sur les points de suspension a la droite de la premiere zone de texte et 
cherchez la base de donnees BIBLIO.MDB sur votre disque. 

4. Cliquez sur le bouton Ouvrir pour lier la base de donnees au controle ADO. 

Pour vous assurer que vous etes correctement connecte a la base de donnees, 
cliquez sur le bouton Tester la connexion. Si les proprietes de la chaine de 
connexion sont correctes, Visual Basic affiche une boite de message qui vous 
signale un test reussi. Dans le cas contraire, vous pouvez corriger le probleme. 

5. Pour une verification, cliquez sur l'onglet Tous pour voir la page resumant la chaine 
de connexion, illustree a la Figure PB9.3. Les autres elements listes peuvent etre 
modifies si vous le souhaitez (vous pouvez par exemple parametrer la securite 
d' acces). 

6. Cliquez sur le bouton OK pour revenir a la boite de dialogue Pages de proprietes, 
puis cliquez sur OK pour la fermer et revenir a la feuille. 
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Figure PB9.3 

Visual Basic 
recapitule 
les parametres 
de votre chaine de 
connexion. 



B Proprietes des liaisons de donnees 



Fournisseur | Connexion | Options avancees Tous 



Void lesvaleurs des proprietes d'inttiolisation pour ce type de donnees. 
Pour modifier une valeur. selectionnez une propriete et cliquez sur le 
bouton Modifier la valeur. 



Norn 


Valeur 




Extended Properties 


:COUNTRY-0,CP- 


1252.LANGID-0 


Jet OLEDB:Dotabase Password 






Jet OLEDBGIobal Partial Bulk 0 . 


2 




Jet OLEDB:Registry Path 






Jet OLEDBSystem database 






Locale Identifier 


1033 




Mode 


Share Deny None 




Password 






Persist Security Info 


False 




User ID 


Admin 




<l 







Modifier la valeur 



Au lieu de selectionner a l'aide de la boite de dialogue, vous pouvez utiliser, n'importe 
oil dans 1' application, du code pour creer une chaine de connexion. Par exemple, vous 
pouvez la creer au chargement de la feuille ou uniquement lorsque l'utilisateur a besoin 
d'acceder a la base. Plus vous attendez pour connecter les donnees, moins vous avez de 
risques qu'une coupure de courant ou un blocage de la machine affectent vos donnees ; 
l'application demarrera aussi plus rapidement. 



0* 



Mime pour utiliser du code pour acceder aux donnees, vous devez, placer le 
contrdle ADO sur la feuille. Configurez. sa propriete Visible a False si 
vous ne voulez pas que l'utilisateur y accede autrement que par votre code. 
Vous ne pouvez. pas utiliser a la fois le code et la fenetre Proprietes pour 
configurer la chaine de connexion, verifiez done que la propriete Connec- 
tionString est bien vierge si vous utilise z du code dans votre programme 
pour configurer I'acces. 



Pour parametrer le controle ADO par programme, vous devez placer l'instruction 
suivante dans la procedure evenementielle Form_Load( ) : 

adoBooks.ConnectionString = "Provider=Microsoft.Jet.0LEDB.3.51 ; " 
& "Persist Security Info=False;" & "Data Source=C: \Program 
Files\Microsoft Visual" & "Studio\VB98\Biblio.mdb" 
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L' instruction assigne exactement la meme chaine de connexion que celle creee au debut 
de cette section a Taide de la boite de dialogue. Comme vous pouvez le voir, le format 
peut etre assez epineux, mais la propriete ConnectionString comporte l'ensemble des 
informations de la boite de dialogue. 

Le controle n'est cependant pas encore tout a fait pret a afficher les donnees de la base. 
Vous devez specifier exactement quelles lignes de quelles tables sont a la disposition 
du reste de l'application. Vous devez utiliser SQL (un langage de programmation de 
base de donnees supporte par Visual Basic comme une propriete RecordSource) pour 
indiquer a Visual Basic d'acceder a tous les enregistrements (ce qu'indique le caractere 
generique *) de la table Titles de la base de donnees BIBLIO.MDB. L' instruction est la 
suivante : 



adoBooks. RecordSource = "Select * From Titles" 



SQL (Structured Query Language) signifie langage d' interrogation 
structure. II definit un langage de programmation universel (en theorie) 
pour I'acces aux bases de donnees. Vous pouvez emettre des commandes 
SQL a partir des applications Visual Basic. 



Vous pouvez configurer la feuille a Taide d'un controle ADO invisible pour acceder aux 
donnees en configurant la propriete Visible du controle ADO a False, effacant toute 
valeur dans la propriete ConnectionString de la fenetre Proprietes et assignant les 
proprietes DataSource et DataField de chaque controle de zone de texte telles qu'elles 
sont decrites dans le Tableau PB9.1 . Dans ce cas, le code du programme doit permettre 
de parcourir les donnees selon les besoins. Dans cet exemple, les boutons de commande 
en bas de la feuille exigent du code pour permettre de parcourir les donnees. C'est 
l'objet de la section suivante. 



Lorsque vous executez. l'application avec les proprietes ConnectionString 
et RecordSource configurees par programme , tout en laissant les autres 
champs tels que vous les avez entres a partir du Tableau PB9.1 , aucune 
donnee de la base ne s'y affichera. Mime si les champs de texte pointent tous 
sur le controle ADO, ce dernier n 'est connecte a la base qu 'au moment ou il 
se charge et, a cet instant, les contrdles de texte ont echoue a trouver des 
donnees, car leur propriete DataSource (le controle ADO), n'est pas 
connectee a une base de donnees. Mais lorsque vous reliez le premier 
controle de texte a la source de donnees nouvellement connectee ( comme le 
decrit la section suivante), tous les champs lies au controle ADO afficheront 
les donnees. 



> 612 



Projet bonus 9 : Controles ADO 



__r — ) Code ou contrdle ? 

\t\V> Devez-vous laisser les utilisateurs commander le contrdle ADO a Vaide de 

' ses boutons ou devez-vous le masquer et utiliser du code pour parcourir la 

table connectee ? Dans ce projet, vous etudiez. les deux methodes. Pour voir 
les donnees bees, un utilisateur peut cliquer sur les boutons du contrdle 
ADO ou sur les boutons en bas de lafeuille. 

Le choix de la methode depend de ['application, qui sert souvent a mettre a 
jour ou a afficher un enregistrement unique qui repond a certains criteres. 
Elle doit alors pouvoir rechercher un enregistrement particulier ou parcou- 
rir V ensemble des enregistrements pour calculer des totaux et des moyen- 
nes. Ces types de traitements sur une table exigent I'ecriture de code, qui 
permet de parcourir les donnees en arriere-plan. 



Recherche des donnees 

Pour que le champ Title affiche les titres des livres, vous devez connecter sa propriete 
DataSource au controle ADO et sa propriete DataField au champ Title de la table. Pour 
realiser cela a partir du code, vous pouvez utiliser les deux instructions suivantes : 

B Set txtTitle. DataSource = adoBooks 
txtTitle. DataField = "Title" 

Vous ne pouvez pas assigner ce champ dans la fenetre Proprietes si vous connectez 
a l'execution le controle ADO a la base par programme, comme l'explique la section 
precedente. 

Une fois qu'une zone de texte est liee au controle ADO, vous pouvez repeter la meme 
operation pour les autres ou utiliser les proprietes DataSource et DataField de la fenetre 
Proprietes decrites au Tableau PB9.1, car elles fonctionneront une fois qu'un controle de 
la feuille est relie a la base de donnees nouvellement connectee. 



Parcours des donnees 



Lorsque vous executez l'application apres avoir assigne la premiere zone de texte au 
controle ADO, les champs correspondants du premier enregistrement s'affichent comme 
l'illustre la Figure PB9.4 



Les champs de la table ne contiennent pas tous des donnees precises et comple- 
tes. Par exemple, dans le premier enregistrement de la base de donnees 
BIBLIOMDB, le champ Sujet est vide. Certains champs contiennent des 
valeurs etranges tel que 2nd qui est sans doute V edition, mais pas le sujet 
du livre.. 
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Figure PB9.4 

Le premier 
enregistrement peut 
maintenant s 'afficher. 



* Application ADO - Titres des li 



Titre des livres 



Titre : bBASE III: A Practical Guide 



Aiinee de publication : [7 



ID d'editeur : [m 






Enregistrerj 


Ajouter 


Nouveau 


Supprimer | Annuler | 



Seul le premier enregistrement s'affichera, car l'utilisateur n'a pas acces au controle 
ADO invisible et les boutons de commande ne sont pas encore connectes au code. Vous 
pouvez double-cliquer sur le bouton Suivant (le bouton dont le titre est >) pour ajouter 
son code d'activation. Le code qui suit deplace le pointeur sur 1' enregistrement suivant 
de la table pour que le controle lie puisse acceder aux donnees : 



Private Sub cmdNext_Click( ) 

' Avance d'un enregistrement dans les donnees 
If Not adoBooks. Recordset. EOF Then 
adoBooks . Recordset . MoveNext 
If adoBooks. Recordset. EOF Then 

adoBooks. Recordset .MovePrevious 
End If 
End If 
End Sub 



Le jeu d'enregistrements utilise dans les lignes 3 a 6 est la liste des enregistrements avec 
lesquels vous travaillez. Vous avez specifie le jeu d'enregistrements precedemment par 
l'instruction SQL qui limitait les enregistrements a la table Titles. La methode MoveNext 
du jeu d' enregistrement fait avancer le pointeur d'un enregistrement a la ligne 4. Tous 
les autres controles lies a la table avancent egalement. 

Un probleme peut se produire dans les situations suivantes, qu'il faut gerer : 

• S'il n'y a aucun enregistrement dans la table de la base de donnees, une erreur se 
produira si vous tentez d' avancer. 

• Si 1' enregistrement en cours est le dernier de la table, une erreur se produira quand 
vous tenterez d' avancer. 

L'instruction de la ligne 3 garantit qu'on n'a pas atteint la fin de la table en verifiant la 
propriete EOF du jeu d'enregistrements, avec un operateur Not. La ligne 3 signifie en 
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fait "si Ton n'est pas a la fin du jeu d'enregistrements, alors continuer". La ligne 5 
garantit que, si la methode MoveNext amene a la fin du fichier, la methode Move- 
Previous fait alors reculer le pointeur pour l'empecher de depasser la fin de la table. 
MovePrevious est la methode de jeu d'enregistrement qui permet de reculer dans la 
table d'un enregistrement. 

Vous pouvez utiliser la methode MovePrevious pour ajouter une procedure evenemen- 
tielle au bouton Precedent (dont le titre est <) : 



Private Sub cmdPrev_Click( ) 

' Recule d'un enregistrement dans les donnees 
If Not adoBooks. Recordset. BOF Then 
adoBooks . Recordset . MovePrevious 
If adoBooks. Recordset. BOF Then 
adoBooks. Recordset .MoveNext 
End If 
End If 
End Sub 



La propriete BOF du jeu d'enregistrements verifie le debut du fichier, pour garantir qu'on 
interdit a l'utilisateur de reculer lorsque le pointeur se trouve deja au debut. 

Vous pouvez placer une instruction End dans la procedure evenementielle 
Click du bouton de commande Quitter pour permettre a l'utilisateur de 
quitter le programme . 



Mise a jour des tables 

Le controle ADO met automatiquement a jour 1' enregistrement de la table sous-jacente 
si l'utilisateur effectue une modification dans une zone de texte liee. Si vous executez 
l'application ulterieurement, les donnees modifiees s'affichent. 

Cependant, vous pouvez egalement enregistrer des donnees dans la base de donnees en 
utilisant du code. L'ecriture de ce type de code est longue et lourde et va bien au-dela de 
la portee de ce projet. Vous pouvez par exemple vouloir qu'un certain champ ne 
contienne que des valeurs uniques et emettre un message d'erreur si l'utilisateur entre 
une valeur incorrecte. Vous pouvez aussi recuperer des donnees provenant d'une autre 
source et les assigner dans la base de donnees. 

Pour vous donner une idee de ce qu'implique une mise a jour d'une base de donnees a 
l'aide d'un controle ADO, la procedure d'enregistrement du Listing PB9.1 ecrit les 
donnees des zones de texte dans la base de donnees. (Naturellement, c'est redondant 
dans le cadre de cette application, car les zones de texte sont deja liees a la table). 
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Listing PB9.1 : Vous pouvez utiliser des methodes d'ecriture des donnees 
dans la table par programmation 



10 
11 

12 



1: Private Sub cmdSave_Click( ) 

2: ' Assigne toutes les TextBox aux champs. 

3: ' N' assigne que les donnees non nulles 

4: ' (les lignes longues sont decoupees) 

5: adoBooks. Recordset ITitle = 

6: IIf(txtTitle = "", "N/A", txtTitle) 

7: adoBooks. Recordset! [Year Published] = 

8: IIf(txtPub = "", "N/A" , txtPub) 

9: adoBooks. Recordset! ISBN = _ 

0: IIf(txtISBN = "", "N/A" , txtlSBN) 

1: adoBooks. Recordset IPubID = 

2: IIf(txtPubID = "", "N/A", txtPubID) 



13: adoBooks. RecordsetlSubject = 

14: Ilf (txtSubject = "", "N/A", txtSubject) 

15: 

16: 1 Effectue la mise a jour reelle du recordset 

17: adoBooks. Recordset. Update 

18: 

19: End Sub 

La fonction I If () est utilisee tout au long du listing pour que la valeur N/A (non 
applicable) soit ecrite quand un champ enregistre ne contient pas de donnees. I If ( ) 
garantit qu'aucune valeur ecrite n'est nulle. Le nom de champ entre crochets de la 
ligne 7 est obligatoire, car il contient un espace. Visual Basic traite [Year Published] 
comme un nom de champ unique ; sans les crochets, il ne serait pas capable de recon- 
naitre 1' espace incorpore. 

Le Listing PB9.1 n'ajoute que les donnees qui ont ete modifiees dans la feuille du 
projet, mais vous pouvez facilement adapter le code pour rechercher dans une autre 
source les donnees a enregistrer dans la table. A la ligne 14, vous pourriez chercher des 
donnees externes, par exemple une saisie dans une zone de texte, au lieu d'aller dans la 
zone de texte de la feuille. La ligne 17 est necessaire, car elle effectue la mise a jour 
effective dans la table, a l'aide de la methode Update. 

Le code du Listing PB9.1 ecrit done dans la table les modifications effectuees par 
l'utilisateur dans les donnees de la feuille (ces valeurs seront de toutes facons ecrites, 
car les zones de texte sont liees a la base dans notre exemple). Pour ajouter de 
nouvelles donnees a la fin de la table, vous devez d'abord effacer les champs de la 
feuille pour permettre a l'utilisateur de saisir les donnees. (Vous pourriez connecter 
ce code au bouton de commande Nouveau, ce que cette application ne prend pas le 
temps de faire). 



> 616 



Projet bonus 9 : Controles ADO 



Avant de pouvoir ecrire le nouvel enregistrement, il faut deplacer le pointeur de table a 
la fin du fichier pour qu'il accepte de nouvelles donnees (et non pas remplacer les 
donnees sur lesquelles il pointe) par ce code : 

adoBooks. Recordset. AddNew 1 Preparer un nouvel enregistrement 

Les donnees qui sont enregistrees ensuite apparaitront comme un nouvel enregistrement 
dans la table. 



Conclusion sur le controle ADO 

Comme vous avez pu le constater, la programmation du controle ADO n'est pas aussi 
simple que le controle Data, mais sa puissance et sa rapidite sont a son avantage. Vous 
avez deja passe pas mal de temps sur ce projet, et pourtant ses fonctionnalites — bien 
que proche d'une finalisation — sont encore incompletes. Considerez les points suivants 
necessaires a l'achevement de la tache : 

• Lors de l'ecriture du code des boutons de commande Ajouter ou Nouveau, vous 
devez effacer les champs de la feuille et mettre le curseur dans le premier champ 
pour que l'utilisateur puisse enregistrer 1' enregistrement en cours ou en ajouter un 
nouveau. 

• Les methodes AddNew et Update mettent toujours la table a jour avec des donnees 
nouvelles ou modifiees de champs lies. 

• Utilisez la methode MoveLast pour deplacer le pointeur a la fin de la table avant 
d' ajouter un nouvel enregistrement. 

• Programmez le bouton Annuler pour ne pas enregistrer les enregistrements 
nouveaux ou modifies. La procedure evenementielle du bouton de commande Annuler 
doit appeler une nouvelle fois la procedure d'affichage de la feuille pour remettre le 
code dans sa configuration anterieure. 
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Chapitre 
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Ajout d'un acces 
Internet 

La lecon d'aujourd'hui montre comment acceder a l'lntemet a partir des applications 
Visual Basic. Aucun didacticiel Visual Basic qui se respecte ne serait complet s'il ne 
mentionnait pas ses liens avec l'lntemet, car c'est Tun des outils de programmation les 
plus simples actuellement disponibles. Gardez cependant a l'esprit le fait que meme 
avec Visual Basic, la programmation des acces Internet reste une gageure. La lecon 
d'aujourd'hui n'en presente qu'un survol rapide. 

Vous y etudierez : 

• la connexion Internet de Visual Basic ; 

comment ajouter un navigateur Web a une application ; 

• les controles Internet de Visual Basic, ; 
comment travailler avec 1' encapsulation ; 

• les documents ActiveX ; 

• comment transformer pratiquement toute application Visual Basic en une application 
Internet. 
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L'assistant Internet 

L' assistant Creation d'applications effectue une partie du travail si vous souhaitez que 
votre application accede a l'lnternet. Selectionnez les choix adaptes et l'assistant ajoute 
l'acces a l'lnternet a votre application, en lui donnant des capacites de communications 
planetaires. 



— 1 Les outils Internet decrits dans cette legon fonctionnent aussi bien sur 
H°* e l'lnternet que sur un intranet. Les technologies Internet et intranet suppor- 
tent un protocole commun, elles peuvent done fonctionner avec le meme type 
d'applications. 



•0 s 



Un intranet est un systeme de reseau local (par exemple, un reseau dans un 
seul immeuble ou meme une petite zone sur un seul etage) qui offre les memes 
fonctions que l'lnternet. 



0 s 



Un protocole permet a deux ordinateurs de communiquer. Les connexions 
Internet et intranet utilisent un protocole commun : TCP/IP (Transfer 
Control Protocol/Internet Protocol). II est utilise pour les connexions Internet 
universelles. 



Cette section explique le fonctionnement de l'assistant Creation d'applications lorsqu'il 
est utilise pour ajouter un acces a l'lnternet a une application. Si l'assistant supporte 
l'acces, il donne plus particulierement a votre application la capacite de parcourir les 
pages du World Wide Web. 



Les utilisateurs de votre application doivent dejd avoir un fournisseur de 
services Internet pour pouvoir acceder au Web a I'aide de votre programme . 
Vous devez egalement disposer d'Internet Explorer 4 ou d'une version 
posterieure sur votre systeme de developpement pour pouvoir travailler sur 
le support complet d'Internet de Visual Basic. Lors de son installation, ce 
dernier propose en option d' installer Internet Explorer 4. 
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Un fournisseur de services Internet est une entreprise qui propose des comptes 
de connexion a l'lnternet. Les societes qui disposent d'une connexion directe a 
l'lnternet n 'ont pas besoin de fournisseur de services. 



Lorsque vous creez le noyau d'une application avec l'assistant Creation d'applications, 
la sixieme boite de dialogue (voir Figure 19.1) est la fenetre Connexion a Internet, qui 
configure l'acces au Web de l'application que vous creez. 
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Figure 19.1 

Vous pouvez 
selectionner V acces 
a V Internet dans 
la boite de dialogue 
Connexion a Internet 
de V assistant. 



i Assistant Creation d'applications - Connexion a Internet 







es as 

a. 









Note: ces fonctionnalites 
impliquent que vos utilisateurs 
disposent d'un fburnisseur 
d 'acces Internet! 




Cet Assistant vous propose un navigateur Web personnalise et 
ajoute un lien vers votre page d'accueil! 



Souhaitez-vous que vos utilisateurs puissentacceder a Internet 
depuis votre application? 



Si vous le souhaitez, vous pouvez indiquer le chemin de l'URL de 
demarrage par defaut pour votre navigateur Web. 
(Exe mp le ; h ttp ; //www . m icrosoft.com/france) 



|http ;//www. microsofl.com 



Annuler 



I 



L' assistant propose un URL par defaut : la page d'accueil de Microsoft. Vous devez 
modifier cet URL pour presenter autre chose aux utilisateurs. Lorsque le navigateur est 
declenche dans l'application, il se connecte (en utilisant le fournisseur de services Internet 
existant) a l'URL specifie dans l'assistant. Vous pouvez, par exemple, inclure l'URL de la 
page d'accueil de votre entreprise dans la zone de texte. Lorsque vous selectionnez l'option 
Oui, l'assistant insere en fait un moteur de navigateur Web dans l'application generee. 

Un URL (Uniform Ressource Locator ou Localisateur uniforme de ressource) 
est une adresse de site "Web. Chaque site dispose d'une adresse URL unique. 



Faites toujours commencer un URL par http://. (http signifie Hypertext Transfer 
Protocol, et designe la procedure de communication standard utilisee pour l'acces aux 
pages Web). La majorite des navigateurs modernes se passent du prefixe http : / / , mais 
l'assistant l'exige. 

Vous pouvez rapidement creer une application de test pour acceder a l'lnternet. Suivez 
ces etapes pour aj outer une fonction de navigation Internet dans l'application creee par 
l'assistant : 

1 . Creez un nouveau projet et lancez l'assistant Creation d'applications. 

2. Cliquez sur Suivant pour sauter la premiere boite de dialogue. 

3. Selectionnez Interface monodocument (SDI) pour simplifier l'application generee. 

4. Cliquez sur Suivant dans les quatre boites de dialogue suivantes pour accepter les 
options de menu par defaut. 
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5. Dans la boite de dialogue Connexion a Internet, cliquez sur Oui. Laissez, dans cet 
exemple, l'adresse URL du site Web de Microsoft. 

6. Cliquez sur Terminer pour generer 1' application. 

Si c'est la premiere fois que vous utilisez les contrdles Internet depuis 
V installation de V environnement Visual Basic, vous verrez la boite de dialo- 
gue de la Figure 19.2. Cliquez sur OK pour preparer ces contrdles et les 
charger dans V environnement Visual Basic. 




Figure 19.2 

Visual Basic doit 
preparer les contrdles 
Internet pour leur 
premiere utilisation. 



Assistant Creation d'applications 



Certains controles de I'Assistant que vous allez utiliser pour creervotre application sont charges pour 
la premiere fois. ce qui peut necessiter quelques minutes 



Lorsque vous revenez dans 1' environnement Visual Basic, observez la fenetre Boite a 
outils. La Figure 19.3 montre les outils ajoutes par l'assistant a la collection des contro- 
les internes. Vous en avez deja utilise certains au cours de ce didacticiel : la boite de 
dialogue standard, la barre d'outils, la liste de dessins et le curseur. 



Figure 19.3 

L'assistant a ajoute 
de nouveaux outils 
a la boite a outils. 
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AffichageD 
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Barren 
d'etat 



Affichage deD Liste deD ImageCombo 
I'arborescence dessins 



Les outils supplementaires donnent aux parties de navigation Web de 1' application les 
controles dont elles ont besoin. A l'evidence, le controle Navigateur Web est l'outil 
principal concerne par cette lecon. 

Appuyez sur F5 pour executer ce noyau d' application. L'ecran que vous voyez n'est pas 
different des autres ecrans d'applications generees par des assistants que vous avez deja 
pu rencontrer. Le menu et la barre d'outils par defaut s'affichent dans la feuille. La fonc- 
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tion Internet apparait cependant lorsque vous choisissez Navigateur Web dans le menu 
Affichage. Une boite de dialogue de navigation Web s'affiche et lance la connexion a 
l'aide de la fenetre classique de connexion a votre fournisseur Internet (a moins que 
vous ne soyez deja connecte ou que vous ne disposiez d'une capacite de connexion 
automatique). Apres avoir saisi le nom d'utilisateur et le mot de passe, une fenetre de 
type Internet Explorer s'affiche au centre de la feuille de l'application et presente le site 
Web de Microsoft (voir Figure 19.4). 



Figure 19.4 

L'application generee 
par I' assistant est 
connectee au site Web 
de Microsoft. 



La feuille de votre application Le navigateur Web 
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' La fenetre Internet Explorer que vous voyez est en fait une petite application 

qui enrobe un enorme contrdle ActiveX. Le navigateur Web insere par 
V assistant de Visual Basic est un exemple de contrdle ActiveX. S'il est plus 
simple que la version complete d' Internet Explorer (il y a moins de boutons 
de barre d'outils et pas de menu), il four nit toutes les fonctions de navi- 
gation necessaires : les boutons Precedent et Suivant, Origine, etc. Si vous 
cliquez sur Rechercher, Internet Explorer utilise le site de recherche de 
Microsoft pour lancer la requite. 



Pour vous deconnecter de l'lnternet, vous devez fermer le navigateur Web, double- 
cliquer sur l'icone de connexion de votre fournisseur Internet dans la Barre des taches, 
et selectionner 1' option Deconnecter. Le navigateur ne dispose pas de fonction de 
deconnexion, mais vous pouvez l'ajouter par programmation. 
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Etude de quelques controles Internet 

Si vous utilisez Visual Basic dans ses editions Professionnelle ou Entreprise, vous 
pouvez utiliser plusieurs controles ActiveX Internet avances pour ajouter et commander 
Faeces a l'lnternet a l'interieur de votre application. L'exemple de la section precedente 
a montre la puissance d'un seul controle : le navigateur Web. 

Plusieurs controles Internet s'affichent lorsque vous choisissez Composants dans le 
menu Projet. Cette section les etudie et explique quand et comment les utiliser dans des 
projets qui accedent a l'lnternet. 

L'acces Internet peut avoir plusieurs significations dans le monde actuel — 
par exemple, il peut fair e reference a une application complete a laquelle 
V utilisateur accede et qu'il execute sur le Web. L'lnternet offre de nos jours 
bien d'autres services que I'affichage des pages Web et le telechargement de 
fichiers, en particulier avec tous les nouveaux controles ActiveX disponibles , 
qui fonctionnent au travers de l'lnternet aussi aisement qu'ils le font dans 
les applications situees sur un ordinateur unique. Lorsque vous activez. des 
pages Web avec des programmes , Visual Basic peut etre leur moteur. 

Les controles d'encapsulation 

Le terme encapsulation fait reference a differentes choses, suivant que vous encapsulez 
des donnees, du code ou les deux. Mais, au sens large, il signifie toujours empaquetage. 
Visual Basic comprend certains controles Internet qui encapsulent, ou empaquettent, les 
applications existantes pour qu'elles fonctionnent avec la technologie Internet. 

L encapsulation se rapporte a V empaquetage des composants , tel qu'il se 
produit avec les objets Visual Basic qui supportent des proprietes, des 
methodes et des evenements . 

Voici une liste des controles d'encapsulation : 

• Controle de transfert Internet. II encapsule les trois protocoles Internet les plus 
courants : HTTP, FTP {File Transfer Protocol) et Gopher (un protocole de recherche 
permettant de trouver des informations sur l'lnternet). Vous pouvez telecharger des 
fichiers depuis vos applications Visual Basic en utilisant FTP. 

Controle navigateur Web. II encapsule un navigateur Web dans votre application. 

• Controle Winsock. C'est un controle Windows commun de connexion et d'echange 
de donnees qui propose deux protocoles : UDP {User Datagram Protocol) et TCP 
{Transmission Control Protocol). 
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Vous avez deja vu l'un de ces controles — le navigateur Web — a la section precedente. 
L' assistant Creation d' applications l'utilise pour inserer un navigateur dans l'application 
generee. Comme vous avez pu le constater, il n'est pas aussi complet qu'Internet Explo- 
rer, mais il fournit simplement un acces direct a l'lnternet a tout utilisateur qui est inscrit 
a un service Internet. 

Contrdle Internet Explorer 

Visual Basic est livre avec plusieurs controles que vous pouvez ajouter a vos projets pour 
qu'ils interagissent avec le Web a l'aide de la technologie d'Internet Explorer. lis 
commencent tous par les lettres IE dans la boite de dialogue Composants. 

Le Tableau 19.1 vous aide a localiser les controles decrits dans cette section, car leur nom 
n'est souvent pas suffisant pour decrire leurs caracteristiques. (Pour acceder a la boite de 
dialogue Composants, selectionnez Composants dans le menu Projet.) 



Tableau 19.1 : Plusieurs composants comprennent des caracteristiques 
apparentees a Internet Explorer, comme d'autres controles Internet 



Nom de composant 


Description 


IE Animated button 


Affichage anime montrant la connexion d'Internet Explorer 


IE Popup Menu 


Controle de menu contextuel sur la page Web 


IE Preloader 


Precharge une page d'un site avant que 1' acces visible a 1 'Internet 




commence 


IE Super Label 


Etiquette de page Web 


IE Timer 


Propose des operations de timing pour les services Internet 


Microsoft Internet 


Controle de navigateur Web 


Controls 




Microsoft Internet 


Controle TCP 


Transfer Control 6.0 




Microsoft Winsock 


Connexion Windows a des protocoles Internet courants 


Control 6.0 
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__i — | Si vous utilisez le service en ligne Microsoft Network, un ensemble de 
\t\V> controles est livre avec Visual Basic permettant aux applications que vous 
' ecrivez de beneficier de services lies a Microsoft Network, comme le 

controle de courrier electronique MSN. Ces controles commencent par les 

lettres MSN dans la boite de dialogue Composants. 



Presentation rapide de points avances 

Vous avez deja eu un apercu de ce qui est disponible afin d'utiliser Visual Basic pour 
interagir avec l'lnternet. La methode la plus simple pour ajouter des caracteristiques 
Internet a vos applications est d'utiliser l'assistant Creation d' applications, comme vous 
l'avez deja fait dans cette lecon. Pour aller plus loin, vous avez devant vous un chemin 
d'apprentissage assez escarpe. 

Cette section etudie quelques termes et concepts auxquels vous aurez a faire face lorsque 
vous commencerez a creuser les relations de Visual Basic a l'lnternet. En apprenant ce 
qui est disponible actuellement, vous aurez quelques bases le jour ou vous apprendrez 
les details necessaires pour fournir une interaction complete a l'lnternet depuis vos 
applications. 



Documents ActiveX 

Ann de developper une application Visual Basic exclusivement Internet, vous pouvez utiliser 
les documents ActiveX pour commencer. Un document ActiveX ressemble a et fonctionne 
comme une application Visual Basic dans une fenetre feuille, mais il envoie vers l'ordinateur 
de l'utilisateur final tous les controles ActiveX utilises, s'ils y sont absents. Le document se 
presente a l'utilisateur comme une page Web HTML classique. Le document ActiveX peut, 
par exemple, contenir des liens hypertexte (des controles ActiveX qui sont telecharges ou 
utilises, suivant le contenu de la machine de l'utilisateur). Les menus des documents Acti- 
veX peuvent aussi etre fusionnes automatiquement avec 1' application parente (comme les 
serveurs OLE). 



HTML (Hypertext Markup Language) est le principal langage de mise en 
pages du Web. Un navigateur Web peut dechiffrer tous les codes HTML, 
formater et afficher la page Web et V application decrites par le code HTML. 
La section finale de la lecon d'aujourd'hui montre un exemple de code 
HTML. Un fichier HTML est un fichier texte pur qui contient des codes 
HTML. Si vous pouvez creer un fichier HTML en utilisant un simple editeur 
de texte, il existe de nombreux outils visuels permettant de concevoir et de 
creer des pages Web sans avoir a taper le moindre code HTML. Mime 
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Visual Basic peut vous aider dans la conception de pages Web si vous selec- 
tionnez. V assistant DHTML. Les fichiers HTML ont V extension .HTM exten- 
sion de fichier. 

Les editions Professionnelle et Entreprise de Visual Basic 6 supportent DHTML {Dyna- 
mic Hypertext Markup Language) qui reagit a des actions sur la page Web. Le document 
ActiveX est lie a une page HTML que vous creez ou utilisez. Quand l'utilisateur clique 
sur le lien vers votre document ActiveX, ce dernier s' active, le controle arrive sur l'ordi- 
nateur de l'utilisateur, puis le code du document ActiveX de la page Web s'execute quand 
la page s'affiche. Le contenu est dynamique, ce qui signifie que des parametres tels que la 
couleur et le style du texte peuvent differer d'une machine a 1' autre en fonction des confi- 
gurations. 

Un document ActiveX n' est pas statique. C'est en fait une veritable applica- 
tion qui s'execute. L' utilisation d'un concept de document aide les program- 
mers a voir comment les pages Web utilisent le document ActiveX 
incorpore. 

La raison principale pour creer des documents ActiveX est sans doute qu 'Internet 
Explorer peut les executer comme s'il etait un programme de controle ou un lanceur de 
programme du systeme d' exploitation. Les menus du document ActiveX fusionnent 
avec les menus d'lnternet Explorer (et en remplacent les fonctionnalites si necessaire), 
et vous n'avez pas a apprendre un nouveau langage, tel que Java, pour activer les pages 
Web. 

Java est un langage de programmation de V Internet , fonde sur C+ + , utilise 
pour activer les pages Web et interagir avec les utilisateurs en transmettant 
de petits programmes Java, nommes applets, avec la page Web. Les applets 
s'executent sur la machine de l'utilisateur lorsqu'il consulte une page Web 
qui les contient. 

La botte de dialogue Nouveau projet contient deux icones — Exe Document 
ActiveX et DU Document ActiveX — qui creent des noyaux de documents 
ActiveX. La Figure 19.5 montre ces icones. Vous pouvez, a partir de la, ajou- 
ter toutes les caracteristiques voulues a la feuille, comme vous lefaites avec 
les applications classiques . 
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Nouveau projet 



Figure 19.5 

Demarrez V assistant 
Nouveau projet pour 
voir les assistants 
Documents ActiveX. 



Assistant DLLD 
Document ActiveX 



Controle ActiveX Assistant 
Creation 



Projet de 
donnees 




Gestionnaire 
d 'Assistants 



Application IIS 



EXE Document Application 
ActiveX DHTML 



Assistant ExeD 
Document ActiveX 



L'assistant Migration de document ActiveX 

Le plus simple pour porter vos applications vers l'lnternet est de laisser Visual Basic le 
faire a votre place. Lorsque vous ajoutez l'assistant Migration de document ActiveX en 
choix du menu Complements, vous ajoutez un outil puissant qui peut transformer 
presque toute application Visual Basic en une application Internet. Vous pouvez placer 
vos applications, converties en documents ActiveX, sur un serveur Web ; les utilisateurs 
pourront alors interagir avec elles au travers d'un navigateur Web, comme avec les 
pages Web qui contiennent du code HTML, VBScript et Java. 

Pour voir la simplicite de la conversion d'une application en application compatible 
Internet, suivez ces etapes pour utiliser l'assistant Migration de documents ActiveX : 

1. Selectionnez Complements, Gestionnaire de complements et double-cliquez sur 
l'entree Assistant Migration de document ActiveX VB6 pour ajouter l'assistant a la 
liste. 

2. Cliquez sur OK pour fermer la boite de dialogue Gestionnaire de complements. 

3. Ouvrez l'application exemple Calc.Vbp, fournie avec Visual Basic. Cherchez dans 
le dossier Samples du CD-ROM ou sur le disque dur si vous avez installe les exemples 
lors de 1' installation de Visual Basic. 

4. Appuyez sur F5 pour executer l'application. Comme le montre la Figure 19.6, elle 
simule une calculette de poche. 

5. Arretez 1' execution de l'application. 

6. Selectionnez Complements, Assistant Migration de document ActiveX. 
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Figure 19.6 

L' application Calc 
imite les fonctions 
d'une calculette de 
poche. 
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7. Cliquez sur Suivant pour sauter la fenetre d' introduction. 

8. La seconde fenetre s'affiche (voir Figure 19.7) ; elle liste toutes les feuilles du projet 
en cours. Le projet Calc.vbp ne contient qu'une feuille, cliquez sur l'entree Calcula- 
tor pour la selectionner. 



Si votre projet comprend plusieurs feuilles, vous pouvez choisir de n 'en 
transmettre que quelques-unes dans des documents ActiveX compatibles 
Web. Chaque feuille devient un document ActiveX independant. 



Figure 19.7 

Selectionnez la feuille 
de V application 
qui apparaitra sur 
la page Web comme 
un document ActiveX. 



Assistant Migration de documents ActiveX - Selection de feuilles 



Selectionnez les feuilles du projet que vous souhaitez 
convertir en documents ActiveX, 




Aide 


Annuler 


< Precedent || : Suivant > || 







9. La fenetre Options (voir la Figure 19.8) determine comment l'assistant doit gerer les 
elements qu'il ne peut pas convertir. Certains types d' instructions de communication 
avancees ne peuvent pas fonctionner dans un document ActiveX, meme si la majeure 
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partie du code Visual Basic fonctionnera en douceur. Si vous cochez la premiere 
option, Visual Basic placera des commentaires devant toutes les instructions que 
l'assistant ne peut pas convertir. L' application resultante sera incomplete, mais vous 
pourrez rechercher les commentaires et supprimer le code ou le corriger s'il est vital 
de convertir l'application. II n'y a pas de code incorrect dans l'application Calc.vbp. 

En outre, vous pouvez choisir de supprimer du projet les feuilles converties, car elles 
se retrouveront dans un document ActiveX une fois l'assistant acheve. Laissez 
cochee l'option Convertir en EXE ActiveX pour que l'assistant cree un executable, 
et pas une DLL. 




Une DLL (Dynamic Link Library), ou bibliotheque de liens dynamiques est 
une routine compilee qui peut etre partagee par une ou plusieurs applica- 



tions compilees. 




Dans le cadre de cet exemple, laissez les parametres par defaut de la boite de dialo- 
gue Options et cliquez sur Suivant pour continuer. 

10. Laissez les options telles quelles et cliquez sur Terminer dans la fenetre Termine! pour 
demarrer la migration de l'application Calc.vbp vers un document ActiveX. Une fois 
qu'elle s' acheve, une boite de dialogue de fin s'affiche. 

1 1 . Cliquez sur OK pour fermer la boite de dialogue de fin. 
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i — i Apres chaque Migration, une fenetre de recapitulatif s'affiche(voir 
^5"l\J ce Figure 19.9). La fenetre Recapitulatif est importante, car les instructions 

' qu'elle presente vous permettent de savoir ce qu'il reste dfaire pour tester la 

migration. Apres avoir lu le rapport, vous pouvez cliquer sur le bouton 
Enregistrer pour enregistrer le texte et fermer la fenetre. Dans cet exemple, 
vous pouvez fermer la fenetre sans V enregistrer. 



Figure 19.9 

La fenetre 
Recapitulatif 
decrit les actions 
a accomplir pour 
achever la migration. 



* Assistant Migration de document ActiveX - Recapitulatif 



L'Assistant Migration de documents ActiveX a termine la conversion de vos feu i I les 
Ensuite 



Les applications basees sur des documents ActiveX offrent aux developpeurs Visual Basic un moyen 
transparent de creer des applications qui s'executent au sein d 'applications conteneurs de Documents 
ActiveX, comme I'Explorateur Internet Microsoft et le Classeur Office Microsoft. 
Un document utilisateur (UserDocument) ressemble a une feuille Visual Basic standard, a quelques 
differences pres. Par exemple, avec une feuille standard, il exists des methodes pour afficher, masquer, 
charger et decharger les feuilles. Ces methodes ne s'appliquent pas a un objet UserDocument, dont 
'affichage et la duree de vie sont geres par le conteneur. En outre, la navigation entre les documents 
ActiveX requiert en general I'utilisation de I'objet Hyperlink. 

Pour tester voire nouveau document ActiveX dans I'Explorateur Internet : 

1 Appuyez sur F5 pour executer votre projet. 

2 Activez I'Explorateur Internet. 

3 Dans le menu Fichier, cliquez sur Ouvrir et tapez le nom du fichier temporaire .vbd cree pour votre 
document ActiveX puis cliquez sur OK. 

4 Vous pouvez alors tester et deboguer votre projet de la meme facon que tout autre projet EXE ou DLL 
ActiveX. 

Pour tester voire nouveau document ActiveX dans le Classeur Office : 
1 Appuyez sur F5 pour executer voire projet. 



Enregistrer 



La migration etant achevee, vous devez executer encore une fois l'application dans l'envi- 
ronnement Visual Basic pour preparer un objet document ActiveX executable. D'une 
certaine maniere, Visual Basic compile votre application, mais contrairement a une compi- 
lation classique, l'execution de l'application convertie cree un document ActiveX avec une 
extension VBD (Visual Basic Document). Vous devrez encore compiler le document 
ActiveX dans un format EXE pour l'utiliser hors de l'environnement Visual Basic. 

Des que vous demarrez l'application, Visual Basic affiche la boite de dialogue Proprie- 
tes du projet (voir Figure 19.10). Elle determine le comportement du document lorsque 
vous executerez le programme. Si vous observez la fenetre Projet, vous constaterez 
qu'elle comprend deux composants : la feuille Calc habituelle et un second objet, 
docCalculator. Ce dernier est le composant document ActiveX cree quand vous avez 
appuye sur F5 pour executer l'application. 

Lorsque vous cliquez sur OK, Visual Basic lance le document ActiveX dans le navigateur 
Internet. La Figure 19.1 1 montre le resultat. Remarquez ce qui s'est produit : 

Le navigateur Internet execute en fait votre application Visual Basic. 

Vous n'avez pas ecrit une ligne d'instructions HTML pour generer la page Web. 
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Figure 19.10 

Specifiez 

les proprie'tes du 

projet de document 

ActiveX. 




• L' application Calculette est transformee avec succes en une application Web. 

Si vous fermez le projet, vous pouvez a tout moment redemarrer le navigateur Internet, 
selectionner Fichier, Ouvrir, rechercher le fichier docCalculator.vbd et executer 
1' application compilee sous forme de document ActiveX, sans demarrer Visual Basic. 

• Si vous placez l'application sur votre serveur Web (en considerant que vous avez 
acces a un serveur Web oil vous pouvez proposer des pages Web sur l'lnternet), tout 
utilisateur d'Internet dans le monde entier qui utilise un navigateur compatible 
ActiveX sera capable d' executer cette application. (Cela simule en fait Taction 
d'une applet Java). 

Une fois le navigateur Internet ferme, vous pouvez selectionner Execution, Fin pour 
arreter l'execution de Visual Basic. 



1 Tout conteneur de contrdle ActiveX peut contenir un document ActiveX. II 

psW ce es t important de le comprendre, car cela montre I'universalite des documents 
ActiveX. En d'autres termes, si vous utilisez une application, par exemple, 
une application de dessin ou un autre langage de programmation, qui 
accepte V incorporation de contrdles ActiveX, vous pourrez. ajouter vos 
documents ActiveX a cette application. Document ActiveX n'est qu'une 
maniere savante de designer un contrdle ActiveX migre depuis une appli- 
cation Visual Basic. Le second exercice montre comment utiliser cette 
fonction si Microsoft Office est installe sur votre machine. 
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Figure 19.11 

Internet Explorer est 
la plate-forme sur 
laquelle I 'application 
Calculette s' execute 
desormais. 
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HTML et VBScript 



S'il suffit de connaitre le langage de programmation Visual Basic pour acceder aux 
fonctions de connexion Internet de Visual Basic 6, vous devez maitriser deux autres 
langages pour bien Her le tout. HTML est le langage de mise en forme des pages Web ; 
il est concu pour atteindre les objectifs suivants : 

formater les pages Web en colonnes, avec des graphiques et des titres adaptes ; 

• permettre 1' integration de programmes de service supplementaires de 1 'Internet, 
comme les documents ActiveX et Java (un petit langage de programmation pour 
rendre actives les pages Web). 

HTML est designe comme un langage de script. II ne se compile pas pour donner un 
executable comme le font les programmes Visual Basic. HTML formate les pages Web, 
specifie oil mettre les graphiques et les cadres de separation, et permet d'activer des 
applications incorporees comme les documents ActiveX et les programmes Java. 

VBScript, comme son nom l'indique, est un autre langage de script, concu par Micro- 
soft a partir du langage de programmation Visual Basic. II est utile lorsque vous voulez 
ajouter des caracteristiques cles de Visual Basic a une page Web, comme un message 
surgissant, une boite de saisie, un calcul en boucle,etc. VBScript, malgre ses bases 
Visual Basic, ne remplace pas les documents ActiveX, mais il permet de les charger 
dans une page HTML pour qu'ils s'executent. C'est done le support permettant aux 
documents HTML de trouver et d'executer des documents ActiveX Visual Basic. 
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VBScript n 'a pas ete concu a I 'origine pour etre exclusivement un lanceur 
de documents ActiveX — en fait, VBScript existait avant ActiveX, he charge- 
ment des documents ActiveX dans les pages HTML n'est qu'une des 
nombreuses taches dont est capable VBScript, mais sans doute la plus 
importante pour un programmeur VB6. 



Le Listing 19.1 montre un exemple des premieres lignes du code HTML du site Web 
Microsoft. 



Listing 19.1 : Quelques lignes de code HTML peuvent reveler comment fonctionne 
le code de formatage des pages Web 

<HTML> 
<HEAD> 

<TITLE>MSN.COM</TITLE> 

<meta http-equiv="Content-Type" content=" text/ html; 

charset=iso-8859-1 "> 
<META http-equiv="PICS-Label" content= 

' (PICS-1 .0 "http: //www. rsac.org/ratingsv01 .html" 

1 comment "RSACi North America Server" by 

"Microsoft Network" '> 
</HEAD> 

<FRAMESET rows="20,*" f rameborder="0" 

f ramespacing="0" border="0"> 
<FRAME src="/pilot.htm" name="pilot" 

NORESIZE scrolling="no" marginwidth="0" 

marginheight="0" f rameborder="0" f ramespacing="0"> 
</FRAMESET> 
</html> 

Connectez-vous a lTnternet et allez avec votre navigateur Web sur la page d'accueil de 
Microsoft a http://wwwjnicrosoft.com/. Meme si la page peut differer de celle decrite 
dans le Listing 19.1, ce n'est pas ce texte que vous verrez. HTML est un langage de 
description de mise en forme de page. Les commandes du Listing 19.1 indiquent a votre 
navigateur Web comment afficher le texte et les graphiques qui sont transmis vers 
votre machine lorsque votre navigateur pointe la page. 

Le Listing 19.2 montre un extrait d'un exemple VBScript. Vous pouvez en comprendre 
une bonne partie grace a votre connaissance du langage Visual Basic. 

Listing 19.2 : Un exemple de VBScript qui montre les ressemblances 
avec Visual Basic 

8<SCRIPT Language="VBScript"> 
Call PrintWelcome 
Call ModMessage 
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Sub PrintWelcome 

If Date() = "2/2/98" Then 

document. write "... .Anniversaire de Cathy !" 

End If 

If Date() = "2/5/98" Then 

document. write "... .Anniversaire d'Eric !" 

End If 

If Date() = "5/17/98" Then 

document. write "... .Anniversaire de Michael !" 

End If 

If Date() = "7/25/98" Then 

document. write "... .Mon Anniversaire !" 

End If 

End Sub 
Sub ModMessage 

Document. Write "<BR>Derniere modification de cette page : 

8w-"+Document . lastModif ied +"</F0NT><BR>" 
End Sub 
</SCRIPT> 



De VB a Java ? 

Une technique que vous pouvez vite etudier est la conversion de Visual Basic vers Java. 
Certains fournisseurs vendent deja de tels outils et d'autres ont annonce leur intention 
de le faire. Le gros avantage de ce type d'outil est que vous n'avez pas a trop vous 
preoccuper des controles Internet. Si vous pouvez ecrire une application qui utilise des 
controles Visual Basic, le programme de conversion traduit le projet Visual Basic en 
projet Java. Dans Java, vous pouvez incorporer 1' application dans vos pages Web intra- 
net ou Internet, et l'application aboutit sur l'ecran de l'utilisateur des qu'il affiche la 
page Web. 

Ces outils de conversion Java ne remplacent pas necessairement 1' assistant Migration de 
document ActiveX dont nous avons deja parle. Cependant, sur certains systemes autres 
que Windows supportant Java, mais pas ActiveX, les applications Java peuvent etre plus 
universellement acceptees que les applications basees sur ActiveX. 



— ' ) Si Java est une nouveaute pour vous, disons qu'il fournit un veritable contenu 
actifaux pages Web depuis bien avant V apparition des controles ActiveX. Java 
fonctionne au travers des pages Web et il s' execute sur la machine de l'utilisa- 
teur final, meme si cette machine et le systeme d' exploitation ne sont pas les 
memes que ceux du developpeur. Pour des informations supplementaires sur 
Java, reportez-vous a Vabondante litterature existant sur le sujet. 
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Visual J+ + est V implementation Microsoft de type Java. Visual J+ + 
comprend une interface programmatique qui ressemble a V interface de 
Visual Basic et fonctionne de maniere tres proche. Les deux environnements 
supportent le style Visual Studio. Vous serez done deja familiarise avec 
V environnement de programmation si vous utilisez Visual J++ comme 
generateur de langage Java. 



Types d'applications Internet Visual Basic 

Visual Basic peut creer les deux types d'application Internet suivantes : 

Application IIS. La maniere la plus simple d'incorporer Internet a des applications 
Visual Basic est de le faire sous la forme d'applications IIS {Internet Information 
Server). Le navigateur Web incorpore a l'application creee plus tot avec l'assistant 
Creation d'application est une application IIS. Le serveur gere tout le traitement des 
commandes Visual Basic. 

Applications DHTML. Permet d'ecrire du code qui reagit a des evenements sur 
une page Web HTML. Le navigateur de l'utilisateur final interprete et execute ces 
commandes, et le serveur distant n'a pas grand-chose d' autre a faire que de repondre 
aux requetes particulieres quand elles se produisent, comme, par exemple, recuperer 
des pages Web supplementaires. 



N'oubliez pas que la lecon d'aujourd'hui ne propose qu'un survol de la 
creation d'applications Visual Basic. Ne vous attendez pas a maitriser des 
concepts Internet avances en un jour. Peu importe votre niveau en program- 
mation, entrer dans le monde d'un programmeur Internet, un peu comme 
pour un programmeur de base de donnees, exige une formation sur la 
gestion des protocoles de connexion, les langages de script, les contrdles 
ActiveX traitant de la communication, et la programmation client/ serveur. 
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Dans la terminologie en ligne, le client est l'application qui accede a 
V Internet, et le serveur est I'ordinateur qui detient les pages Web que l'utili- 
sateur final (le client) affiche et sur lesquelles il interagit. Le monde en ligne 
est base sur les transactions ; e'est-a-dire que l'utilisateur emet une requite, 
par exemple, dans le navigateur Web et le serveur traite cette requite, puis 
envoie une transaction resultante a l'utilisateur sous la forme d'une page 
Web ou d'une applet ActiveX. 



Visual Basic supporte ces deux types de developpement d'applications Internet ; vous 
pouvez done les developper dans Visual Basic, et les tester avec les outils de debogage 
que vous apprendrez dans le Chapitre 21 . 
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En resume 

Ce chapitre a donne une breve presentation du role de Visual Basic en tant qu'acteur 
Internet. Al'evidence, cette lecon ne peut couvrir qu'une tres faible partie des details 
necessaires pour vraiment transformer Visual Basic en un outil de programmation Inter- 
net. Des bases solides sont necessaires, ne serait ce que dans la technologie Internet, 
avant de s'attaquer a l'interface de Visual Basic. II existe quantite de bons livres et de 
references en ligne, mais la meilleure chose est deja d'etudier le materiel qui accompagne 
Visual Basic 6. Vous y trouverez des descriptions qui detaillent votre role en tant que 
programmeur Internet. 

Ne soyez pas effrayes par l'idee d'ecrire des applications qui interagissent avec l'lnter- 
net. Rendez-vous compte que l'objectif annonce de faire tenir chaque lecon sur la duree 
d'une journee raisonnable n'aurait pas pu etre atteint si la lecon d'aujourd'hui s'etait 
aventuree a vous apprendre les nombreuses particularites necessaires a l'ecriture des 
programmes Internet. En tout cas, les programmeurs Internet sont bien recompenses 
pour leurs competences resultant des etudes approfondies exigees et du rythme qu'ils 
doivent suivre pour rester a jour dans la technologie. 

La lecon de demain decrit comment creer des pages d'aide pour les applications Visual 
Basic. Vous verrez de plus pres comment fonctionne HTML en creant un systeme d'aide 
HTML et en utilisant des pages de type HTML. 



Questions-reponses 

Q Mon application comprend trois feuilles. L'assistant Migration de document 
ActiveX compile-t-il ces trois feuilles en un document ActiveX unique ? 

R L'assistant Migration de document ActiveX convertit les feuilles, non les applications 
entieres, en documents ActiveX. En d'autres termes, si votre application contient 
quatre feuilles, chacune generera un document ActiveX different (si on considere 
qu'elles ne contiennent pas de code qui viole les exigences des documents ActiveX). 
Vous pourrez lier les documents avec des liens hypertexte en utilisant des instructions 
HTML, mais chaque feuille deviendra un document ActiveX independant. L'assistant 
de migration ne convertit pas vraiment la totalite de 1' application en un document 
ActiveX unique si 1' application contient plusieurs feuilles. 



637 < 



Partie III 



Q Quels types d'applications ne sont pas convertis par ("assistant Migration de 
document ActiveX ? 

R L' assistant Migration de document ActiveX convertit la plupart des applications Visual 
Basic, a l'exception de celles qui contiennent des objets OLE incorpores, car OLE est 
une technologie ancienne non supportee par les navigateurs Web. En outre, certains 
controles et certaines commandes de communications avances peuvent ne pas fonc- 
tionner comme attendu apres migration. Mais la plupart des applications Visual Basic 
seront converties sans problemes. 

La limitation d'un document ActiveX par feuille, decrite a la question precedente, 
ne pose un probleme que si une feuille de l'application utilise les methodes Hide, 
Show, Load ou Unload pour masquer ou afficher une autre feuille. Lassistant met ces 
methodes en commentaires, comme la commande End, car une application docu- 
ment ActiveX ne se termine pas comme une application habituelle, elle reste en fait 
active jusqu'a ce que l'utilisateur change de page ou ferme le navigateur Internet. 



Atelier 

L atelier propose une serie de questions qui vous aident a renforcer votre comprehension 
des elements traites, ainsi que des exercices qui vous permettent de mettre en pratique ce 
que vous avez appris. Essayez de comprendre les questions et les exercices avant de passer 
a la lecon suivante. Les reponses se trouvent a 1' Annexe A. 

Quiz 

1. Que fait de l'URL que vous fournissez l'application de navigation Web que vous 
generez dans l'assistant Creation d'application ? 

2. Les utilisateurs de votre application doivent utiliser Internet Explorer comme navi- 
gateur Web pour que le controle de navigation Web Visual Basic fonctionne. Vrai ou 
faux ? 

3 . Vous devez utiliser Internet Explorer comme navigateur Web pour que le controle de 
navigation Web Visual Basic fonctionne. Vrai ou faux ? 

4. Qu'est-ce que 1' encapsulation ? 

5. Quel service en ligne est supporte par certains controles Visual Basic ? 

6. Quelle est la difference entre un intranet et 1' Internet ? 
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7. Quelle est la difference entre un document ActiveX et une application Visual Basic 
classique ? 

8 . A quoi sert Java ? 

9. Quel langage de script fonctionne avec HTML pour charger et executer des documents 
ActiveX ? 

10. Comment pouvez-vous convertir des applications existantes en documents 
ActiveX ? 

Exercices 

1. Si vous disposez de Microsoft Office Professionnel, vous pouvez utiliser le Classeur 
Office pour contenir des documents ActiveX ! Essayez en utilisant le document 
ActiveX calculette que vous avez cree dans la lecon d'aujourd'hui. 

2. Selectionnez une application qui contient plusieurs feuilles, comme le projet exemple 
Controls. Convertissez cette application en un document ActiveX. 
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Chapitre 



20 



Fournir de l'aide 



Ce chapitre explique comment aider les utilisateurs. Lorsque vous en aurez termine, vous 
saurez ajouter un systeme d'aide a une application afin que l'utilisateur puisse en lire la 
documentation en ligne. Le systeme d'aide est dit en ligne non pas parce que vous 
envoyez l'utilisateur sur l'lnternet, mais parce que les informations sont immediatement 
disponibles ; il n'a pas a se reporter a un manuel imprime. Le systeme d'aide imite le 
systeme d'aide de presque toutes les applications Windows. L'utilisateur n'a pas a faire 
d'efforts particuliers d'apprentissage pour savoir comment utiliser l'aide en ligne de vos 
applications. 

Cette lecon commence par vous apprendre comment ajouter des info-bulles aux controles. 
L'aide "Qu'est-ce que c'est ?" peut egalement etre ajoutee une fois que vous maitrisez la 
creation des fichiers d'aide. 

Vous apprendrez dans ce chapite : 

• les info-bulles et l'aide "Qu'est-ce que c'est ?" ; 

• la preparation des fichiers d'aide HTML, ; 

• comment choisir entre l'aide HTML et l'aide Windows classique ; 
comment creer et formater le texte des fichiers d'aide, ; 

• les exigences du format RTF ; 

comment lier les messages d'aide aux controles, ; 

• comment utiliser le controle Boite de dialogue commune pour commander les 
ecrans d'aide ; 

comment les ID de contexte de l'aide pointent des sujets particuliers. 
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II existe plusieurs methodes pour ajouter de Vaide en ligne aux applications 
Visual Basic. La lecon d'aujourd'hui vous en enseigne deux principales . 
Tout d'abord, Vaide en ligne que vous trouvez encore dans la plupart des 
applications Windows, nommee WinHelp. Depuis Visual Basic 6, vous 
pouvez egalement ajouter de Vaide HTML a vos applications. Une partie de 
la lecon Vexplique. Tous les utilisateurs ne disposant pas de navigateurs 
Web capables d'afficher Vaide HTML, vous ne pourrez garantir la compa- 
tibilite de vos applications avec leurs system.es qu'en ajoutant Vaide en 
ligne standard. 



Info-bulles et aide "Qu'est-ce que c'est ?" 

Les info-bulles sont faciles a ajouter a divers objets, et l'aide particuliere "Qu'est-ce que 
c'est ?" repose fortement sur le fichier d'aide. Vous pouvez ajouter des info-bulles a un 
controle quand vous inserez ce dernier dans une feuille, en renseignant la propriete 
ToolTipText. Quand l'utilisateur positionne ensuite le pointeur de la souris sur le 
controle, l'info-bulle s'affiche au bout d'un bref delai. Et, des que vous disposez d'un 
fichier d'aide detaille, l'ajout de l'aide "Qu'est-ce que c'est ?" est simple. 



Les info-bulles sont les descriptions d'aide qui s'affichent quand vous laissez 
le pointeur de la souris sur un controle. 



L'aide "Qu'est-ce que c'est ?" est une aide contextuelle (signifiant qu'elle 
depend de I'endroit d'ou l'utilisateur Va demandee) qui decrit le controle. 
L'utilisateur clique sur le point d' interrogation "Qu'est-ce que c'est ?" dans 
le coin superieur droit de lafenetre ou selectionne le menu Aide, Qu'est-ce 
que c'est ? ; le curseur se transforme en un point d 'interrogation. Tout 
controle sur lequel l'utilisateur clique alors genere une aide. 



Proposez une aide "Qu'est-ce que c'est ?" lorsque Vecran de votre applica- 
tion contient de nombreux elements qui peuvent troubler les nouveaux 
utilisateurs. lis peuvent cliquer sur "Qu'est-ce que c'est ?" dans la barre 
d'outil ou selectionner V option de menu correspondante , puis cliquer sur 
Vobjet de Vecran pour lequel Us veulent en savoir plus. 



Outre les info-bulles, vous pouvez proposer une aide "Qu'est-ce que c'est ?" pour 
donner aux utilisateurs des informations supplementaires sur vos applications. La 
Figure 20.1 montre la fenetre d'aide "Qu'est-ce que c'est ?" qui s'affiche apres que 
l'utilisateur a choisi Aide, Qu'est-ce que c'est ? et qu'il a clique sur Parcourir. Le 
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pointeur en point d' interrogation reprend une forme normale des que la boite d'aide 
s'affiche. 



Figure 20.1 

L'utilisateur peut 
demander "Qu'est-ce 
que c'est ?" 



Arriere-plan | Ecren de veille | Apparence ] Plus! | Web | Configuratio 




Papier-peint 

Selectionnez un document HTML ou une image 



0 (Aucun) 

^wallpapr 




Cliquez ici pour parcourir votre ordinateur ou votre 
reseau afin de rechercher le fichier que vous 
souhaitez utiliser comme arriere-plan de votre 
Bureau Le papier peint d'arriere-plan peut etre une 
image (fichiers avec une extension bmp, jpg, git 
ou png) ou une page HTML 



Faites correspondre I'aide "Qu'est-ce que c'est?" aux objets. La 
Figure 20.1 utilise la page d'aide la plus proche disponible pour le bouton 
Parcourir dans la configuration des pages d'aide. Le processus est decrit 
dans la suite de cette lecon. 

Cette etude simultanee des info-bulles et de I'aide "Qu'est-ce que c'est ?" s'explique par 
leur ressemblance d'un point de vue utilisateur. Ce dernier doit laisser le curseur sur un 
controle pour lire l'info-bulle, ou cliquer sur le declencheur "Qu'est-ce que c'est ?" pour 
obtenir de I'aide sur ce controle. 

Malgre ces ressemblances, vous pourrez etre surpris de la complexity inherente a l'ajout 
de I'aide "Qu'est-ce que c'est ?" par rapport aux info-bulles (qui sont tres simples). Le 
reste de cette section decrit comment ajouter des info-bulles et la partie finale decrit 
comment ajouter I'aide contextuelle (une fois que vous aurez appris comment creer des 
fichiers d'aide a integrer dans I'aide en ligne). 

La simplicite de l'ajout des info-bulles a tout controle place sur la feuille peut vous 
surprendre. II suffit pour cela de saisir le texte dans la propriete ToolTipText de l'objet. 
Visual Basic s'occupe de tout le reste. Cherchez, dans les exemples, l'application de 
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bloc -notes MDI nommee Mdinote. Lorsque les programmeurs de Microsoft ont cree 
cette application, ils ont ajoute des info-bulles a presque tous les controles de chaque 
feuille. Vous pouvez selectionner un controle au hasard et lire la propriete ToolTipText 
correspondante qui s'affiche quand le pointeur de la souris reste dessus. 

Faire 

Prenez 1' habitude de renseigner le texte de V info-bulle chaque fois que vous 
ajoutez. un controle dans une feuille d'une application, vu la simplicite de la 
manipulation. II y a moins de chances que vous ajoutiez les info-bulles plus 
tard, ajoutez-les done immediatement, quand le but de votre controle est 
encore frais dans votre esprit. 

Adaptation de I'aide a une application 

L'ecriture d'un systeme d'aide en ligne peut etre une tache decourageante, mais vous 
pouvez emprunter celui de Windows dans vos applications. Tout ce que vous devez faire 
est d'ecrire le texte de I'aide, puis d'utiliser le systeme d'aide de Windows pour afficher 
ce texte au bon moment et au bon endroit dans 1' application. L'utilisateur n'a pas 
d'apprentissage a faire, car il sait deja comment utiliser le systeme d'aide de Windows. 

N'attendez pas d' avoir termini votre application pour lancer la conception 
du systeme d'aide en ligne. Le meilleur moment pour rediger le texte d'aide 
est le moment ou vous concevez et creez V application. C'est la que vous avez 
la meilleure connaissance du fonctionnement de V application et que vous 
etes le mieux arme pour ecrire le type d'aide dont l'utilisateur a besoin. 

Systemes d'aide HTML 

Si vous utilisez le systeme d'aide de Visual Basic, vous verrez l'Aide basee sur les 
fichiers d'aide HTML. En d'autres termes, I'aide s'affiche dans un format proche des 
navigateurs Web, avec des liens hypertexte. Vous pouvez cliquer sur Precedent pour afficher 
les ecrans d'aides que vous avez deja lus. Le panneau de gauche contient les themes du 
sommaire et lorsque vous double-cliquez sur une entree, le panneau de droite affiche le 
contenu de la rubrique. 

HTML signifie Hypertext Markup Language. C'est le langage de mise en 
forme des pages Web. 
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Vous pouvez ajouter ce type d'aide HTML a vos applications Visual Basic. C'est un 
nouveau type d'aide ; en effet, avant l'apparition des navigateurs Web, toutes les appli- 
cations Windows utilisaient le meme moteur, WinHelp. Ce dernier permet l'affichage de 
I'aide en ligne et utilise les liens hypertexte, mais dans un format different des navi- 
gateurs Web (voir Figure 20.2). La version WinHelp du systeme d'aide des applications 
Windows est le meme depuis plusieurs annees. Les programmeurs predisent que I'aide 
HTML sera le systeme standard de I'aide en ligne des applications Windows dans 
quelques annees, mais WinHelp garde toujours une bonne avance. 

WinHelp est le systeme d'aide en ligne utilise dans la plupart des applica- 
tions Windows, et qui sera peut-etre remplace un jour par le systeme d'aide 
HTML. 



Figure 20.2 

L'aide HTML utilise 
une fenetre a deux 
volets ressemblant a 
VExplorateur. 
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Malgre Tapparence moderne de I'aide fondee sur HTML, les utilisateurs de 
vos applications ne pourront pas obtenir d'aide en ligne s'ils ne disposent 
pas d'un navigateur Web installe sur leur systeme ou si leur navigateur est 
anterieur a Internet Explorer 4.0. Vous limiterez done defacon considerable 
votre audience si vous exigez que tous les utilisateurs de vos applications 
utilisent Internet Explorer 4. Tant que la presence d'un navigateur Web n'est 
pas garantie sur la machine de I ' utilisateur, il est preferable de s'en tenir au 
systeme d'aide WinHelp classique decrit dans la section suivante. En atten- 
dant, cette section explique quel sera votre futur si le monde informatique 
continue d'evoluer vers une interface basee sur les navigateurs . 
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La maniere de connecter un fichier d'aide HTML a une application Visual Basic est la 
meme que pour un fichier WinHelp : specifiez le fichier d'aide HTML dans la propriete 
HelpFile. Vous pouvez en outre parameter la propriete HelpContextlD pour tous les 
objets de la feuille pour qu'un sujet particulier d'aide contextuelle s'affiche s'il est 
selectionne a l'ecran quand l'utilisateur appelle l'aide. 

La principale difficulty ne reside pas dans la connexion du fichier d'aide a vote applica- 
tion et a ses objets, mais dans la creation de ce fichier. A partir de la section suivante, 
vous suivrez un exemple assez ennuyeux qui cree un fichier d'aide WinHelp qui, malgre 
sa longueur, est encore assez incomplet. Les ecrans d'aide, meme pour les applications 
simples, peuvent etre nombreux et, plus vous offrez de liens hypertexte complets, plus 
vote travail de concepteur de fichiers d'aide devient pesant. 




Les fichiers d'aide HTML ont une extension .CHM et les fichiers WinHelp, 
une extension .HLP. 



' ) La creation d'un fichier d'aide, qu'il soit HTML ou WinHelp, necessite 

^ v>c6 souvent beaucoup plus d efforts qu'il n'en merite. Cependant, V experience 
que vous allez commencer a acquerir a partir de la section suivante est une 
bonne chose, car vous comprendrez mieux comment le texte d'un fichier 
d'aide interagit avec une application. Faites-vous plaisir des que vous en 
aurez terminer avec cette legon : courez chez votre marchand de logiciels et 
cherchez un outil de creation d'aide plus automatise . De nombreux logiciels 
utilitaires rendent la creation beaucoup plus simple. De plus, les nouveaux 
outils de creation d'aide generent l'aide HTML et WinHelp a partir des 
memes instructions . 



II existe d'autres outils — outre les outils de creation d'aide disponibles actuellement — 
avec lesquels il est possible de creer des pages HTML utilisables comme fichiers d'aide. 
De nombreux traitements de texte actuels, comme Microsoft Word 97, ouvrent et enre- 
gistrent les fichiers au format HTML. Vous pouvez aussi, si vous n'avez pas acces a un 
programme de creation d'aide au format HTML, utiliser un outil de conception de pages 
Web pour creer les fichiers HTML. Microsoft fournit une version de son programme de 
conception de pages Web, FrontPage Express, avec Internet Explorer. FrontPage 
Express peut aussi etre telecharge a partir du site Web de Microsoft. 

II existe des ouvrages complets qui expliquent comment creer des pages HTML, notam- 
ment les elements de pages Web et d'aide, tels que les liens hypertexte et les graphiques 
incorpores. 
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L'aide RTF 

Les sections suivantes expliquent comment creer et lier le fichier des sujets d'aide a 
votre application en utilisant la methode traditionnelle WinHelp. Vous devez non seulement 
rediger le fichier des sujets d'aide, mais aussi creer un projet d'aide que vous compilez 
ensuite pour donner un systeme d'aide lie a votre application. Le texte a inserer dans 
le fichier des sujets d'aide doit etre au format RTF (Rich Text Format), que 1' applica- 
tion peut utiliser pour incorporer des sauts hypertexte de sujet en sujet lorsque c'est 
necessaire. 



Un saut hypertexte est un lien vers un autre sujet dans le systeme d'aide. 



Vous devez avoir acces a un traitement de texte capable de creer des fichiers 
RTF et qui supporte les notes de has de page. Microsoft Word est certaine- 
ment I'outil le plus repandu pour la creation de fichiers d'aide. 



Souvenez-vous qu'une bonne raison pour creer des fichiers d'aide WinHelp est qu'ils 
seront accessibles par tous les utilisateurs de votre application. Tous les exemplaires de 
Windows sont fournis avec un systeme d'aide qui s'appelle la visionneuse de fichier 
d'aide (Windows Help Viewer), et qui est capable de gerer les fichiers source RTF 
WinHelp compiles comme c'est decrit ici. Cette visionneuse est, par contre, incapable 
de lire les fichiers d'aide HTML ; il faut pour cela un navigateur Web. 



0S 



La visionneuse de fichier d'aide est un outil qui fait partie integrante de 
Windows et permet d'afficher les fichiers WinHelp. 



La compilation effectuee sur les fichiers d'aide n'a pas de rapport avec la compilation de 
1' application. Dans la lecon de demain, vous apprendrez comment compiler vos applica- 
tions afin de les distribuer. Pour que votre application, compilee ou pas, accede a un 
fichier d'aide, il faut que ce dernier soit compile en un fichier avec l'extension standard 
.HLP. 



Preparer le fichier des sujets 

Si vous utilisez Word pour creer le fichier d'aide, vous devez afficher les codes de 
formatage masques. La plupart des gens preferent rediger les documents sans afficher 
les codes, mais les sauts hypertexte exigent du texte masque, que vous devez voir, meme 
s'il est cache aux utilisateurs. Cliquez sur Afficher/Masquer (le symbole de paragraphe) 
sur la barre d'outils pour afficher les codes masques. 
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Creer les sauts hypertexte 

La majeure partie du fichier d'aide sera constitute de texte normal decrivant les sujets 
d'aide. Le texte d'aide n'impose pas de contraintes de formatage ; vous pouvez modifier 
la taille et le style des caracteres comme vous le voulez. Cependant, les sauts hypertexte 
exigent un formatage specifique pour permettre au systeme d'aide de reconnaitre leurs 
mots cles et de savoir oil se situe le sujet lie. 

Plus vous ajoutez de references croisees entre les sujets d'aide a l'aide de sauts hyper- 
texte, plus votre systeme d'aide sera utile a l'utilisateur. Quand vous ajoutez un saut 
hypertexte, les utilisateurs n'ont pas a utiliser un menu pour selectionner les sujets qui 
peuvent les interesser. lis peuvent juste "sauter" directement au sujet qu'ils veulent lire. 

Les exigences pour creer des sauts hypertextes sont les suivantes : 

• Ajouter un soulignement double a toutes les phrases de saut hypertexte. Elles s'affi- 
cheront en vert dans la fenetre d'aide de l'utilisateur. Avec Word, il faut selectionner 
le mot ou la phrase, selectionner Police dans le menu Format, puis choisir Double 
dans la liste deroulante Soulignement. Vous pouvez aussi utiliser la combinaison de 
touches Ctrl-Alt-U, ou personnaliser la barre d'outils et ajouter l'icone de double 
soulignement. 

• Faire suivre le texte du saut hypertexte d'une balise nominee chatne de contexte, qui 
contient le sujet de destination du saut et qui est formatee en texte masque. N'inserez 
aucun espace entre le saut hypertexte et la chaine de contexte. Assurez-vous que 
vous ne formatez que la chaine de contexte en texte masque (attention aux espaces, 
aux ponctuations ou aux marques de paragraphes). Pour masquer le texte, selec- 
tionnez Format, Police, et cliquez sur la case Masque. Vous pouvez aussi utiliser la 
combinaison de touches Ctrl-Maj-U ou personnaliser la barre d'outils. 

Une chaine de contexte est une chaine de caracteres qui suit un saut 
hypertexte affiche dans le texte quand l'utilisateur demande une aide 
contextuelle . 

• Separer la page du sujet qui contient le saut hypertexte de la page de destination par un 
saut de page. Vous pouvez ajouter un saut de page dans le menu Insertion, en 
selectionnant Saut, puis Saut de page (ou appuyer sur Ctrl -En tree). 

• Connecter le texte du saut hypertexte a la page de destination par au moins un des 
trois symboles personnalises de note de bas de page : 

• Afficher des descriptions et des definitions d'aide surgissantes par un soulignement 
simple des sujets a defmir. Vous pouvez souligner le texte dans le menu format, en 
selectionnant Police, puis Simple dans la liste deroulante Soulignement. Vous 
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pouvez aussi appuyer sur Ctrl-U ou ajouter une icone en personnalisant la barre 
d'outils. 



Symbole 



Description 



# Utilise pour se connecter a la page de destination par la chaine de contexte. 

$ Utilise pour placer le titre de la page de destination dans la zone de texte 

Rechercher du systeme d'aide et pour connecter le saut hypertexte au titre de 
la page de destination. 

K Utilise pour se connecter a un sujet lors d'une recherche par mots cles. 

De nombreux sujets d'aide sont lies a leurs pages de destination par les trois 
symboles de bas de page. En d'autres termes, l'utilisateur peut sauter de sujet 
en sujet, les titres des sujets apparaissent dans la zone de texte Rechercher du 
systeme d'aide ; il peut aussi rechercher les sujets a I'aide de mots cles. 



II est beaucoup plus simple de montrer un exemple que de decrire un fichier d'aide. 
La section suivante illustre done les differentes manieres de configurer les sauts hyper- 
texte et les destinations. 



Si vous utilisez. le symbole de note de bas de page K pour designer un sujet 
de recherche, ajoutez autant de sujets que vous le pouvez. Comme vous le 
verrez dans V exemple, les notes de bas de page K contiennent souvent 
plusieurs entrees separees par des points vir gules. La note de bas de page 
suivante indique au systeme d'aide que le sujet doit apparattre dans quatre 
rubriques de Vindex de I'aide : 



KModif ier les options 
Modifier le Atexte 



Commandes du menu ; Modifications 



Creer un fichier d'aide 

Vous avez, un peu plus tot dans cette lecon, charge le projet exemple de bloc-notes MDI 
(MdiNote.Vbp) pour voir comment fonctionnait I'aide par info-bulles. Vous allez creer 
un systeme d'aide auxiliaire pour cet exemple de programme MDI. L' application utilise 
les feuilles MDI pour gerer un petit editeur de texte multifenetres. Si l'application est 
relativement bien finie et va au-dela des capacites du Bloc-notes de Windows (car elle 
supporte plusieurs fenetres, ce que ne fait pas le Bloc -notes de Windows), elle ne 
possede pas d' autre aide en ligne que les info-bulles. 
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Cet exemple utilise Microsoft Word pour la creation des fichiers d'aide. Vous 
pourrez avoir a utiliser un autre traitement de texte, suivant le contenu de 
votre machine. 



La Figure 20.3 montre un exemple d'ecran d'ouverture de l'aide du Bloc-notes MDI 
dans Word. Les phrases en soulignement double sont les sauts hypertexte qui s'affiche- 
ront en vert dans la fenetre d'aide de l'utilisateur. Le texte masque etant affiche, il est 
souligne en pointille. 



Figure 20.3 

L'ecran d'ouverture 
de l'aide du Bloc- 
notes MDI contient 
des sauts hypertexte. 
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La Figure 20.3 montre six chaines de contexte de phrases de saut: MDI_DEF, 
CREATE_FILES, EDIT_TEXT, SEARCH_TEXT, CHANGE_0PTI0NS, et MANAGE_WINDOWS. II devra 
done y avoir au moins six autres pages apres l'ecran d'ouverture de l'aide. Ces pages 
sont connectees a leurs liens de saut hypertexte d'origine par un ou plusieurs des 
symboles de note de bas de page. Le premier saut, MDI_DEF sera une definition surgis- 
sante du terme MDI. 

Le fichier d'aide doit avoir une valeur d'lD de contexte pour que l'application sous- 
jacente puisse faire reference a l'ecran d'ouverture de l'aide si necessaire. La 
Figure 20.4 montre deux notes de bas de page creees pour le texte d'accueil de l'aide. 
Pour ajouter une note de bas de page, vous devez deplacer le curseur devant le premier 
caractere du titre et, dans le menu Insertion, choisir Notes, Inserer notes de bas de page, 
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puis taper # comme symbole personnalise pour indiquer 1' emplacement de la page du 
saut hypertexte. Repetez ces etapes pour entrer la note $ pour le titre du lien au saut 
hypertexte. Les deux symboles des notes de bas de page s'afBchent a gauche du texte et 
dans la fenetre inferieure de note de bas de page. L' application peut utiliser l'ID de 
contexte d'aide pour referencer cet ecran d'aide, et les outils de recherche du systeme 
d'aide afficheront le titre qui apparait a gauche du symbole $. 



Figure 20.4 

La fenetre d'aide 
complete s'affiche 
desormais lorsque 
l'ID de contexte ou 
le titre sont appeles. 
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N'utilisez pas le symbole de note de bas de page K dans la fenetre d'ouver- 
ture de I'aide. 



Les paragraphes suivants vous montreront que le document RTF contient un type dTD 
de contexte different de celui qu'attend Visual Basic. Vous devrez par consequent faire 
correspondre les valeurs textuelles dTD de contexte a des valeurs numeriques pour 
qu'une application puisse utiliser I'aide contextuelle. 
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Les sauts hypertexte d'aide restants doivent maintenant avoir des pages d' aides corres- 
pondantes, avec leurs notes de bas de page pour pouvoir etre connectees a 1'ecran 
d'ouverture. Le premier sujet d'aide a creer est la definition surgissante du terme MDI. 
La page qui suit 1'ecran d'ouverture doit contenir les informations suivantes : 

• le titre MDI sur la premiere ligne ; 

• une ligne de separation ; 
la definition de MDI. 

La note de bas de page de la Figure 20.5 complete la connexion entre cette page et le 
lien correspondant de la page d'ouverture en ajoutant un ID de contexte a la 
definition. 



Figure 20.5 

La definition surgira 
grace a I 'appel par 
soulignement simple. 
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Le fichier d'aide de la legem d'aujourd'hui utilise, en general, le meme ID de 
contexte d'aide (en majuscules) que le titre du sujet auquel il est lie, mais ce 
n'est pas une obligation. 

La Figure 20.6, enfin, montre la premiere partie des sujets des sauts hypertexte restants 
de l'aide. La note de bas de page # connecte les sujets de saut hypertexte de la page 
d'ouverture aux pages suivantes. 
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Figure 20.6 

Les pages suivantes 
sont maintenant liees 
a la page d'ouverture 
de I'aide. 
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Toutes ces pages de sujets peuvent contenir des liens vers des pages supple- 
mentaires (et entre elles) et aussi des definitions surgissantes . 



Des que vous avez acheve le fichier d'aide RTF, enregistrez-le. Selectionnez bien le 
format Texte mis en forme (RTF) lors de l'enregistrement. Vous devez maintenant creer 
le fichier de projet d'aide en utilisant encore un autre type de fichier — Texte ASCII. 
Word peut enregistrer dans ce format ; vous pouvez meme utiliser le Bloc-notes MDI 
pour creer ce fichier. Le fichier de projet suivant a ete utilise pour le fichier d'aide 
decrit : 

[OPTIONS] 

content s=HID_C0NTENTS 
title=Aide du bloc-notes MDI 

[FILES] 
MDINote.rtf 

La section [OPTIONS] decrit 1TD de contexte de la page d'ouverture de I'aide et le texte 
de la barre de titre. La section [ FILES] designe le fichier d'aide a compiler (vous devrez 
indiquer un chemin si le fichier se situe dans un repertoire particulier). Entrez le nom du 
fichier d'aide RTF que vous venez de creer et d' enregistrer. Vous pouvez parametrer 
d'autres options du projet d'aide a partir du compilateur d'aide. 

Enregistrez le fichier de projet sous un nom de fichier quelconque (le nom du fichier de 
l'application est sans doute le meilleur choix). Utilisez l'extension .HPJ. 
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Vous devez executer le compilateur d'aide a partir du CD-ROM d'installation de Visual 
Basic, car il n'est pas installe avec Visual Basic. Pour executer le systeme d'aide, vous 
devez effectuer les operations suivantes : 

1 . Inserez le CD-ROM d'installation de Visual Basic dans le lecteur. 

2. Selectionnez l'option Executer du menu Demarrage. 

3. Executez le programme HCW.EXE situe dans le dossier \Common\Tools. La 
Figure 20.7 montre la fenetre qui s'affiche, avec une astuce utile. 




Apres avoir lance le programme Microsoft Help Workshop, chargez le fichier de 
projet d'aide a compiler. Cliquez sur Compile dans la barre d'outils et acceptez toutes 
les valeurs par defaut, pour demarrer la compilation. Lisez les avertissements ou les 
erreurs qui peuvent etre affiches a la fm de la compilation. Des avertissements qui 
n'ont pas d'incidence sur le fonctionnement du systeme d'aide se produisent souvent, 
mais il faut tenter de les eliminer completement pour fiabiliser votre fichier d'aide 
dans toutes les situations. Si des erreurs sont presentes, le compilateur ne pourra pas 
compiler le fichier. 

Une fois le systeme d'aide compile, vous pouvez 1' executer pour tester les entrees d'aide. 
Vous apprendrez comment le connecter a 1' application dans la section suivante, mais 
vous pouvez deja suivre ces etapes pour tester le fichier d'aide : 

1. Demarrez l'explorateur Windows. 
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2. Recherchez le dossier contenant le fichier d'aide. 

3. Cliquez du bouton droit sur le fichier d'aide et selectionnez Ouvrir. Le systeme d'aide 
en ligne de Windows demarre et vous pouvez verifier votre fichier. 

La premiere fenetre (a laquelle vous pourrez revenir a tout moment en cliquant sur 
Sommaire) afhche la page d'ouverture de I'aide. La page Index presente une liste 
complete de toutes les notes de bas de page K qui referencent les sujets d'aide. 

Afficher le fichier d'aide 

Une fois le fichier d'aide genere, vous devez y connecter 1' application. Les ID de 
contexte d'aide associent les divers sujets aux controles et aux parties de 1' application. 
N'oubliez pas non plus d'ajouter une option de menu Aide arm que l'utilisateur puisse 
appeler I'aide a tout moment. 

Le nombre de connexions d'aide varie beaucoup d'une application a l'autre. Vous 
pouvez utiliser la profondeur du fichier d'aide et la complexity de 1' application pour 
prevoir la quantite d'aide necessaire aux utilisateurs. Le reste de cette section explique 
quelques methodes de connexion du fichier d'aide aux applications. Visual Basic 
supporte de nombreuses connexions aux fichiers d'aide, mais cette section en decrit les 
plus courantes. 

BoTte de dialogue Proprietes du projet 

La boite de dialogue Proprietes du projet, (voir la Figure 20.8) est le lien principal entre 
votre projet et le fichier d'aide. Elle garantit que le fichier d'aide est connecte lorsque 
l'utilisateur appuie sur la touche Fl . 

Vous n'avez pas a vous preoccuper de modifier la zone de texte ID de 
contexte d'aide au projet. Un ID de contexte d'aide saisi ici determine la 
page d'aide qui s'ajfiche quand vous cliquez sur Aide dans la barre d'outils 
de cette application a partir de Vexplorateur d'objets. 

Controle BoTtes de dialogue communes 

Vous avez pris soin de la partie la plus simple de la connexion au systeme d'aide en 
connectant la touche Fl a la fenetre d'ouverture de I'aide. La fenetre d'aide contiendra 
votre fichier d'aide, car les proprietes de votre projet pointent sur ce fichier. Pour ajouter 
une aide contexfuelle pour que, lorsque l'utilisateur appuie sur Fl , il obtienne de I'aide sur 
le controle ou la selection de l'option de menu active, vous devez effectuer quelques 
etapes de plus. 
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Figure 20.8 

Connectez le fichier 
d'aide a votre projet. 
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Selectionnez un nom de fichier 



Vous avez deja vu, au Chapitre 9, comment utiliser le controle Boites de dialogue 
communes pour afficher differentes boites de dialogues comme Fichier Ouvrir ou 
Imprimer. Maintenant que vous avez cree un fichier d'aide, vous pouvez aussi utiliser ce 
controle pour afficher les ecrans d'aide interactifs. 

Lorsque vous placez le controle Boites de dialogue communes sur une feuille, parame- 
trez la propriete HelpFile, puis la methode ShowHelp. Visual Basic lance le moteur 
d'aide de Windows qui interprete le fichier et propose les pages habituelles Sommaire, 
Index et Rechercher. 



Vous pouvez limiter la capacite du moteur d'aide a ne montrer que Vonglet 
Sommaire, Index ou Rechercher en modifiant la propriete HelpContext 
(voyez I' aide en ligne pour en connaitre les valeurs). Mais V usage veut 
qu'on propose, en general, les trois. 

Si vous proposez une aide contextuelle, vous devez indiquer au moteur d'aide quelle 
page doit s'afficher quand l'utilisateur selectionne l'aide. Vous devez, pour cela, modi- 
fier le fichier de projet de l'aide et faire correspondre aux ID de contexte textuels des ID 
de contexte numeriques. 

Si l'utilisateur selectionne l'aide contextuelle sur un controle oii elle n'est 
pas correctement parametree, Visual Basic affiche la page Sommaire du 
fichier d'aide (la page d'ouverture). 
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Vous devez modifier a nouveau le fichier de projet et faire correspondre des nombres 
aux ID de contexte textuels. Pour cela, ajoutez une section [MAP] au fichier de projet. Si 
on considere le fichier d'aide MDINote.rtf et le fichier de projet associe decrit plus tot, 
voici une modification possible : 

[OPTIONS] 

content s=HID_C0NTENTS 
title=Aide du bloc-notes MDI 

[FILES] 
MDINote.rtf 

[MAP] 

HID_C0NTENTS 1 
MDI_DEF 2 
CREATE_FILES 3 
EDIT_TEXT 4 
SEARCH_TEXT 5 
CHANGE_0PTI0NS 6 
MANAGE_WINDOWS 7 

Assurez-vous qu'il n'y a pas deux numeros d'lD de contexte identiques. La correspon- 
dance peut partir de 1, mais de nombreux programmeurs Visual Basic reservent des 
series de nombres pour representer differents types de sujets d'aide. Par exemple, tous les 
boutons de commande pourront avoir des numeros compris entre 1 000 et 1 050. Les 
numeros n'ont pas a etre en sequence. Recompilez le projet pour incorporer la nouvelle 
carte des informations dans le fichier d'aide. 



Si vous manipulez Help Workshop, et que vous lisiez les ecrans d'aide pour 
vous familiariser avec son fonctionnement , vous apprendrez comment la 
fonction Map rend la mise en correspondance des ID de contexte uniques 
plus rapide que leur modification par un editeur de texte. 

Vous devez localiser tous les controles et les feuilles auxquels vous voulez ajouter une 
aide contextuelle. Par exemple, dans le Bloc-notes MDI, vous pouvez afficher la feuille 
f rmFind (qui supporte les options de recherche) et modifier la propriete HelpContextlD 
du bouton de commande Find a 5. Si vous vous limitez a cette manipulation, les utilisa- 
teurs verront l'ecran d'ouverture de I'aide quand ils appuieront sur Fl dans l'application, 
mais si le bouton Find est active, ils verront alors la page Rechercher. Bien sflr, vous 
devrez ajouter des affichages d'aide contextuelle a tous les autres controles et meme a 
certaines feuilles, au benefice de l'utilisateur. 
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i — | En ajoutant Vaide contextuelle aux contrdles, vous risquez, de trouver 
\v>o d'autres zones de V application qui demandent une aide. Vous aurez done a 

' faire plusieurs fois des ajouts au fichier RTF avant qu'il ne fournisse un 

support suffisant a V application. 

' ) Lorsque vous ajoutez des pages d'aide, faites de votre mieux pour reperer 

tous les endroits de votre application oil V utilisateur risque d'en avoir 
besoin. Une aide contextuelle, chaque fois qu'elle est proposee, epargne a 
1' utilisateur une recherche dans V index ou le sommaire. 



Le Listing 20.1 montre le code d'affichage du sujet d'aide fourni par un ID de contexte 
particulier. Vous pouvez incorporer ce type de code dans un bouton de commande ou 
une option de menu pour proposer des sujets d'aide particuliers de votre fichier d'aide. 



Listing 20.1 : Vous pouvez afficher une aide contextuelle 

cdbHelp.HelpFile = "MDINote.hlp" ' Pointe sur le fichier d'aide 

' Vous pouvez proposer une aide specifique sur un sujet 
' particulier en pointant sur le numero de la section 
' [MAP] du fichier .HPJ (vos ID de contexte textuelles) 
cdbHelp.HelpContext = 3 ' Pointe sur la section 
cdbHelp.HelpCommand = cdlHelpContext 1 Demande contextuelle 
cdbHelp.ShowHelp ' Affiche l'aide contextuelle 



Ajout d'aide "QiTest-ce que e'est ?" 

Maintenant que vous comprenez mieux comment creer un fichier d'aide, vous pouvez 
creer une aide "Qu'est-ce que e'est ?". Vous devez ajouter une page d'aide pour chaque 
fonction "Qu'est-ce que e'est ?" que vous voulez supporter. Une fois les pages ajoutees 
et connectees aux autres pages d'aide du systeme a l'aide des notes de bas de page 
personnalisees decrites plus avant dans cette lecon, vous devez faire correspondre des 
ID de contexte numeriques aux pages. Le moteur de l'aide "Qu'est-ce que e'est ?" 
utilise les numeros d'lD de contexte pour determiner la bonne fenetre d'aide a afficher. 

Le secret de l'aide "Qu'est-ce que e'est ?" tient en deux parties : 

• Verifier que la feuille supporte l'aide "Qu'est-ce que e'est ?" en parametrant les 
proprietes WhatsThisButton et WhatsThisHelp a True. 

• Entrer l'ID de contexte de la page d'aide dans la propriete WhatsThisHelplD de 
l'objet. 
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L'aide "Qu'est-ce que c'est ?" de l'application Bloc-notes MDI (si vous avez suivi les 
sections precedentes et cree un fichier d'aide avec des pages utilisables) ne demande 
que l'execution de ces etapes : 

1. Ouvrez la fenetre de projet et double-cliquez sur la feuille f rmFind pour afficher la 
boite de dialogue Find. 

2. Assignez la valeur True aux proprietes WhatsThisButton et WhatsThisHelp. Si vous 
affichez ensuite cette feuille en executant l'application, vous verrez le bouton 
"Qu'est-ce que c'est ?"en forme de point d' interrogation sur la feuille. 

3. Repetez cette assignation pour les deux autres feuilles de l'application. 

4. Recherchez dans la section [MAP] du fichier de projet d'aide les numeros d'lD de 
contexte et assignez-les aux diverses options du menu (utilisez le Createur de menus) 
et aux objets feuilles qui peuvent necessiter une description. Meme si le fichier d'aide 
est loin d'etre acheve, plusieurs des pages d'aide fonctionnent bien avec les objets, en 
particulier les elements de la barre de menus. 



En resume 

Ce chapitre vous a explique comment incorporer l'aide a vos applications. Plusieurs 
formes d'aides sont disponibles sous Visual Basic. En utilisant l'aide HTML ou le 
moteur d'aide WinHelp de Windows, vous pouvez creer un systeme complet de sauts 
hypertexte avec des pages interconnected et des definitions surgissantes. Les utili- 
sateurs peuvent obtenir des pages d'aide contextuelles particulieres en appuyant sur Fl . 
Le controle Boites de dialogues communes vous assiste dans la fourniture de l'aide, et 
permet aux utilisateurs de recevoir de l'aide en appuyant sur un bouton. 

L'ajout d'aide contextuelle permet aux utilisateurs de trouver l'aide dont ils ont besoin. 
Vous pouvez assigner une aide contextuelle a differents objets pour qu'un texte parti- 
culier s'affiche quand l'objet est selectionne et que l'utilisateur appuie sur la touche Fl. 
La caracteristique d'aide contextuelle evite aux utilisateurs d'avoir a rechercher dans 
l'index chaque fois qu'ils ont besoin d'aide. 

Deux fonctions d'aide simples qui peuvent etre ajoutees rapidement sont les info-bulles 
et l'aide "Qu'est-ce que c'est ?". Les info-bulles sont tres simples et ne demandent que 
l'ajout du texte a afficher dans la fenetre Proprietes. Avant de pouvoir assigner une aide 
"Qu'est-ce que c'est ?", vous devez creer un fichier d'aide complet et assigner les divers 
ID de contexte numeriques aux objets. 

Le chapitre suivant conclut votre formation de 21 jours en vous montrant comment tester, 
deboguer et distribuer votre application. 
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Questions-reponses 

Q Pourquoi ne puis-je pas creer les fichiers d'aide une fois que mon application 
est achevee ? 

R Vous devez pouvoir le faire. C'est ce que vous avez fait aujourd'hui avec l'applica- 
tion Bloc-notes MDI. Cependant, vous saisissez mieux les tenants et les aboutissants 
de votre application au moment ou vous la creez. Vous proposerez done une 
meilleure aide si vous creez les info-bulles, les aides "Qu'est-ce que c'est ?" et les 
fichiers d'aide pendant la realisation de votre projet. Vous pouvez laisser le traitement 
de texte ouvert dans une seconde fenetre et y basculer (en utilisant la combinaison de 
touches Alt-Tab) lorsque vous voulez ajouter des elements. 

Q Pourquoi l'ajout d'aide dans les fichiers est-il si lourd ? 

R La lourdeur vient du fait que vous devez garantir la connexion de tous les liens 
hypertexte au bon sujet, que tous les sujets qui doivent etre traites le sont bien, et que 
vous utilisez un format correct dans le fichier d'aide RTF. Bien sflr, le compilateur 
d'aide reperera les fichiers d'aide mal formates, et vous pourrez les deboguer. En 
fait, au cours de l'elaboration et du test de 1' application, vous pouvez compiler aussi 
le fichier d'aide pour qu'il reste en phase. La creation incrementielle d'un fichier 
d'aide rend le processus general un peu moins lourd. 

II existe de nombreux outils de creation d'aide, et vous pouvez les utiliser pour 
ajouter de l'aide aux programmes Visual Basic en evitant la lourdeur de la creation 
des fichiers RTF ou HTML. N'utilisez l'aide HTML que si vous etes certain que vos 
utilisateurs disposent d'un navigateur Internet compatible pour l'afficher. 

L'utilisation de ces programmes visuels de conception d'aide rendra beaucoup plus 
souple la creation de vos fichiers d'aide. En outre, vous eviterez nombre des erreurs 
de saisie commises naturellement avec l'approche RTF. Ces programmes vous 
permettent aussi de creer des diagrammes d'aide qui montrent comment se connec- 
tent les sauts hypertexte et reduisent done la quantite de programmation RTF que 
vous devez effectuer pour creer le fichier d'aide. 

Q Pourquoi ne pas utiliser ces outils et sauter ce chapitre ? 

R Visual Basic supporte l'aide en ligne decrite dans cette lecon, mais aussi beaucoup 
d'autres — comme l'aide HTML. Vous pouvez utiliser des outils d'autres fournisseurs 
pour faciliter la creation de l'aide et, si vous developpez de nombreuses applications, 
vous les etudierez sfirement de plus pres. Cependant, vous avez commence avec 
Visual Basic et il contient tous les outils necessaires, a part l'editeur RTF, pour creer 
le support d'aide decrit aujourd'hui. De plus, tous les utilisateurs ne disposent pas 
de navigateur Web pour afficher l'aide HTML ; elle n'est done pas destinee aux 
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applications universelles, sauf a exiger l'installation du navigateur pour que votre appli- 
cation fonctionne. En creant des fichiers d'aide par la methode "a l'ancienne" 
etudiee aujourd'hui, vous en avez appris beaucoup sur le mode de fonctionnement 
du systeme d'aide et vous pouvez apprecier la complexity d'un systeme hypertexte. 
Une bonne partie de la lourdeur ne vient cependant pas de cette approche par fichier 
RTF, mais de la conception meme du systeme d'aide. Plus il sera complet et 
complexe, mieux les utilisateurs apprecieront votre application. Mais des systemes 
d'aide aussi complexes ne sont pas evidents a creer, c'est pourquoi il est utile de 
creer I'aide en meme temps que l'application pour vous assurer que vous lui donnez 
I'aide qu'elle merite. 



Atelier 

L' atelier propose une serie de questions qui vous aident a renforcer votre compre- 
hension des elements traites, ainsi que des exercices qui vous permettent de mettre en 
pratique ce que vous avez appris. Essayez de comprendre les questions et les exercices 
avant de passer a la lecon suivante. Les reponses se situent a l'Annexe A. 

Quiz 

1 . Quel format de fichier devez-vous utiliser pour creer le fichier d'aide en ligne ? 

2. Comment les sauts hypertexte peuvent-ils ameliorer un systeme d'aide ? 

3 . Quel est le symbole personnalise de note de bas de page utilise pour creer des defini- 
tions surgissantes liees au texte souligne de la page d'aide ? 

4. Citez quelques caracteristiques du fichier de projet d'aide. 

5. Une fois un fichier d'aide compile, comment pouvez- vous l'attacher a une applica- 
tion pour qu'il s'affiche quand l'utilisateur appuie sur Fl ? 

6. Comment connectez-vous I'aide contextuelle aux sujets du fichier d'aide ? 

7. L'aide contextuelle utilise les ID de con texte textuelles du fichier d'aide. Vrai ou 
faux ? 
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8. Quelle est la difference entre l'aide "Qu'est-ce que c'est ?" et les info-bulles ? 

9. Comment ajouter le bouton "Qu'est-ce que c'est ?" aux feuilles ? 

10. Vous pouvez proposer l'aide "Qu'est-ce que c'est ?" sur les feuilles comme sur les 
objets de feuilles (indice : verifiez les proprietes de la feuille). Vrai ou faux ? 



Exercice 

Ajoutez une aide "Qu'est-ce que c'est ?" a tous les objets du Bloc -notes MDI. Cette 
tache peut sembler lourde (elle Test un peu), mais vous arriverez vite a maitriser le 
travail sur les aides "Qu'est-ce que c'est ?", les ID de contexte et les pages d'aide. 
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Distribution 

de vos applications 

La lecon d'aujourd'hui montre comment tester, deboguer et distribuer vos applications 
Visual Basic. Une application n'est jamais achevee ; vous pouvez toujours y ajouter 
d'autres caracteristiques et, tres souvent, des erreurs apparaissent bien apres que vous 
pensez les avoir toutes extirpees. La maintenance sur le long terme fait done partie inte- 
grante du processus de programmation. Tout au long des lecons precedentes, ce didacti- 
ciel a propose des astuces pour vous aider a mieux documenter votre code et a reduire 
les problemes de maintenance. 

Une des meilleures manieres de le faire est de deboguer et de tester minutieusement vos 
applications avant de les distribuer. Cette lecon decrit quelques outils de debogage four- 
nis par Visual Basic, comme des procedures de test qu'il peut etre utile de faire subir a 
vos applications avant de les distribuer. 

Nous voici a la fin de ce cycle de 21 jours. Une fois cette lecon terminee, considerez- 
vous comme laureat de l'Universite Visual Basic 6 avec un diplome en Techniques de 
programmation et, plus important, prenez rang comme conseiller Visual Basic. Vous 
devrez alors pratiquer le developpement autant que vous le pouvez pour affuter les 
competences acquises au cours de ces lecons. 
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Vous apprendrez aujourd'hui : 

• les types de bogues qu'un programme peut generer ; 

• comment localiser les bogues en redigeant le code, ; 

• les nombreuses fenetres de debogage, ; 

• comment utiliser le mode pas a pas du debogueur pour localiser des parties specifi- 
ques du programme durant l'execution ; 

• les divers points d' arret ; 

comment creer une routine d' installation de votre application ; 
comment utiliser 1' assistant Empaquetage et deploiement, ; 
1' importance de 1' installation de 1' application. 

Debogage et tests 

Toutes les applications ont besoin d'etre testees. Trop de bogues peuvent s'introduire 
durant les etapes de programmation. Lorsque vous testez une application, vous lui faites 
passer une batterie de cas. Pendant les tests, entrez des valeurs extremes et aleatoires 
dans tous les controles de saisie utilisateur pour vous assurer que Implication peut 
gerer des valeurs en dehors de la plage classique. Vous trouverez presque toujours des 
bogues durant la phase de test. 

Le debogage se deroule en trois etapes : 

1 . Determiner les bogues a problemes et leur emplacement. 

2. Corriger les bogues. 

3. Tester a nouveau l'application pour s'assurer que les bogues sont eliminees. 

Les bogues vont du leger, comme une erreur d'orthographe ou d'alignement de texte, au 
grave, par exemple, une application qui termine la session Windows et cause une perte 
des donnees. Pour l'utilisateur, une bogue est tout ce qui ne correspond pas aux resultats 
attendus ou qui empeche l'application de s'executer. 

Les programmeurs ont a faire face a de nombreux problemes dans leur recherche des 
bogues. II vous appartient de decider du moment ou vous pensez avoir trouve toutes les 
bogues qu'il vous etait possible de detecter. Vous devez tester et tester encore pour 
garantir que les bogues ont ete eliminees et ne se produisent plus. Une planification 
attentive avant, pendant et apres le processus de codage aide a reduire le temps passe a 
deboguer les applications. 
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II est preferable de developper et de tester vos applications dans I ' environne- 
ment de developpement de Visual Basic, qui contient des outils de debogage 
aidant a pister et a reperer les erreurs. Ce n'est qu'une fois satisfait du 
resultat des tests que vous pouvez compiler et distribuer vos applications aux 
utilisateurs . 



Windows et le puissant environnement de developpement de Visual Basic vous aident a 
localiser les erreurs. Quand vous executez une application, Visual Basic peut trouver 
une erreur durant la compilation ou la preparation a 1' execution d'un programme 
(comme un mot mal orthographie) et afficher un message d'erreur, comme celui que 
montre la Figure 21.1. 



Figure 21.1 

Visual Basic aide 
a reperer les bogues. 
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Private Sub cmdButtons_Click () 

' invoke a Click event in the menu 
mnuButtons_Click 
End Sub 



Private Sub cmdCheck_Click () 

' invoke a Click event in the menu 
mnuCheck_Click 
End Sub 
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(Name) 

Renvoie le nom utilise dans le 
code pour identifier un objet. 



Cette instruction est incorrecte 



Si, lors de l'execution d'une application, vous voyez un message de ce type avant que la 
premiere feuille s'affiche a l'ecran, vous avez peut-etre fait une erreur de syntaxe dans 
votre code. Le message d'erreur indique rarement Erreur de syntaxe, mais si elle s'est 
produite a la suite d'une erreur d'orthographe ou de grammaire, c'est bien le cas. 

Une erreur de syntaxe est une erreur d'orthographe ou de grammaire dans 
un langage de programmation. 
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Remarquez que Visual Basic ne s'est pas contente, a la Figure 21 .1 , de signaler l'erreur, 
mais qu'il en a aussi indique l'emplacement dans la fenetre de code. Meme si cette 
derniere est fermee lors de l'execution du programme, Visual Basic met l'erreur en 
surbrillance. Le probleme ici est une instruction End incorrecte. Apres avoir corrige 
l'erreur de syntaxe, vous pouvez cliquer sur Executer dans la barre d'outils pour reprendre 
l'execution a partir de l'erreur corrigee. 

Si la case Verification automatique de la syntaxe est cochee dans l'onglet Editeur de la 
boite de dialogue Options (selectionnee par Outils, Options), Visual Basic verifie les 
erreurs de syntaxe pendant que vous saisissez les instructions dans la fenetre de code. 
Certains programmeurs preferent cependant avoir plus de liberte au moment de la 
conception pour pouvoir eparpiller ici et la des instructions partielles qu'ils completent 
plus tard. Mais ce code incomplet peut conduire a des erreurs si vous n'etes pas attentif : 
vous pouvez oublier de corriger une instruction. II y a pourtant des moments ou il est 
souhaitable de completer plus tard les trous, par exemple s'il faut d'abord verifier avec 
l'utilisateur une reponse a une question de conception. 

Si vous desactivez la verification automatique de la syntaxe, Visual Basic ne verifie plus 
les erreurs de programmation, telle qu'une parenthese manquante, tant que vous 
n'executez pas le programme. De toutes facons, Visual Basic localise ce type d'erreur 
par un message (voir Figure 21.1), mais l'option Verification automatique de la syntaxe 
vous laisse le choix du moment ou vous voulez etre prevenu. 

Des erreurs plus complexes apparaissent lors de l'execution de l'application. Une erreur 
de syntaxe est facile a detecter, Visual Basic le faisant pour vous. Une erreur d' execu- 
tion est plus difficile a reperer et a corriger. Voyez l'erreur de la Figure 21 .2, qui met en 
cause la logique du programme. II n'y a pas de message d'erreur, mais dans le champ oil 
le nom doit s'afficher, on trouve une adresse. Al'evidence, un champ d'adresse a ete 
charge a la place d'un champ nom. Visual Basic ne sait pas que c'est anormal, car il 
se contente de suivre les ordres du programmeur, meme s'il en resulte des erreurs de 
logique. 

Une erreur de logique reperee demande l'arret du programme. Visual Basic ne sait pas 
la reconnaitre et interrompre l'execution comme il le fait avec les erreurs de syntaxe) 
Vous devez ensuite localiser le probleme. 

Pour cela, vous devez rechercher dans le code de votre programme l'endroit ou cette 
erreur de logique peut se situer, puis la corriger. Si le probleme concerne l'apparence 
d'une feuille ou d'un controle a l'ecran, vous devez rechercher toutes les references a 
cet objet. L'Explorateur d'objets peut souvent vous aider a trouver le code particulier 
attache a un objet. 
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Figure 21.2 

Visual Basic ne pent 
pas reperer des 
erreurs de logique. 
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Visual Basic peut detecter certaines erreurs de logique si elles resultent d'une impossi- 
bilite. Par exemple, la Figure 21.3 montre ce qui se passe si un programme demande a 
Visual Basic de diviser un nombre par zero. Cette operation n'etant pas mathematique- 
ment finie, Visual Basic est incapable de faire ce calcul, meme s'il n'y a pas d'erreur de 
syntaxe. II interrompt alors 1' execution et affiche une description de 1' erreur dans une 
boite de message. 



Figure 21.3 

Certaines erreurs 
de logique demandent 
a Visual Basic 
d'effectuer quelque 
chose d 'impossible . 



Microsoft Visual Basic 



Erreur d'execution '11' 




Des que Visual Basic realise que le programme demande une tache impossible, il affiche 
la fenetre de code et signale l'endroit approximatif ou la division par zero s'est produite. 
Vous pouvez cliquer sur Aide dans la boite de dialogue pour avoir une aide supplemen- 
taire concernant le message. Cliquez sur Fin pour terminer l'execution ou sur Debogage 
pour entrer dans le mode debogage de Visual Basic. 
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( — i Remarquez que la division par zero genere le code d'erreur 11 (voyez le 
message d'erreur de la Figure 21 .3). Vous pouvez tester les erreurs dans 

' I'objet sy steme Err . Number. Si vous soupconnez qu'un calcul peut entrainer 

une division par zero, du fait d'une donnee manquante, vous pouvez 
derouter cette erreur par une instruction On Error Goto. Si Err. Number est 
all, vous pouvez informer V utilisateur qu'il manque une donnee dans la 
feuille au lieu de le laisser dubitatif devant un message d'erreur. 



Le debogueur 

L'environnement de developpement de Visual Basic comprend un outil de debogage qui 
permet d'effectuer les taches suivantes. 

Analyser le contenu des variables lors de l'execution. 

• Interrompre le programme sur n'importe quelle instruction et repartir quand vous 
etes pret. 

• Positionner des points d' arrets dans le code pour interrompre automatiquement 
l'execution du programme. 

• Modifier le contenu des variables en cours d'execution pour tester 1' application. 

• Ajouter une variable espion qui interrompt l'execution du programme quand elle 
recoit une valeur ou une plage de valeurs particuliere. 

• Sauter des instructions que vous ne voulez pas executer durant un test. 

• Utiliser la fenetre des sorties de I'objet Debug pour imprimer des valeurs durant 
l'execution d'un programme. La fenetre de debogage permet de capturer des sorties, 
comme des valeurs de variables, sans deranger la fenetre feuille normale. 

Vous pouvez entrer dans le mode debogage et avoir acces a toutes les fonctions du 
debogueur (situees surtout dans le menu Debogage) quand vous : 

- appuyez sur Ctrl-Break pour interrompre l'execution du programme ; 

- recevez une boite de message d'erreur a l'execution ; 

- atteignez a l'execution un point d' arret positionne ; 

- cliquez sur une instruction du programme, puis a partir du menu Debogage, choi- 
sissez Executer jusqu'au curseur pour executer normalement le programme. 
Visual Basic 1' interrompt et entre en mode debogage des que l'execution atteint le 
curseur. 
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Positionner des points d'arret 

Un des points d'arret les plus simples est l'execution jusqu'au curseur. Pour le tester, 
chargez 1' application Controls situee dans le dossier des exemples. La feuille de test des 
boutons, f rmButton, modifie un feu tricolore quand l'utilisateur clique sur le bouton de 
commande. Si vous suspectez le code de ne pas changer correctement le signal, vous 
pouvez cliquer sur la premiere instruction executable de la fonction ChangeSignal ( ) dans le 
module standard et selectionner Executer jusqu'au curseur dans le menu Debogage. (Ne 
selectionnez pas un commentaire, car on ne peut pas y positionner de point d'arret.) Le 
programme demarre normalement, il s'arrete au point d'arret et met la ligne en surbrillance. 

Ce n'est pas une interruption definitive. Jusqu'a ce point, toutes les variables du 
programme ont ete initialisees, le code s'est execute et les resultats sont disponibles. Si 
une sortie se produit avant que la position du curseur soit atteinte (ce qui est le cas ici 
avec l'affichage de la feuille), vous en voyez normalement le resultat. Le programme, 
comme l'indique la barre de titre de Visual Basic, est en etat d'arret. La ligne surlignee 
en jaune est la ligne ou se situait le curseur quand vous avez choisi Executer jusqu'au 
curseur dans le menu Debogage. 

Le Listing 21.1 montre la procedure oil cet exemple particulier s'est arrete. 



Listing 21.1 : Vous pouvez analyser les procedures individuelles a un point d'arret 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



Private Sub ChangeSignalf ) 

' Check to see what color the light is, and then change 
1 it to the next color. The order is green, yellow, 
' and then red. 

If imgGreen. Visible = True Then 

imgGreen .Visible = False 

imgYellow. Visible = True 
Elself imgYellow. Visible = True Then 

imgYellow. Visible = False 
imgRed. Visible = True 

Else 

imgRed. Visible = False 
imgGreen. Visible = True 
End If 
End Sub 



Le feu ne fonctionne peut-etre pas, car plus d'une couleur est affichee en meme temps. 
Vous pouvez consulter les valeurs en cours des proprietes Visible des trois signaux 
possibles (imgGreen, imgYellow et imgRed) pour vous assurer qu'un seul est a True lorsque 
la procedure demarre. 
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Voir le contenu d'un controle (ou meme d'une variable) n'a jamais ete aussi simple. 
Comme le montre la Figure 21.4, tout ce que vous avez a faire est de positionner le 
pointeur de la souris dessus. 



Figure 21.4 

Visual Basic affiche 
toutes les valeurs 
de controles et de 
variables quand le 
programme s 'arrete 
avec le debogueur. 
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jPcivate Sub ChangeSignalO 

' Check to see what color the light is, and then c 
' it to the next color. The order is green, yello 
' and then red. 

If imgGreen. Visible = True Then 

imgGreen. Visible = False 

i mg Yellow .Visible = True 
zIIlv: le = Tllk- Then 

imgYelloiy .Visible = False 

imgRed.V: sible = True 



Else 



imgRed.V: sible = False 



imgGreen 
End If 
End Sub 



J I 



I ^ Controls (Controls.vb 
5 frmButton (button.frr 

ft frmCheck (check.fri 
ft frmlmages (images. f 
ft frmMain (tnain.frm) 
ft frmOptions (opticns 
ft frmTewt (text.frm) 
ft frmWordWrap (word 



imgYellow. Visible est Faux 



En verifiant les trois valeurs et ne trouvant qu'une seule True, vous determinez que le 
probleme ne reside pas dans la procedure ChangeSignal ( ) . Vous devrez rechercher plus 
avant dans le code pour voir oil les signaux ont ete melanges (c'est une supposition pour 
notre exemple). En arretant l'execution a differents endroits et en analysant les variables 
et les controles, vous pouvez determiner si les valeurs sont ce qu'elles devraient etre. 

Retracer vos pas 

Avant d'aller plus loin, affichez la barre d'outils Debogage : dans le menu Affichage, 
choisissez Barres d'outils, puis Debogage. (Vous pouvez la laisser Hotter ou la placer 
dans la bande des barres d'outils.) Lorsque vous avez besoin de savoir comment le 
programme est parvenu au point d' arret, vous pouvez utiliser une des fonctions de 
debogage les plus utiles : la Pile des appels. Cliquez sur le bouton correspondant de la 
barre d'outils. La boite de dialogue Pile des appels s'affiche et montre le cheminement 
de votre programme, procedure par procedure, jusqu'a sa position actuelle (voir 
Figure 21.5). 
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Figure 21.5 

Utilisez la botte 
de dialogue Pile 
des appels pour suivre 
les procedures 
du programme qui 
sont executees. 
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Barre d'outils Debogage 



Si vous voyez une entree de pile libellee [<Code Non-Basic>], I 'execution 
s'est produite d partir d'une autre source, comme cela se passe quand le 
code fait des appels a I'API Windows. 



&0 



■0fr 



L'API Windows (Application Programming Interface) est un ensemble de 
procedures internes a Windows que vous pouvez appeler depuis des langa- 
ges comme Visual Basic ou Visual C+ + quand vous avez besoin d'emprunter 
une routine ou de declencher une fonction a partir de Windows. Le 
debogueur de Visual Basic n'a pas la capacite ni V autorisation (de par les 
protections systeme de Windows) de suivre la trace des procedures du 
sy steme d' exploitation. 



Pour afficher une des procedures de la boite de dialogue Pile des appels, double-cliquez 
sur l'entree correspondante. Vous ne voyez pas alors uniquement des instructions, mais 
aussi des valeurs actives, car 1' application est toujours en etat d' arret. Vous pouvez done 
lire les valeurs de tous les controles, les variables, et les constantes nominees dans les 
diverses procedures. 
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Avancer pas a pas dans le code 



A tout point d'arret, vous pouvez cliquer sur Pas a pas detaille pour executer l'instruction 
suivante du programme (meme si c'est un appel a une autre procedure). 

La barre d'outils Debogage contient trois boutons de pas a pas. Le Tableau 21.1 decrit 
comment les utiliser. Vous pouvez ne pas souhaiter avancer pas a pas sur toutes les 
instructions d'une application : ces trois boutons vous donnent une certaine liberte pour 
definir comment vous voulez que votre programme continue. 

Tableau 21.1 : Les modes pas a pas determinent comment votre application 
doit continuer 



Mode pas a pas Description 

Pas a pas detaille Execute l'instruction suivante. Meme si elle se situe dans une autre 

procedure (ou qu'elle renvoie vers une procedure precedente), elle est 
executee et le curseur s'y place. Vous pouvez done parcourir toute 
1' application instruction par instruction en appuyant continuellement sur 
F8. 

Pas a pas principal Execute l'instruction suivante a moins que ce ne soit un appel a une autre 
procedure. Dans ce cas, la nouvelle procedure s'execute entierement, et 
1' execution s'arrete a l'instruction qui suit 1' appel de procedure. 

Pas a pas sortant Termine l'execution de la procedure en cours, puis l'execution s'arrete a 
la premiere instruction en dehors de la procedure. 



Vous pouvez, naturellement , a tout point d'arret, cliquer sur Continuer pour 
que l'execution se poursuive de maniere normale. Si des points d' arrets sont 
positionnes plus loin, l'execution s'y arrete. Sinon, le programme se 
comporte normalement, comme s'il n'avait jamais ete interrompu. 

Vous pouvez arreter le mode Debogage a tout moment en cliquant sur Fin 
dans la barre d'outils de Visual Basic ou en selectionnant Fin dans le menu 
Execution. 



Points d'arret multiples 

Lors de l'execution de votre application, vous pouvez souhaiter positionner en chemin 
des points d'arret pour vous permettre d'etudier les variables et les controles en cours 
d' execution. Par exemple, si vous observez des problemes que vous voulez pouvoir 
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analyser a la prochaine execution, vous pouvez ajouter un point cf arret en cliquant sur 
Basculer le point d'arret dans la barre d'outils Debogage sur l'instruction surlignee. 
Vous pouvez positionner plusieurs points d'arret sur d'autres lignes partout dans le code 
en cliquant sur ce bouton. Quand vous atteignez un point d'arret (signale par un 
surlignement rouge) positionne dans une session precedente, mais dont vous n'avez plus 
besoin, cliquez a nouveau sur Basculer le point d'arret sur cette ligne pour le supprimer. 
Vous pouvez aussi cliquer sur la gauche d'une instruction pour ajouter ou supprimer un 
point d'arret. 



Vous ne pouvez positionner les points d'arrets que sur les lignes executables . 
II est impossible de positionner des points d'arrets sur les instructions de 
declaration de types de variables utilisateur ou de commentaires. 



Fenetre de debogage 



A tout point d'arret, vous pouvez afficher la fenetre de debogage pour travailler en 
dehors de l'environnement du programme. La fenetre de debogage est sou vent nommee 
fenetre Execution. Quand vous cliquez sur le bouton correspondant dans la barre 
d'outils Debogage, elle s'ouvre en bas de votre fenetre de code (dans sa position 
rangee), ou elle peut Hotter sur l'ecran. 



La fenetre Execution (nom de la fenetre de debogage) est une fenetre de 
l'environnement Visual Basic dans laquelle vous pouvez afficher des valeurs 
du programme et des messages durant V execution du programme. En 
envoyant des messages a la fenetre Execution, vous pouvez lire des messages 
d'avancement de V execution de V application en utilisant la methode 
Debug. Print. Ces messages n ' interfereront pas avec les sorties normales du 
programme . 



Vous pouvez taper toute instruction Visual Basic dans la fenetre Execution et voir le 
resultat immediatement. Une des methodes de debogage les plus courantes est Print, 
qui imprime les valeurs des variables et les proprietes de controles. Print envoie les 
sorties vers differents objets (pas uniquement vers une imprimante ou une feuille) , dont 
la fenetre Execution. La Figure 21 .6 montre la valeur d'un objet et illustre le fait que les 
valeurs avec lesquelles vous travaillez sont des valeurs actives, configurees par la partie 
de l'application executee jusqu'au point d'arret. Vous pouvez aussi imprimer le resultat 
d'une expression ou meme modifier la valeur d'une variable en cours d'execution. Dans ce 
cas, le reste du programme utilise cette nouvelle valeur a la place de la valeur assignee a 
l'origine par le code. Vous pouvez ainsi observer a chaud le resultat. 
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Figure 21.6 

Utilisation de la fene- 
tre Execution pour 
imprimer des valeurs 
et modifier les resul- 
tats. 
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ivate Sub ChangeSignal () 

' Check to see what color the light is, and then chi 
' it to the next color. The order is green, yellovl 
' and then red. 
|lf imgGreen. Visible = True Then 

imgGreen .Visible = False 

imgYellow. Visible = True 
Elself imgYellow. Visible = True Then 

imgYellow. Visible = False 

imgRed .Visible = True 

Else 

imgRed. Visible = False 
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controle valeur du controle 



Fenetre Execution 



f Si la nature interactive de V environnement de developpement de Visual 

Basic rend ce type de sortie moins importante qu'elle ne Vetait dans les 
environnements en mode caracteres, vos programmes peuvent ecrire direc- 
tement dans la fenetre Execution en utilisant la methode Print de Vobjet 
Debug. Si voire programme comprend une instruction comme Debug .Print 
cmdN6xt . Caption, la sortie est affichee dans la fenetre Execution, ou vous 
pouvez la lire sans avoir a interferer avec les sorties normales de V application 
dans la fenetre feuille . 



Fenetre Variables locales 

Si vous cliquez sur Fenetre Variables locales dans la barre d'outils Debogage, Visual Basic 
l'affiche (voir Figure 21 .7). Elle montre les valeurs en cours de toutes les variables locales 
de la procedure en execution (celle ou se situe le point d' arret actif), les variables et les 
constantes globales. L' aspect le plus utile de cette fenetre est sans doute son affichage de 
toutes les valeurs des controles de feuille. Vous pouvez agrandir ou retrecir 1' affichage pour 
voir tous les details qui vous interessent. 
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Figure 21.7 

Lafenetre Variables 
locales montre toutes 
les variables, locales 
et globules, de la 
procedure en cours. 
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Si vous modifiez une variable locale dans la fenetre Execution, la valeur 
change aussi dans lafenetre Variables locales. 



Outre le nom et la valeur, la fenetre Variables locales affiche le type de donnees de la 
variable ou du controle. Cliquez sur les points de suspension a droite du nom de la proce- 
dure en cours dans la fenetre Variables locales pour afficher la fenetre Pile des appels. 
Si vous cliquez sur une des procedures de la liste, la fenetre affiche alors les variables 
locales de cette procedure. 



Fenetre Espions 

Au cours du processus de debogage, vous pouvez constater qu'une bogue ne se produit 
que si une variable a une certaine valeur. Le probleme peut parfois ne pas pouvoir etre 
piste jusqu'a une instruction unique, vous devrez done espionner une variable ou une 
expression sur toute la procedure. C'est la raison d'etre de la fenetre Espions, dans 
laquelle vous pouvez entrer des valeurs de variables ou d'expressions. Vous pouvez 
configurer dans la fenetre des valeurs a espionner au moment de la conception ou de 
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l'execution en cliquant sur Fenetre Espions dans la barre d'outils Debogage. Utilisez 
l'une de ces deux mefhodes pour ajouter des valeurs a la fenetre Espions : 

• A partir du menu Debogage, choisissez Ajouter un espion pour afficher la boite de 
dialogue correspondante (voir la Figure 21 .8). 

• Cliquez avec le bouton droit sur la fenetre Espions (qui doit etre affichee en cliquant 
sur son bouton dans la barre d'outils Debogage), puis choisissez Ajouter un espion 
pour afficher la boite de dialogue. 



Figure 21.8 

Ajouter des valeurs 
a espionner dans 
la fenetre Ajouter 
un espion. 




Ajouter un espion 



Contexts 

Procedure: |opt486_Click 
Module 



[frmOpti 
Controls 



Type d 'espion 
f» Expression espionne 

C Arret si la valeur estvraie 

<~ Arret si la valeur change 



Quand vous ajoutez une expression a espionner, le contexte indique a Visual Basic la 
portee de l'espion (ou il doit le surveiller). Visual Basic peut espionner une procedure, 
une feuille, un module ou tout le projet. 

La zone Type d'espion vous permet de preciser la maniere dont vous voulez que Visual 
Basic reagisse a la valeur espionnee. II peut afficher les donnees de l'expression et 
arreter l'execution si une valeur est atteinte ou a chaque changement. Lors d'executions 
ulterieures, Visual Basic actualise la fenetre Espions en fonction des valeurs espionnees. 

Visual Basic comprend une fenetre Espion express, qui permet a" ajouter des 
valeurs d espionner a la volee sur un point d 'arret. Selectionnez. la variable, 
V expression ou la propriete de contrdle, puis cliquez sur Espion express dans 
la barre d'outils Debogage. Vous pouvez aussi ajouter V expression a la fenetre 
Espion classique en cliquant sur Ajouter. 

De nombreux programmeurs trouvent plus facile d'utiliser V Espion express 
sur un point d' arret que de tenter de collecter toutes les valeurs a espionner 
au moment de la conception avec la boite de dialogue Ajouter un espion. 
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Distribution de votre application 

Votre application est creee, testee et deboguee ; reste a l'empaqueter pour la distribuer. 
Si elle est destinee a un usage personnel, vous n'aurez sans doute qu'a la compiler, puis 
a en copier les fichiers dans le dossier oil l'exploiter. Vous pouvez utiliser la person- 
nalisation du menu Demarrage dans les Proprietes de la Barre des taches de Windows 
pour connecter 1' application dans votre structure de menu Demarrage. 

Pour que votre application soit utilisee par d'autres, vous devez automatiser l'instal- 
lation afin que tous les fichiers du projet se situent a la bonne place et que le programme 
soit installe dans le menu Demarrage. Cette section explique comment distribuer une 
application en utilisant l'une des applications exemple fournies avec Visual Basic 
comme guide. 

Compiler une application 

Visual Basic simplifie la compilation de votre application. Le fichier compile est un 
executable avec une extension .EXE. Tous les modules et feuilles apparentes sont groupes 
pour former le fichier executable. Meme si des fichiers auxiliaires peuvent toujours etre 
necessaires — par exemple, un fichier de base de donnees Microsoft Access utilise pour 
les donnees initiales — la plupart des fichiers de votre projet se combinent dans l'executable 
pour que la distribution en soit plus simple. 

La distribution d'une application compilee est bien plus sure que celle des 
sources. Si vous distribuez le code source (le projet et les fichiers appa- 
rentes), toute personne disposant de Visual Basic peut modifier votre travail. 
De plus, la plupart des utilisateurs ne pourront meme pas V utiliser, car Us 
ne disposeront pas de Visual Basic pour charger et executer le programme . 
Un fichier compile est done necessaire pour permettre a tous d'utiliser 
V application . 

Une application compilee s'execute beaucoup plus vite que dans l'environnement de 
developpement de Visual Basic. Vous voulez que votre application s'execute avec 
rapidite et souplesse sans que l'utilisateur ait a faire plus que le necessaire ; le fichier 
compile simplifie l'execution de 1' application. 

Avant de compiler Implication, assurez-vous de l'avoir deboguee autant qu'il est possi- 
ble. Vous ne pouvez pas deboguer une application compilee avec le debogueur de Visual 
Basic, car elle s'execute hors de l'environnement de developpement. 

Une fois que vous pensez que votre programme s'execute aussi bien que possible, choi- 
sissez Fichier, Creer. Visual Basic affiche la boite de dialogue Creer le projet (voir 
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Figure 21.9). Selectionnez le dossier de destination de l'application compilee. Visual 
Basic utilise par defaut le nom du projet comme nom d'executable. 



Figure 21.9 

Compilation 
de l'application 
a partir de la boite 
de dialogue Creer 
le projet. 




Avant de cliquer sur OK pour lancer la compilation, cliquez sur Options pour afficher la 
boite de dialogue Proprietes du projet (voir Figure 21 .10). Vous pouvez aussi y acceder en 
choisissant Proprietes dans le menu Projet. Elle vous permet de specifier des informations 
de version dans l'application compilee, toujours utiles, surtout si vous prevoyez de diffuser 
plusieurs versions de votre application. Les numeros de versions et les informations de 
descriptions restent enregistres dans le code source du projet, ce qui vous permet de gerer 
les differentes evolutions. 



Figure 21.10 

Configuration 
des options du projet 
compile dans la boite 
de dialogue 
Proprietes du projet. 
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La rubrique Icone designe l'icone de l'application qui s'affiche dans le menu 
Demarrage de Windows et dans le bouton de la Barre des taches. En general, vous lais- 
serez le nom de la feuille principale dans ce champ, car la fenetre Proprietes de la feuille 
contient une rubrique Icon dans laquelle vous pouvez choisir une icone pour la feuille et 
done, pour l'application compilee. 

Cliquez sur l'onglet Compilation pour afheher la page des options de compilation (voir 
Figure 21.11). Pour optimiser le projet compile et qu'il s'execute le plus vite possible, 
selectionnez l'option Compiler en code natif. (La compilation en P-Code — ou pseudo- 
code — exige que l'utilisateur dispose d'une DLL Runtime Visual Basic — un fichier 
dans le dossier Systeme.) Le code natif est bien plus rapide et demande moins de 
fichiers, meme s'il demande toujours la presence d'un fichier DLL. 



Figure 21.11 

La page Compilation 
contient les options de 
compilation du projet. 
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— 1 Si vous selectionnez des options dans la fenetre qui s 'affiche quand vous 
cliquez sur Optimisations avancees, vous perdrez I'avantage de certains 
contrdles a V execution, mais vous gagnerez en rapidite. 



Quand vous cliquez sur OK, Visual Basic ferme la fenetre des proprietes et compile le 
programme. Si aucune erreur de compilation ne se produit, Visual Basic cree le fichier 
.EXE (vous verrez l'etat de la compilation dans le coin superieur droit). Vous pouvez 
quitter Visual Basic et executer l'application en selectionnant l'option Executer du menu 
Demarrage et en localisant le fichier .EXE. L'icone de feuille que vous avez selectionnee 
s'affiche dans la Barre des taches quand vous executez le programme. 
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Partie III 



L'assistant Empaquetage et deploiement 

L' assistant Empaquetage et deploiement execute de nombreuses taches a votre place, dont : 

• La compilation de 1' application et la compression du fichier. 

• La creation d'un programme d' installation pour installer 1' application. 

• La determination de la meilleure organisation des disquettes d' installation, la crea- 
tion des divers disques d'installation et le decoupage des fichiers importants sur 
plusieurs disquettes. L'assistant indique a l'avance le nombre de disquettes 
necessaires a 1' installation. 

• La copie de 1' application compilee sur un disque dur pour que vous puissiez 1' installer 
sur un reseau ou sur un graveur de CD-ROM. 

• La configuration de l'application pour sa distribution sur l'lnternet vers les utilisa- 
teurs d' Internet Explorer. 

L'assistant genere une liste des differents fichiers necessaires a 1' installation. Un fichier 
Setup.exe unique n'est pas la seule chose a fournir dans la routine d'installation. Une 
application Visual Basic exige sou vent des fichiers DLL et OCX, qui doivent resider sur 
le support d'installation (disquette ou disque) choisi avec le fichier de l'application 
compilee et le programme Setup.exe. 

Avant de pouvoir executer l'assistant Empaquetage et deploiement, vous devez charger 
votre projet, debogue et compile. L'assistant le compilera une derniere fois au cas oil 
vous auriez fait des modifications de derniere minute depuis la derniere compilation. 

L'assistant ne fait pas partie de l'environnement de developpement Visual Basic. Vous 
devez le selectionner dans le menu Complements, Gestionnaire de complements. Une 
fois charge, vous pouvez le lancer. La Figure 21.12 montre la fenetre d'ouverture. 

La premiere option de l'assistant (certainement celle que vous choisirez la plupart du 
temps) cree une routine Setup.exe standard que l'utilisateur peut installer. L'assistant 
peut preparer 1' installation sur un disque dur, des disquettes, un graveur de CD-ROM ou 
dans des fichiers CAB speciaux que vous pouvez transmettre sur l'lnternet pour une 
distribution en ligne. La seconde option envoie la routine d'installation vers un serveur 
Internet pour une installation a distance de l'application. L'assistant cree un fichier 
script qui decrit la routine d'installation. Lors de sessions ulterieures, vous pouvez 
modifier un script deja cree ou le recreer a partir du projet d'origine. La troisieme option 
vous permet de gerer les scripts d'installation. 

La premiere option genere la forme la plus courante de routine d'installation, valable 
pour la plupart des applications . Apres avoir clique sur le bouton, vous verrez la fene- 
tre de la Figure 21.13. A moins que votre application n'exige des fichiers de controles 
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ActiveX externes ou de bases de donnees, vous pouvez laisser la premiere option 
selectionnee. 



Figure 21.12 

L 'assistant 
Empaquetage et 
deploiement prepare 
votre application 
a la distribution. 



■'" Assistant Empaquetage et deploiement 



Projet actif : 



El 



|C:\Program Files\Microsoft Visual Studio\Common\Samples\Biblio\Biblio.vbp 

B 



Empaquetage 



Deploiement 



Gestion des 
scripts 



Empaqueter ce projet pour la distribution, comme un fichier CAB 
Internet ou un programme d' installation autoextractible, 



Envoyer Tun des empaquetages de ce projet vers un site de 
distribution, comme un serveur Internet, 



Renommer, dupliquer et supprimer vos scripts d'empaquetage et de 
deploiement pour ce projet. 




Figure 21.13 

Determination du type 
de produit a creer. 



•'■ Assistant Empaquetage et deploiement - Type d'empaquetage 




Choisissez le type d'empaquetage que vous voulez creer. 



J 



Type d'empaquetage: 

Fichier de dependances 



Description: 



Creation d'un logiciel qui se 


ra installe par un programme 


J 


setup.exe, 







Annuler < Precedent I Suivant > 



' Pour installer un controle ActiveX, selectionnez V option Fichier de depen- 

ps^ ce dances afin que V assistant puisse collecter les bons fichier s dans I'ordre oil 
I 'application en a besoin. 
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Cliquez sur Suivant pour afficher la boite de dialogue Dossier d'empaquetage, qui 
demande des informations de distribution. L' assistant doit savoir oil assembler les 
fichiers d' installation. Choisissez un repertoire vide. Ainsi, vous saurez, quand l'assistant 
en a fini, que tous les fichiers de ce dossier sont ceux qu'il a generes. 

Lorsque vous cliquez sur Suivant, l'assistant scrute votre projet pour determiner les 
fichiers de programmes necessaires a votre application. Si votre application contient 
des controles de donnees, il ne peut pas savoir quels pilotes de base de donnees sont 
requis. Vous verrez dans ce cas la boite de dialogue de la Figure 21.14. Copiez le 
pilote requis dans la fenetre de gauche. 



Figure 21.14 

Vous pourrez avoir 

a selectionner 

les fichiers d'acces 

aux donnees 

manuellement 

si votre application 

I'exige. 



■ Assistant Empaquetage et deploiement - Pilotes DAO 




Ce projet utilise DAO. Voici la liste des pilotes disponibles sur votre 
systeme. Choisissez les pilotes a inclure. 



Pilotes disponibles: 



Jet 2.x: Jet 2.x 

ODBC avec espaces de travail Jet 
ODBC Direct 

Text: Text, HTML Export, HTML Import 
Xbase: dBase III, dBase IV, dBase 5.0, FoxPi 



Aide 




Annuler | < Precedent || fulvant > 



La boite de dialogue peut differer selon le type d'acces aux donnees (ADO, 
DAO, etc.) utilise par votre application. 



Apres que vous avez clique sur Suivant, l'assistant collecte tous les fichiers de l'applica- 
tion specifies et affiche la boite de dialogue illustree a la Figure 21 .15. Verifiez que tous 
les fichiers necessaires a votre application y sont listes. Vous aurez eventuellement a 
ajouter (en cliquant sur Ajouter) d'autres fichiers, par exemple des fichiers LisezMoi.txt 
ou un fichier de base de donnees, pour que la routine d' installation les enregistre avec 
1' application dans le produit d' installation. 
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Figure 21.15 

Parcourez les fichiers 
pour vous assurer 
que V assistant a bien 
rassemble tous les 
fichiers necessaires 
au projet. 



■?r Assistant Empaquetage et deploiement - Fichiers inclus 




Les fichiers de la liste ci-dessous seront inclus dans votre 
empaquetage. Cliquez sur Ajouter pour inclure des fichiers 
supplementaires. Decochez la case situee a gauche du nom du 
fichier pour le supprimer du logiciel. 



Fichiers: 



0Biblio.exe 

Qbiblio.hlp 

0cmdlgfr.dll 

0comdlg32.ocx 

0DAO35O.DLL 
0DBLIST32.OCX 
0DBLSTFR.DLL 
<J 



Source 



C program Files\Microsoft Visual Sti 

Ci^rogram FilesVvlicrosoft Visual St 

C:\WINDOWS\SYSTEM 
C :\WIND0WS\SY5TEM 
Ci^rogram Files\F ichiers communs\ 
C:\WINDOWS\SYSTEM 
C:\WINDOWS\SYSTEM 
I 



Ajouter, 



Annuler | < Precedent | buvdnt ■ j 



Soyez certains d'avoir les bons droits d'acces a tout contrdle ActiveX que 
vous distribuez avec votre application. II se peut qu'une licence ne vous 
autorise pas a distribuer les controles ActiveX que vous n'avez pas crees. 
Consultez, votre fournisseur de controles ActiveX pour connattre les regies 
de distribution. 

La boite de dialogue suivante demande des informations de distribution. Vous pouvez 
creer un fichier de distribution unique ou demander que la routine d' installation soit 
placee sur plusieurs disquettes ou d'autres types de support. Apres avoir choisi le mode 
de decoupage des fichiers d'installation, cliquez sur Suivant pour afficher le titre de 
l'ecran d'installation. Saisissez le titre de votre projet, puis cliquez sur Suivant pour 
afficher la boite de dialogue des icones. 

Dans cette boite de dialogue, vous creez le sous-menu qui s'affichera dans le menu 
Demarrage de votre PC. En cliquant sur Nouvel element, vous affichez la boite de dialo- 
gue de la Figure 21.16, qui permet d'ajouter des elements a l'entree du menu 
Demarrage de cette application. Vous pouvez y ajouter un fichier LisezMoi ou un 
programme annexe (par exemple, un utilitaire systeme). 

L'ecran suivant determine les chemins de destination de chacun des fichiers installes. Si 
la majorite des fichiers seront copies dans le dossier selectionne par l'utilisateur dans la 
procedure d'installation, ce que precise la variable systeme AppPath, vous pouvez selec- 
tionner des fichiers particuliers dans la liste et les envoyer dans d'autres dossiers, par 
exemple le dossier Program Files (indique par la variable systeme Programmes). 
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Figure 21.16 

Vous pouvez 
determiner la maniere 
do nt V application 
se presentera dans 
le menu Demurrage 
de Vutilisateur. 



";: Assistant Empaquetage et deploiement - Elements du menu Demarrer 



Determinez les groupes et les elements du menu Demarrer qui 
seront crees par le processus d'installation. 




Elements du menu Demarrer: 



E Ijg Menu Demarrer 
E -{£j) Programmes 
□ (£) BIBLIO 

^ BIBLIO 



Nouveau groupe 



Nouvel element.. 



Proprietes.. 



Sypprimer 



Annuler | < Precedent | Suivant > | 



Comme vous pouvez le voir, V assistant Empaquetage et deploiement 
demande de prendre de nombreuses decisions. Elles permettent cependant 
d' avoir un controle complet de Vendroit et de la maniere dont V application 
arrive sur la machine de Vutilisateur. 



Cliquez sur Suivant pour selectionner tous les fichiers que vous voulez designer comme 
partages. Un fichier peut etre partage non seulement par les utilisateurs (comme un 
fichier de base de donnees auquel l'application a acces), mais aussi par d'autres 
programmes de l'ordinateur, comme ce peut etre le cas de controles ActiveX contenus 
dans votre projet. Designez les fichiers partages en cochant la case correspondante. 

Apres avoir clique sur Suivant, vous verrez l'ecran de fin de 1' assistant qui vous 
demande le nom a donner au script d'installation. Creer un fichier script vous evitera 
d'avoir a repondre a la longue liste des demandes de l'assistant subie jusqu'ici la 
prochaine fois que vous creerez la routine d'installation. De plus, vous pouvez modifier 
ce script sans avoir a repasser par tous les ecrans d'installation si quelque chose change 
dans le processus d'installation, par exemple la suppression d'un fichier partage. 

Une fois que vous cliquez sur Terminer, l'assistant cree le script d'installation, la routine 
d'installation, puis la place dans un ou plusieurs fichiers, suivant les options choisies. 
Quand tout est termine, les fichiers d'installation sont sur votre machine, prets a etre 
distribues. 
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Apres la generation de Installation 

Une fois que l'assistant a genere la routine d' installation, vous devez la tester, en execu- 
tant le programme genere pour vous assurer qu'il n'y a pas de bogues et que l'applica- 
tion finale s'execute sans problemes. 

Pour tester serieusement la routine d' installation, executez le programme 
a" installation sur une machine qui n'a jamais contenu votre application. 
Mieux, assurez-vous qu'il n'y a pas meme une copie de Visual Basic instal- 
lee. Tester votre application sur ce type de machine nettoyee vous aide a 
garantir qu'elle s'installera correctement sur d'autres. 

L' assistant Empaquetage et deploiement cree les fichiers d' installation a l'endroit speci- 
fic lors du traitement. Vous y trouverez le fichier Setup.exe, le fichier Setup .1st (qui 
contient la liste de tous les fichiers lies a 1' installation) et, eventuellement, d'autres 
fichiers dont l'extension se termine par le caractere souligne (_). Ces fichiers sont 
compresses ; la routine d' installation les decompresse sur la machine de destination. 

La methode la plus simple pour tester la routine d' installation generee consiste a choisir 
Executer a partir du menu Demarrage et de trouver le fichier du programme Setup.exe. 
Cliquez sur OK pour lancer 1' installation. Une installation classique s'executera. 
Le programme analyse la machine de destination pour s'assurer qu'il n'y a pas de 
programme en execution qui peut entrer en conflit avec un fichier a installer. La 
Figure 21.17 montre le dialogue d'avertissement affiche si l'utilisateur execute le 
programme d' installation pendant que d'autres programmes utilisent certains des 
fichiers partages de la routine. 



Figure 21.17 

Lancement 
du processus 
d' installation. 



{i Installation de BIBLIO 



Programme d' installation de BIBLIO. 



L'installation ne peut pas installer les fichiers systeme ou mettre a jour les 
fichiers partages s'ils sont utilises. Avant de poursuivre, fermez toutes les 
applications en cours. 



Quitter installation 
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__i — | Si vous annulez le programme a" installation avant la fin de V execution, il 
\t\V> supprime tous les fichiers copies jusque-la, ejfacant done toute trace de 
' V installation de V application . 



Desinstaller I'application 

L' assistant Empaquetage et deploiement ne se contente pas de creer la routine d'instal- 
lation, il genere aussi une routine de desinstallation, connectee a l'icone Ajout/Suppres- 
sion de programmes du Panneau de configuration, qui permet a l'utilisateur de 
desinstaller I'application a tout moment. Pour supprimer I'application du systeme, il 
suffit de suivre ces etapes : 

1 . A partir du menu Demarrage, selectionnez Parametres, puis Panneau de configuration. 

2. Double-cliquez sur l'icone Ajout/Suppression de programmes. 

3. Selectionnez I'application dans la liste des applications installees. Apres avoir veri- 
fie que l'utilisateur souhaite supprimer I'application, la routine prend la main et 
supprime le programme et tous les fichiers qui lui sont lies. 

Les informations de desinstallation sont enregistrees dans le meme repertoire que 
I'application. Le fichier des instructions de suppression se nomme ST6UNST.LOG et il 
contient tous les details necessaires pour que l'utilitaire systeme Ajout/Suppression de 
programmes puisse faire son office. Tous les fichiers ne seront pas supprimes, en parti - 
culier les fichiers partages par d'autres programmes. Avant de supprimer ces fichiers 
potentiellement necessaires (comme les controles ActiveX), l'utilitaire de suppression 
affiche une boite de dialogue d'avertissement qui laisse a l'utilisateur le soin de decider 
s'il faut ou non les supprimer. 



En resume 

La lecon d'aujourd'hui a explique comment utiliser les puissants outils de debogage de 
Visual Basic. Apprendre comment deboguer une application devient rentable quand 
vous avez a pister des bogues. Si les outils de debogage de Visual Basic ne peuvent pas 
detecter les erreurs de logique, le debogueur simplifie leur recherche. Vous pouvez 
suivre a la trace 1' execution d'un programme, positionner des points d' arret et retrouver 
le deroulement de 1' execution d'un programme depuis le debut. 

Un des aspects les plus puissants du debogueur est son interaction avec le programme 
durant une session de points d'arrets. Quand votre programme atteint un point d'arret, 
toutes les valeurs initialisees et calculees jusqu'a cet instant sont toujours actives. Vous 
pouvez done consulter les variables pour voir si leurs valeurs intermediaires sont celles 
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que vous attendez. Vous pouvez aussi changer la valeur d'une variable ou d'un controle 
au milieu de l'execution du programme et en voir les consequences sur la suite. 

Une fois votre application deboguee, vous etes pret a la distribuer. La distribution des 
applications met en ceuvre plus qu'une simple compilation. Vous devez prendre en 
compte la routine d'installation et vous assurer que les utilisateurs auront tous les 
fichiers lies a l'application. 



Questions-reponses 

Q Puis-je detecter toutes les erreurs de mon application lors de la redaction du 
code si je coche la case Verification automatique de la syntaxe ? 

R Lorsque vous tapez votre programme, cette option cochee permettra certainement de 
detecter de nombreuses erreurs. Mais elle ne repere que les erreurs de syntaxe. Vous 
pouvez encore faire des erreurs d'execution, comme des divisions par zero. La fene- 
tre de code ne peut pas detecter ces erreurs. 

Q Quelles sont les erreurs les plus simples a detecter ? 

R Les erreurs de syntaxe sont les plus faciles a reperer. Non seulement elles sont faciles a 
reperer, mais en plus Visual Basic le fait a votre place. Si vous avez active l'option 
Verification automatique de la syntaxe, Visual Basic detectera toutes les erreurs a la 
redaction ou, dans le cas contraire, a la premiere execution. Les erreurs de logique sont 
les plus difficiles a reperer, car Visual Basic n'a aucune idee d'une anomalie. Vous- 
meme ne realisez pas toujours qu'il y a un probleme au premier abord. Par exemple, si 
un total de balance generale se trompe d'un franc ou deux chaque jour, l'utilisateur peut 
ne pas remarquer l'erreur pendant un certain temps, ce qui risque entre-temps d'affecter 
d'autres donnees. C'est pourquoi il faut tester completement son application. 

Q Comment puis-je tester mon application avant de la distribuer ? 

R La reponse depend de la complexity de l'application. Si elle genere des details 
cruciaux utilises dans une prise de decision, comme un compte -rendu de paye ou de 
comptabilite, une des meilleures manieres de la tester consiste a effectuer un test en 
parallele. C'est-a-dire, executer votre application en parallele au systeme actuel, que 
ce soit un systeme manuel ou une application informatique ancienne que vous rempla- 
cez. Comparez vos resultats au systeme en cours et faites faire la meme chose a vos 
utilisateurs. Ce n'est qu'apres avoir execute plusieurs cycles du systeme en parallele 
(ce qui peut prendre un mois ou deux dans le cas d'une comptabilite), que vous aurez 
la confiance necessaire pour remplacer le systeme en cours par votre application. 
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Atelier 

L' atelier propose une serie de questions qui vous aident a renforcer votre compre- 
hension des elements traites, ainsi que des exercices qui vous permettent de mettre en 
pratique ce que vous avez appris. Essayez de comprendre les questions et les exercices 
avant de passer a la legon suivante. Les reponses se situent a l'Annexe A. 

Quiz 

1 . Qu'est-ce qu'une erreur de syntaxe ? 

2. Quelle est la difference entre une erreur de syntaxe et une erreur de logique ? 

3. Vrai ou faux. Certaines erreurs a 1' execution peuvent entrainer 1' arret de 1' execution 
du programme. 

4. Vrai ou faux. Certaines erreurs de syntaxe peuvent entrainer 1' arret de 1' execution 
du programme. 

5. Comment pouvez-vous analyser les variables pendant l'execution d'un programme ? 

6. Comment le mode pas a pas peut-il vous aider a deboguer un programme ? 

7. Vrai ou faux. Vous pouvez changer les valeurs des variables et des controles pendant 
l'execution de l'application. 

8. Quel est le plus rapide : un programme compile ou un programme execute dans 
l'environnement Visual Basic ? 

9. Quels sont les outils fournis par Visual Basic permettant de creer une routine 
d' installation de votre application ? 

10. Que se passe-t-il si votre routine d' installation est plus volumineuse que le contenu 
d'une disquette, mais que vous devez la proposer sur ce support ? 

Exercices 

1 . Quel type d' erreur contient 1' instruction suivante ? 

BIf (a < b) Therefore 
lblTitle. Caption = "Trop petit" 
End If 

2. Vrai ou faux. La phrase suivante contient deux types d'erreurs (cette question 
demande un peu de reflexion) : 

Cette phrase a deux erreurs. 
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Felicitations, vous avez termine votre formation de programmeur Visual Basic ! Vous 
comprenez desormais pratiquement tous les domaines du systeme Visual Basic. Vous avez 
les moyens de produire presque n'importe quel type d' application. 

Tout ce dont vous avez maintenant besoin est d'acquerir de l'experience. 

Avec ce didacticiel et les Projets bonus, vous avez appris a quoi ressemblent les journees 
d'un programmeur Visual Basic. La programmation Visual Basic est tres gratifiante. Natu- 
rellement, les emplois de programmeurs sont nombreux a pourvoir dans ce monde de 
haute technologie, mais la satisfaction tiree de la programmation ne saurait se limiter a 
une simple amelioration des revenus. En programmant avec Visual Basic, vous avez non 
seulement le pouvoir de creer tout type d' applications Windows dont vous pourriez avoir 
besoin, mais en outre, cela vous amusera. Et, plus important, Visual Basic n'oublie jamais 
ses racines ; il sera la pour vous aider a deboguer, ajouter du style aux programmes que 
vous ecrivez et creer des executables compiles que vous pouvez distribuer pour permettre 
a d'autres de beneficier du travail que vous avez effectue. 

Dans cette partie, vous avez appris a maitriser les points suivants : 

• Les modeles de feuilles. Pourquoi reinventer la roue ? Utilisez les modeles de 
feuilles pour simplifier l'ajout de feuilles standard a vos applications (Chapitre 15). 

• Creer vos propres modeles de feuilles. Si Visual Basic fournit plusieurs modeles 
de feuilles, vous pouvez aussi creer les votres et les ajouter a la collection proposee 
(Chapitre 15). 

• Modeles de feuilles de l'assistant Creation d'applications. L'assistant Creation 
d' applications peut ajouter des modeles de feuilles a vos projets, mais vous devez 
toujours en modifier le code et les personnaliser pour qu'ils se conforment aux 
exigences de vos applications (Chapitre 15). 
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• Controles OLE. L'OLE (incorporation et liaisons d'objets) est un concept qui date 
presque des origines de Windows. D'autres outils, tels ActiveX, sont actuellement sous 
les feux de la rampe, mais de nombreux programmeurs travaillent encore avec des 
controles OLE pour incorporer des objets a leurs applications (Chapitre 16). 

• Objets. Si certains puristes de la programmation sursautent en entendant dire que 
Visual Basic est un langage oriente objet, il supporte quand meme de nombreuses 
constructions qui y sont apparentees (Chapitre 16). 

• Objets predefinis. Visual Basic definit de nombreux objets, tels que Screen, Prin- 
ter et App. Lors de l'execution de votre application, vous pouvez utiliser ces objets 
predefinis pour en apprendre plus sur l'environnement de l'application 
(Chapitre 16). 

• Objets externes. Vous avez un apercu des exigences pour acceder aux objets qui 
sont en dehors de l'environnement Visual Basic, comme les valeurs d'une feuille de 
calcul Excel, a partir de votre application Visual Basic. 

• Collections d'objets. Les collections d'objets vous permettent de travailler avec 
plusieurs elements objets pris comme un groupe unique (Chapitre 16). 

• Controles ActiveX. Un controle ActiveX peut fonctionner a de nombreux niveaux, 
d'un controle de la fenetre Boite a outils de Visual Basic a un programme d'une 
page Web (Chapitre 17). 

• Creer vos propres controles ActiveX. Vous n'etes pas oblige de vous limiter aux 
controles ActiveX fournis avec Visual Basic ou crees par d'autres. Vous pouvez 
ecrire les votres et les utiliser dans vos projets (Chapitre 17). 

• Controle Data. En ajoutant le controle Data a votre application, vous garantissez a 
vos utilisateurs non seulement 1' acces a une base de donnees, mais aussi la possibi- 
lite de naviguer dans le fichier et d'y effectuer des modifications (Chapitre 18). 

• Programmer des jeux de donnees. Apres avoir appris quelques concepts simples, 
vous comprenez ce qui est necessaire pour gerer une application de base de donnees 
complete sous une interface Visual Basic (Chapitre 18). 

Acces Internet. Ajoutez un navigateur Web dans vos applications (Chapitre 19). 

• Programmation Internet. Controlez les traitements Internet dans votre application 
Visual Basic (Chapitre 19). 

Ajouter de l'aide. Donnez a vos utilisateurs les acces a l'aide dont ils ont besoin en 
installant une base de donnees d'aide complete dans votre application (Chapitre 20). 

• Options d'aide. Visual Basic propose plusieurs moyens d'ajouter de l'aide a vos 
applications (Chapitre 20). 
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Aide par info-bulles. A une petite echelle, les infobulles peuvent etre utiles pour 
l'utilisateur qui utilise les barres d'outils et les controles de votre application 
(Chapitre 20). 

• Deboguer le code. Le debogueur interactif de Visual Basic simplifie la recherche et 
relimination des bogues du programme (Chapitre 21). 

• Compilation de 1 'application. Avant de distribuer vos applications, il est preferable 
de compiler le code pour empecher sa consultation ou sa modification, et pour 
permettre une execution plus rapide de l'application (Chapitre 21). 

• Distribution du code. Vous pouvez simplifier ou compliquer la vie de vos utilisa- 
teurs. Utilisez les outils de Visual Basic pour l'empaquetage de vos applications en 
une application distribuable, installable et blindee (Chapitre 21). 
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Tableaux 

multidimensionnels 

Au Chapitre 10, nous avons deja explique comment declarer et utiliser les tableaux, qui 
contiennent des listes de valeurs. Si vous devez garder la trace de plusieurs elements, vous 
pouvez les mettre dans des variables differentes ou les enregistrer dans un tableau sous un 
nom unique. L'avantage du tableau est de permettre de parcourir les variables a l'aide 
d'une instruction de boucle, telle que For. 

Visual Basic supporte plusieurs types de tableaux. Vous pouvez declarer un tableau de 
n'importe quel type de donnees pour contenir une liste de variables. Vous pouvez aussi 
declarer un groupe de controles qui fonctionne comme un tableau de variables, et offre 
l'avantage de disposer de plusieurs objets de feuille sous le meme nom et avec un ensem- 
ble de proprietes identiques. Chaque controle du groupe n'a cependant pas obligatoire- 
ment les memes valeurs de proprietes. Vous pouvez parcourir un groupe de controles 
aussi simplement qu'un tableau de variables lorsque vous voulez travailler sur les contro- 
les. 

Cette lecon supplementaire fait avancer d'un cran le concept de variables. Les tableaux 
etudies jusqu'ici etaient des tableaux a une dimension, n'ayant qu'un indice. Dans cette 
lecon, vous allez apprendre comment etendre ce concept a la generation de tableaux, 
dits tableaux multidimensionnels. lis sont souvent appeles tables, et permettent d'enre- 
gistrer les valeurs sous forme de lignes et de colonnes. Le nombre de dimensions peut 
depasser deux pour creer des zones de stockage de donnees utiles. 
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Une fois que vous aurez appris les tableaux a plusieurs dimensions, vous etudierez le 
controle grille. II contient des fonctionnalites permettant de presenter efficacement les 
donnees en deux dimensions ; le tableau a deux dimensions etant le plus souvent utilise, le 
controle grille est alors pratique. 

Vous apprendrez aujourd'hui : 

ce que sont les tableaux multidimensionnels ; 

• comment declarer les tableaux multidimensionnels ; 

• les differentes manieres d'initialiser les tableaux multidimensionnels ; 
comment les boucles aident au traitement des tableaux multidimensionnels ; 

• les limites que pose Visual Basic sur les tableaux multidimensionnels ; 
le controle grille ; 

• comment les proprietes du controle grille determinent le nombre de lignes et de 
colonnes de la grille finale ; 

• les methodes utilisees pour assigner les donnees aux grilles ; 

• la propriete FormStning ; 

comment afficher des images dans les cellules de grille. 



Introduction aux tableaux 
multidimensionnels 



Certaines donnees s'adaptent a un tableau a une dimension (que vous avez etudie 
jusqu'ici), d'autres a un format de table. Les tableaux a une dimension n'ont qu'un 
indice. lis representent une liste de valeurs. La Figure 22.1 montre qu'un tableau a une 
dimension a une notion de longueur et de direction, exactement comme une ligne. 



N'oubliez pas que les tableaux sont stockes dans la memoire de votre 
ordinateur sans aucune notion de la direction, illustree a la Figure 22.1. 
L'idee de direction unique fonctionne cependant bien pour demontrer la 
nature lineaire d'un groupe d'elements de tableaux. Si vous ajoutez une 
dimension, vous ajoutez aussi une idee de direction supplementaire , comme 
vous le verrez dans un moment lorsque nous parlerons des tableaux a deux 
dimensions. 
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Figure 22.1 

Un tableau 
a une dimension a 
line longueur 
et une direction. 



(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) 



intArray 



5 


15 


25 


35 


45 


55 


65 


75 


85 


95 



T.peut apparaTtre horizontalement..— 



intArray 



15 



45 



75 



peut 
apparaTtre 
verticalement 



Le reste de cette lecon explique comment utiliser les tableaux a plus d'une dimension, 
dits tableaux multidimensionnels. lis sont aussi nommes tables ou matrices et se composent 
de lignes et de colonnes. 



Un tableau multidimensionnel a plus d'un indice et, par Id meme, plus d'une 
dimension. Le nombre de dimensions depend du nombre de directions. Un 
tableau a une dimension a une direction, un tableau a trois dimensions a 
trois directions, comme un objet dans I'espace a une largeur, une longueur 
et une hauteur. 



Supposons qu'une equipe de handball souhaite suivre les buts marques par ses joueurs. 
L'equipe a joue huit matches, et il y a dix joueurs dans l'equipe. Le Tableau 22.1 montre 
l'enregistrement des buts de l'equipe. 

Remarquez-vous que ce tableau a deux dimensions ? II a des lignes (premiere dimension) 
et des colonnes (deuxieme dimension). On parle done d'une table a deux dimensions de 
dix lignes et huit colonnes. (On designe, en general, les lignes en premier.) Une table a 
deux dimensions a done deux directions — horizontale et verticale. Comme les tableaux 
a une dimension, l'enregistrement en memoire des tableaux a deux dimensions n'est pas 
litteralement organise de cette maniere, mais le langage Visual Basic permet de mani- 
puler les donnees comme si elles etaient enregistrees en lignes et en colonnes. 
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Tableau 22.1 : Le tableau des buts d'une equipe de handball fonctionne bien 
sous forme de table 



Joueur 


Partie 1 


Partie 2 


Partie 3 


Partie 4 


Partie 5 


Partie 6 


Partie 7 




Adams 


2 


1 


0 


0 


2 


3 


3 


1 


Berryhill 


1 


0 


3 


2 


5 


1 


2 


2 


Edwards 


0 


3 


6 


4 


6 


4 


5 


3 


Grady 


1 


3 


2 


0 


1 


5 


2 


1 


Howard 


3 


1 


1 


1 


2 


0 




0 


Powers 


2 


2 


3 


1 


0 


2 




3 


Smith 


1 


1 


2 


1 


3 


4 




0 


Townsend 


0 


0 


0 


0 


0 


0 




0 


Ulmer 


2 


2 


1 


1 


2 


1 




2 


Williams 


2 


3 


1 


0 


1 


2 




1 



— 1 matrice, comme un tableau a une dimension, n'a qu'un nom. De plus, 

une matrice ne peut contenir qu'un seul type de donnees — le type de sa 
declaration. Si vous declarez, un type Variant pour la matrice, les cellules 
peuvent contenir tous les types de donnees qui peuvent etre representees par 
le type Variant. 



Une cellule est un element d'un tableau a plusieurs dimensions . Dans un 
tableau a une dimension, une cellule est un element de la liste, mais dans un 
tableau a deux dimensions (comme la liste des buts de V equipe de handball 
du Tableau 22.1 ), une cellule se compose de V intersection d'une ligne et 
d'une colonne. 

Dans le Tableau 22.1, chaque ligne correspond au nom du joueur et a chaque colonne 
est associee une partie, mais ces en-tetes ne font pas partie du tableau. Les donnees ne 
comprennent que quatre-vingts valeurs (dix lignes par huit colonnes). Dans ce cas, ce 
sont des entiers. Si le tableau se compose de noms, c'est un tableau de chaines de 
caracteres, etc. 
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Le nombre de dimensions — ici, deux — correspond aux dimensions du monde 
physique. La premiere represente une ligne : un tableau a une dimension represente une 
ligne, ou une liste, de valeurs. Deux dimensions representent la longueur et la largeur. 
Vous ecrivez sur une feuille de papier en deux dimensions — c'est la representation 
d'une surface plane. Trois dimensions representent la largeur, la longueur et la hauteur. 
Vous pouvez avoir vu des films en 3D : les images ont non seulement une largeur et une 
hauteur, mais elles donnent l'impression d' avoir aussi une profondeur (impression qui 
prend corps lorsqu'on regarde tout simplement autour de soi). 

La raison d'une telle insistance sur la maniere dont les gens voient les dimen- 
sions est que votre travail de programmeur est simplifie si vous visualisez 
mentalement les donnees multidimensionnelles dans Vespace avec leurs ligne s 
et leurs colonnes (et eventuellement plus). 

Bien que Visual Basic vous permette de travailler jusqu'a soixante dimensions, il est 
difficile d'en visualiser plus de trois. Vous pouvez cependant penser a chaque dimension 
qui suit la troisieme comme une nouvelle occurrence. En d'autres termes, vous pouvez 
enregistrer une liste des buts d'un joueur sur la saison dans un tableau. Les scores de 
l'equipe (voir Tableau 22.1) sont en deux dimensions. La ligue, composee des enregis- 
trements de plusieurs equipes, represente un tableau a trois dimensions. Chaque equipe 
(la profondeur du tableau) a des lignes et des colonnes de donnees sur les buts. S'il y a 
plus d'une ligne, elles peuvent representer une autre dimension. 

Malgre la capacite genereuse de soixante dimensions proposee par Visual 
Basic, vous ecrirez. rarement des programmes qui demandent plus de trois ou 
peut-etre quatre dimensions. La plupart du temps, vous travaillerez. sur des 
tableaux a une ou deux dimensions. 





Declarer les tableaux multidimensionnels 

Comme pour les tableaux a une dimension, vous utiliserez les instructions Dim ou 
Public pour reserver la place des tableaux multidimensionnels. Au lieu de mettre une 
valeur entre parentheses, vous en mettrez une par dimension. Les formats de base pour 
la reservation des tableaux multidimensionnels sont les suivants : 

B Public taName(intSub) [As dataType][, taName(intSub) [As dataType] ] . . . 
Dim taName (intSub) [As dataType] [, taName (intSub) [As dataType]]... 

Les valeurs intSub du tableau peuvent prendre ce format general : 

[intLow To] intHighRow[, [intLow To] intHighColumn][ , [intLow To] 
intHighDepth] [,...] 
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Comme c'est le cas des tableaux a une dimension, la reservation effective est plus 
simple que ce qu'en laisse penser le format. Pour declarer les donnees de l'equipe du 
Tableau 22.1 , par exemple, vous pouvez utiliser l'instruction Dim suivante : 

Dim intTeams(1 To 10, 1 To 8) As Integer 

Cette instruction reserve en memoire un tableau a deux dimensions de quatre-vingts 
elements. Les indices des elements sont illustres a la Figure 22.2. 



Figure 22.2 

Le tableau 
de l'equipe de 
handball demande 
deux ensembles 
d' indices. 



intTeams(1 , 1 ) 


intTeams(1, 2) 


intTeams(1, 3) 


• • C 
•••[ 

• • c 


intTeams(1 , 7) 


intTeams(1, 8) 


intTeams(2, 1 ) 


intTeams(2, 2) 


intTeams(2, 3) 


intTeams(2, 7) 


intTeams(2, 8) 


intTeams(3, 1 ) 


intTeams(3, 2) 


intTeams(3, 3) 


intTeams(3, 7) 


intTeams(3, 8) 


•□ •□ •□ 
•□ •□ •□ 




•□ •□ 
•□ •□ 


intTeams(9, 1 ) 


intTeams(9, 2) 


intTeams(9, 3) 


•••c 
• •< 


intTeams(9, 7) 


intTeams(9, 8) 


intTeams(1 0,1) 


intTeams(10, 2) 


intTeams(10, 3) 


intTeams(10, 7) 


intTeams(10, 8) 



Si vous avez a suivre une ligue de quinze equipes, vous ajouterez un autre indice : 
Dim intTeams(1 To 15, 1 To 10, 1 To 8) As Integer 

Le premier indice indique chaque equipe, le second, le nombre de joueurs de chaque 
equipe, et le dernier le nombre de parties. 

Pensez, a un tableau a trois dimensions comme a un echiquier a trois dimen- 
sions, avec des echiquier s empiles les uns sur les autres. Une representation a 
quatre dimensions serait plusieurs ensembles d'echiquiers. La quatrieme 
dimension serait le numero correspondant a chaque ensemble 3D d'echiquiers. 

Comment connaitre l'ordre des indices, et savoir si l'indice de droite represente des 
colonnes ? Vous ne pouvez pas le savoir, car les indices peuvent representer ce que vous 
voulez. Cependant, la norme pour un tableau a deux dimensions est de considerer 
l'indice de gauche comme la ligne et l'indice de droite comme la colonne. En passant de 
deux dimensions a trois, l'indice ajoute est presque toujours le premier pour garantir 
que les deux derniers representent les lignes et les colonnes d'une table. En gardant les 
indices presentant la table comme les deux derniers, vous aidez a leur coherence. 

L'instruction suivante reserve assez de memoire pour les programmes d'une chaine de 
television sur une semaine : 




Dim strShows(1 To 7, 1 To 48) As String 
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Cette instruction reserve sept jours (les lignes) de programmes de trente minutes (les 
jours faisant vingt-quatre heures, la table contient quarante-huit colonnes). 

Comme vous le savez, tous les elements d'une table doivent avoir le meme type de 
donnees. Ici, c'est une variable String. 

Vous pouvez initialiser certains elements avec les instructions suivantes : 

8strShows(3, 12) = "Quand l'hopital tourne" 
strShows(1, 5) = "Le jeu des devinettes" 
strShows(7, 20) = "Publireportage sur le The glace aux f ramboises" 

La reservation de l'espace de plusieurs tableaux multidimensionnels consomme vite de la 
memoire. Les instructions suivantes reservent une grande quantite de memoire : 

8 Public ara1(10, 20) As Single 
Dim ara2(4, 5, 5) As Double 
Public ara3(6, 10, 20, 30) As Integer 

aral occupe deux cents emplacements memoire de variables simple precision, ara2 
occupe cent emplacements double precision, et ara3 occupe trente-six mille emplace- 
ments memoire. Comme vous pouvez le voir, le nombre d'elements augmente vite. 
Soyez attentif a ne pas reserver trop d' emplacements de tableaux pour ne pas epuiser la 
quantite de memoire disponible. 

En lisant des donnees tabulaires dans des tableaux multidimensionnels et en travaillant 
sur les donnees d'un tableau a la place des tables de bases de donnees, vous pouvez 
accelerer les temps d'execution du programme. Tout ce qui se passe en memoire est plus 
rapide que la lecture et l'ecriture disque a chaque acces aux valeurs. Cependant, 
l'espace memoire est plus reduit que l'espace disque. Si vous travaillez sur des fichiers 
importants, vous devez renoncer a l'efficacite de la memoire pour la capacite du disque. 

Les tableaux et les boucles For 

Comme vous le verrez dans certains des exemples de programmes suivants, les boucles 
For imbriquees sont de bonnes candidates pour le parcours de tous les elements d'un 
tableau multidimensionnel. Par exemple, le Listing 22.1 imprime les six valeurs d'indi- 
ces possibles d'un tableau multidimensionnel dans des boites de message successives. 

Listing 22.1 : Les boucles imbriquees permettent de parcourir rapidement les tables 

For intRow = 1 To 2 
For intCol = 1 To 3 

MsgBoxf "Ligne : " & intRow & ", Colonne : " & intCol) 
Next intCol 
Next intRow 
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Si vous executez le code du Listing 22.1, vous verrez les sorties suivantes dans les 
boites de message : 



Ligne 


1 , Colonne 


1 


Ligne 


1 , Colonne 


2 


Ligne 


1 , Colonne 


3 


Ligne 


2, Colonne 


1 


Ligne 


2, Colonne 


2 


Ligne 


2, Colonne 


3 



Vous pouvez modifier le code et utiliser des methodes Print pour imprimer directement 
sur la feuille a la place de boites de message. Print est sans nul doute une bonne 
methode a utiliser pour pratiquer la manipulation des indices de tableaux multidimen- 
sionnels, car elle permet de placer simplement de grandes quantites de sorties sur une 
feuille. Par exemple, le Listing 22.2 utilise la methode Print pour imprimer directement 
sur une feuille. La Figure 22.3 montre ce a quoi pourrait ressembler la feuille. 



Listing 22.2 : Les boucles imbriquees fournissent des indices pour parcourir 
tout le tableau 



For intRow = 1 To 2 
For intCol = 1 To 3 
Forml .Print "Row: 
Next intCol 
Forml .Print 

Next intRow 



& intRow & 



Col: 



& intCol 



Figure 22.3 

Vous pouvez experimenter 
I' impression des valeurs 
de tableaux avec Print 
pour consulter toutes 
les sorties sur une mime 
feuille. 



Ligne : 1. Colonne : 1 
Ligne : 1. Colonne : 2 
Ligne : 1. Colonne : 3 

Ligne : 2, Colonne : 1 
Ligne : 2, Colonne : 2 
Ligne : 2, Colonne : 3 




us* 



0>* 



Attention aux resultats de la Figure 22.3. N'oubliez pas que I'objectif du 
Listing est de vous montrer comment des boucles For imbriquees permettent 
de parcourir une table par lignes et par colonnes. Les valeurs imprimees de 
la Figure 22.3 ne sont pas des valeurs de tableau, mais les indices d'un 
tableau declare de deux lignes et de trois colonnes. 
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Si vous avez a imprimer les indices, par ordre de ligne, d'un tableau de deux lignes et 
trois colonnes dimensionne par l'instruction Dim suivante, vous verriez les numeros 
d'indices illustres par les boucles imbriquees du Listing 22.2. 

Dim intTable(1 To 2, 1 To 3) 

Remarquez qu'il y a autant d' instructions For...Next que d'indices dans l'instruction Dim 
(deux !). La boucle exterieure represente le premier indice (lignes) et la boucle inte- 
rieure, le second (colonnes). Les boucles imbriquees sont sans nul doute la maniere la 
plus courante de parcourir les elements d'un tableau ; leur maitrise est done cruciale 
pour programmer efficacement avec des tableaux multidimensionnels. 

Initialiser les tableaux 

Vous pouvez initialiser les elements d'un tableau multidimensionnel de plusieurs 
facons, dont : 

assigner des valeurs aux elements de la table ; 

• utiliser inputBox pour remplir les elements, un par un, a partir d'une boite de 
message ; 

• lire les valeurs, une par une, a partir d'un disque ou d'un fichier de base de donnees ; 

calculer les valeurs a partir d'autres valeurs. 

En reflechissant a cette liste, vous constaterez qu'on initialise les tables et tous les 
tableaux multidimensionnels comme on le fait avec toute autre variable. Cette methode, 
cependant, vous permet de penser aux donnees sous une forme tabulaire, ce qui aide a 
accelerer la programmation et la maintenance. 

La plupart des donnees de tableaux multidimensionnels proviennent de donnees de 
feuilles ou — plus souvent — de fichiers disques. Quelle qu'en soit la provenance, les 
boucles For imbriquees sont d'excellentes instructions de commande du parcours des 
indices. L'exemple suivant illustre un peu mieux comment elles peuvent fonctionner 
avec des tableaux multidimensionnels. 

Supposons qu'une entreprise informatique vende deux tailles de disquettes : 3 1/2 et 
5 1/4 pouces. Chaque disquette existe en quatre capacites : simple face, basse densite ; 
double face, basse densite ; simple face, haute densite ; double face, haute densite. Cet 
inventaire des disquettes se prete bien a un tableau a deux dimensions. Les prix de detail 
des disquettes sont les suivants : 
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Simple face Double face Simple face Double face 

Basse densite Basse densite Haute densite Haute densite 



3 1/2 2,30 2,75 3,20 3,50 

5 1/4 1,75 2,10 2,60 2,95 

La procedure du Listing 22.3 enregistre le prix de chaque disque dans une table et 
imprime les valeurs sur la feuille en utilisant des boucles For imbriquees. Vous pouvez 
inserer cette procedure dans un module standard ou une procedure evenementielle pour 
en declencher 1' execution. 

Listing 22.3 : Les elements d'inventaire apparaissent souvent dans une table 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



Private Sub disks () 

' Assigne et imprime les prix des disquettes 
Dim curDisks(1 To 2, 1 To 4) As Currency 
Dim intRow As Integer, intCol As Integer 
' Assigne le prix de chaque element 
curDisks(1, 1) = 2.30 ' Ligne 1, colonne 1 
curDisks(1, 2) = 2.75 1 Ligne 1, colonne 2 
curDisks(1, 3) = 3.20 ' Ligne 1, colonne 3 
curDisks(1, 4) = 3.50 ' Ligne 1, colonne 4 
curDisks(2, 1) = 1.75 ' Ligne 2, colonne 1 
curDisks(2, 2) = 2.10 1 Ligne 2, colonne 2 
curDisks(2, 3) = 2.60 1 Ligne 2, colonne 3 
curDisks(2, 4) = 2.95 ' Ligne 2, colonne 4 
' Imprime les prix sous forme de table 
Forml .Print 

Forml . Print Tab(12); "Simple face, Double face, " 

Forml. Print "Simple face, Double face" 

Forml. Print Tab(12); "faible densite faible densite 

Forml. Print "haute densite haute densite" 

For intRow = 1 To 2 

If (intRow = 1 ) Then 

Forml. Print "3 pouces 1/2 "; Tab(15); 

Else 

Forml. Print "5 pouces 1/4"; Tab(15); 
End If 

For intCol = 1 To 4 
Forml. Print curDisks (intRow, intCol); Spc(8); 

Next intCol 

Forml. Print ' Deplace le curseur a la ligne suivante 
Next intRow 
End Sub 
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Cette procedure genere la sortie illustree a la Figure 22.4, une fois la fenetre redimen- 
sionnee pour afficher toute la table. Bien que reduit, le tableau multidimensionnel de 2 
par 4 montre comment vos donnees peuvent parfois bien s' adapter a un enregistrement 
en tableau. Le code de l'exemple peut paraitre assez long pour une table qui ne 
comprend que huit valeurs. N'oubliez cependant pas que vous n'initialisez que rarement 
les tableaux comme le font les lignes 6 a 13. Pour ce petit exemple, et comme introduc- 
tion aux tableaux, les assignations sont peut-etre la meilleure maniere de commencer. 



Figure 22.4 

Le prix des disquettes 
s'affiche sous forme 
tabulaire. 



*i Forml 






|.|n|x| 


Simple lace. Double face. 


Simple face. 


Double face 




faible densite faible densite 


haute densite 


haute densite 




3pouces 1/2 2,3 2,75 


3.2 


3.5 




5pouces1/4 1,75 2,1 


2.6 


2.95 





Dans le Chapitre 10, vous avez etudie lafonction Array(), qui assigne un 
ensemble de valeurs a tout un tableau en une seule instruction. N'utilisez. 
pas lafonction Array () dans les tableaux multidimensionnels, car elle ne 
fonctionne qu'avec les tableaux a une dimension. 



Le controle grille 

Le tableau a deux dimensions le plus courant, la table, se presente au mieux sous forme de 
lignes et de colonnes. Le controle grille propose une maniere pratique d' afficher les tables. 
Les utilisateurs peuvent naviguer dans les valeurs en utilisant des barres de defilement, qui 
sont automatiquement affichees si le controle n'est pas aussi grand que la table. 

Preparer le controle grille 

Le controle grille ne fait pas partie de la boite a outils standard. II faut suivre ces etapes 
pour l'ajouter : 

1 . Appuyez sur Ctrl-T pour ouvrir la boite de dialogues Composants. 

2. Selectionnez Microsoft FlexGrid Control 6.0. 

3. Cliquez sur OK. Le controle MSFlexGrid (designe habituellement comme le 
controle grille) s'affiche dans la fenetre Boite a outils (voir Figure 22.5). 
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Figure 22.5 

Le controle grille permet 
d'ajficher des donnees 
tabulaires. 



Controle grille 



Visual Basic comprend plusieurs types de contrdles grille. Vous les 
decouvrirez en balayant la liste de la boite de dialogue Composants . Certains 
sont des contrdles lies qui, comme vous I'avez appris au dix-huitieme chapitre, 
sont lies aux bases de donnees pour que I'utilisateur puisse consulter les 
donnees sous-jacentes, affichees dans la table. Le controle de grille lie ne 
permet que la lecture des donnees d'une base. Selon la version (Entreprise, 
Professionnelle ou Standard), vous trouverez un ensemble different de grilles 
lorsque vous afficherez la liste des Composants . 

Comprendre comment fonctionne le controle grille 

Quand vous placez le controle grille sur une feuille, vous devez le redimensionner avant 
qu'il ne prenne une apparence tabulaire. Lorsque vous en augmentez la taille, il ne ressem- 
ble pas trap a une table (voir Figure 22.6). Le probleme est que le nombre de lignes et de 
colonnes par defaut est de deux. Lorsque vous ajouterez des lignes et des colonnes, le 
controle grille ressemblera plus a une table de ce nom. 

Une des premieres taches a effectuer apres avoir ajoute le controle grille est d'augmen- 
ter le nombre de lignes et de colonnes jusqu'a ce que la grille en contienne un nombre 
raisonnable. II n'est pas obligatoire d'afficher l'integralite des lignes et des colonnes du 
tableau multidimensionnel, car des barres de defilement permettront a I'utilisateur de 
naviguer dans les donnees. 
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Figure 22.6 

Le controle grille 
ne ressemble tout 
d'abord pas vraiment 
a une table lorsque 
vous le placez 
sur unefeuille. 



Le controle grille supporte des lignes et des colonnes fixes (voir 
Figure 22.7). Vous pouvez. commander leur nombre. Si vous augmentez le 
nombre de lignes ou de colonnes fixes , la zone grisee augmente d'autant. 



0>* 



Lignes et colonnes fixes indiquent les lignes et les colonnes d'un controle 
grille qui ne defilent pas lorsque I'utilisateur clique sur les barres de 
defilement. Elles permettent d'indiquer des labels decrivant les donnees de la 
grille, un peu comme les numeros et les noms de colonnes et de lignes pour 
une cellule defeuille de calcul. 



Les lignes et les colonnes fixes sont souvent designees comme les en-tetes de lignes et 
de colonnes. 
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Une fois le controle de grille de donnees rempli, les utilisateurs peuvent faire denier les 
donnees et selectionner une ou plusieurs cellules de la grille. Par programmation, vous 
pouvez mettre a jour ou copier les valeurs des cellules selectionnees depuis ou vers 
d'autres cellules, variables ou controles. 



Le controle grille contient toutes sortes d' informations : texte, nombres ou 
meme images. 



Le Tableau 22.2 contient plusieurs proprietes uniques ou importantes du controle grille. 
II ne decrit pas les proprietes deja connues, telles que Height ou Width, ni d'autres plus 
obscures. En les etudiant, vous en apprendrez beaucoup sur la maniere d'utiliser ce 
controle. Nombre d'entre elles se rapportent a la selection des cellules dans les donnees 
tabulaires de la grille. 



Tableau 22.2 : Le controle grille supporte plusieurs proprietes importantes 
lors de la conception 



Propriete 



Description 



AllowBigSelection Permet a l'utilisateur de selectionner une ligne ou une colonne entiere 
par un simple clic de souris. Positionnee a True, cette propriete lui 
permet aussi de cliquer dans l'en-tete pour selectionner la totalite de la 
ligne ou de la colonne. 

AllowUserResizing Determine la liberie donnee a l'utilisateur de redimensionner la largeur et 
la hauteur des colonnes et des lignes. Si cette propriete est parametree a 
f lexResizeNone, l'utilisateur ne peut pas faire de modifications. Si elle est 
a f lexResizeColumns, il peut changer la largeur des colonnes. Si elle est a 
f lexResizeRows, il peut changer la hauteur de ligne. Si elle est parametree 
a f lexResizeBoth, il peut changer la largeur et la hauteur. Selon les 
donnees, l'utilisateur peut avoir besoin de redimensionner les lignes et les 
colonnes pour pouvoir les lire dans le controle. 

Cols Definit le nombre de colonnes du controle grille. 

(Personnalise) 



FillStyle 



FixedCols 



Ouvre la boite de dialogue Pages de proprietes du controle grille (voir 
Figure 22.8). Elle permet de parametrer facilement plusieurs proprietes. 

Specifie le format d'une cellule ou d'un ensemble de cellules. Si elle est 
configuree a f lexFillSingle, la cellule en cours est formatee. Si elle 
est a f lexFillRepeat, toutes les cellules selectionnees seront formatees. 

Indique le nombre de colonnes fixes (qui ne defilent pas) utilisees pour 
les en- teres. 
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Tableau 22.2 : Le controle grille supporte plusieurs proprietes importantes 
lors de la conception (suite) 



Propriete 


Description 


FixedRows 


Indique le nombre de lignes fixes (qui ne defilent pas) utilisees pour les 




en-tetes. 


FocusRect 


Determine comment s'affiche la selection par l'utilisateur de la cellule 




courante. Si cette propriete est parametree a f lexFocusNone, la cellule 




active n'a pas de surbrillance particuliere. Si elle a la valeur 




f lexFocusLight, un contour leger entoure la cellule selectionnee. Si 




elle est a f lexFocusHeavy, la cellule en cours est affichee en 




surbrillance bleue. 




Si vous parametrez la propriete FocusRect a f lexFocusHeavy, la cellule 
ne se detachera pas dans un groupe de cellules selectionnees . 



FormatString Contient une chaine de caracteres qui determine la maniere dont une 

cellule ou un groupe de cellules doivent etre formatees. Voyez la section 
sur la propriete FormatString, plus loin dans ce chapitre. 



GridLines Precise comment doivent se presenter les lignes non fixes de la grille. Si 

cette propriete est parametree a f lexGridNone, il n'y a pas de separation 
des cellules. Si elle est a f lexGridFlat, des lignes grises separent les 
cellules les unes des autres. Si elle est parametree 
a f lexGridlnset, des lignes sombres separent les cellules, 
f lexGridRaised montre les cellules soulevees dans un effet 3D. 



GridLinesFixed Precise l'apparence des lignes fixes de la grille. Si cette propriete est 
parametree a f lexGridNone, il n'y a pas de separation des cellules. 
Si elle est a f lexGridFlat, des lignes grises separent les cellules les 
unes des autres. Si elle est parametree a f lexGridlnset, des lignes 
sombres separent les cellules, f lexGridRaised montre les cellules 
soulevees dans un effet 3D. 



HighLight Determine comment s'affichent les cellules selectionnees. Si cette 

propriete est parametree a f lexHighlightNever, la selection des cellules 
n'apparait jamais a l'ecran. Si elle est a f lexHighlightAlways, les 
cellules selectionnees apparaissent en surbrillance (l'arriere-plan est 
assombri). Si elle est parametree a f lexHighlightWithFocus, les cellules 
selectionnees n'apparaissent que lorsque le controle est actif. 



RowHeightMin Specifie le nombre de twips minimal d'une ligne, interdisant a 

l'utilisateur de la reduire plus. 
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Tableau 22.2 : Le controle grille supporte plusieurs proprietes importantes 
lors de la conception (suite) 



Propriete 


Description 


Rows 


Specifie le nombre de lignes qui s'afficheront dans le controle grille. 


SelectionMode 


Determine comment se produit la selection des cellules. Si cette 




propriete est parametree a f lexSelectionFree, l'utilisateur peut 




selectionner n'importe quel ensemble rectangulaire de cellules. Si elle 




est a f lexSelectionByRow, les cellules sont selectionnees par lignes 




entieres. Si elle est parametree a f lexSelectionByColumn, la selection 




des cellules se fait par colonnes entieres. 


Wordwrap 


Definit si le contenu des cellules peut s'adapter a la modification de la 




largeur ou de la hauteur par l'utilisateur. 



Figure 22.8 

La boite de dialogue 
Pages de proprietes 
permet de parametrer 
facilement les 
proprietes courantes 
du controle grille. 



Pages de proprietes 



General style | Police | Couleur] Picture | 



El 



Rows |@ 
Cols IF 



Fixed Rows 1 



AllowBigSelection P 

~3 



ScrollBars 1 3 - Les deux 
HighLight |l -Toujours 



MousePointer |n - Par defaut ^] 



FillSlyle |0- Simple 
SelectionMode |o - Libre ~~*\ 
FocusRect Jl - Leget AllowUserResizing |o -Aucun ^] 















Of | 


Annuler 




Apphquer 




Aide 















Le controle grille a la particularite de comprendre plusieurs proprietes d' execution qui 
doivent obligatoirement etre parametrees pour qu'il puisse fonctionner. Le Tableau 22.3 
contient de nombreuses proprietes d' execution, dont certaines doivent etre parametrees 
dans votre programme. 

' ) Certaines proprietes de formatage , comme ColAlignment, sont la pour vous 

permettre de contrdler le format a V execution. Pour formater une cellule 
lors de la conception, utilisez la propriete FormatString du Tableau 22.3. 
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Tableau 22.3 : Votre code Visual Basic doit parametrer plusieurs proprietes 
a l'execution 



Propriete 



Description 



CellAlignment 



Col 



ColAlignment 

ColWidth 
Row 



SelEndCol 
SelEndRow 
SelStartCol 
Text 



Definit l'alignement des valeurs a l'interieur des cellules. Si cette propriete 

est parametree a f lexAlignmentTop (0) , le contenu des cellules est aligne 

sur le coin superieur gauche. Si elle est a f lexAlignCenter ( 1 ) , le contenu 

des cellules est aligne a gauche et centre a la verticale. Les autres valeurs de 

constantes nominees qui alignent le contenu des cellules 

de differentes manieres sont : f lexAlignLef tBottom (2) , 

f lexAlignCenterTop (3) , f lexAlignCenterCenter (4), 

f lexAlignCenterBottom (5) , f lexAlignRightTop (6), 

f lexAlignRightCenter (7) , f lexAlignRightBottom (8),et 

f lexAlignGeneral (9) est le comportement par defaut avec des chaines 

alignees a gauche et des nombres alignes a droite. 

Parametre le numero de colonne de la cellule dont vous voulez changer la 
valeur. Une cellule est reperee en partant de 1' intersection de ligne et de 
colonne 0,0 dans le coin superieur gauche. La valeur donnee a la propriete 
Text du controle de grille va dans la cellule definie par la valeur de Col. 

Determine l'alignement des valeurs dans une colonne particuliere en utilisant 
les memes constantes nominees que pour CellAlignment. 

Determine la largeur en twips d'une colonne. 

Configure le numero de ligne de la cellule dont vous voulez changer la 
valeur. Une cellule est reperee en partant de 1' intersection de ligne et de 
colonne 0,0 dans le coin superieur gauche. La valeur donnee a la propriete 
Text du controle de grille va dans la cellule definie par la valeur de Row. 

Specifie le numero de la derniere colonne de droite d'une selection. 

Specifie le numero de la ligne la plus basse de la selection. 

Specifie le numero de la colonne la plus a gauche de la selection. 

Specifie le contenu de la cellule donnee. Vous pouvez assigner a la cellule en 
cours (selectionnee par l'intersection des proprietes Row et Col) une nouvelle 
valeur en l'attribuant a la propriete Text. 



— ' ) De nombreuses autres proprietes de conception et d 'execution existent, mais 
les Tableaux 22.2 et 22.3 listent les plus importantes pour un utilisateur qui 
decouvre le controle grille. 
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Le contenu des cellules est parametre ou lu par la propriete Text, mais cela ne veut pas 
dire que les donnees doivent etre des chaines de caracteres. Vous pouvez assigner des 
valeurs numeriques a la propriete Text ; Visual Basic les convertira en chaines avant de 
faire l'assignation. De meme, vous pouvez assigner une cellule a une variable numerique. 
Visual Basic convertira le texte dans la cellule en nombre avant de faire l'assignation. Si 
la valeur ne peut pas etre convertie en nombre par Visual Basic, une erreur se produira. 

Utiliser le controle grille dans une application 

Une des meilleures manieres de comprendre le controle grille consiste a creer une applica- 
tion qui l'utilise. Les quelques sections suivantes creent une application incluant des 
tableaux multidimensionnels et un controle grille. L' application utilise ce dernier pour 
gerer des cellules selectionnees afin que vous voyiez comment travailler sur une plage de 
cellules. 

Configurer le projet 

La Figure 22.9 montre l'ecran correspondant a l'application que vous allez creer. Le 
controle grille affiche les commissions sur les ventes pour des produits et des personnels de 
vente particuliers. Le nom des vendeurs s' affiche en en-tete de colonne et les noms de 
produits sur la gauche de la grille- 



Figure 22.9 

Le controle grille 
permet une gestion 
facile des commissions 
de vente. 



Utilisation des tableaux et du controle grill 



Diagramme de controle des 
commissions de vente 





Smith 


Johnson 


Lake 


West 




Gadget #1 


2 00 


3.00 


1,00 


5.00 


t 


QadgBt#2 


1,50 


2,00 


2,50 


3,00 




Tube long 


1,33 


1.B7 


2.00 


2.33 


Tube court 


1.25 


1,50 


1.75 


2.00 


Regie en bois 


1.20 


1.40 


1.60 


1.80 


jgle en p 1 asti q 


1.17 


1,33 


1,50 


1.67 


gle en ceoutch 


1.14 


1,29 


1,43 


1.57 


Panier 


1,13 


1.25 


1,38 


1.50 


Boulon 3C 


1.11 


1.22 


1.33 


1.44 


Bou :m 5a 


1.10 


1,20 


1,30 


1.40 


Ecrou 3C 


1.09 


1,18 


1,27 


136 J 


LilJ 



Augmenter de 15 % 



Dimiruer de 15 % 
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Toutes les donnees sont stockees dans un tableau a deux dimensions et transferees dans le 
controle grille. Cette application ne charge pas le tableau initial a partir du disque et ne 
l'enregistre pas a la sortie. L'origine des valeurs du tableau est une serie d' instructions 
d'assignations. Dans une veritable application, vous chargerez et enregistrerez le tableau 
sur disque, probablement dans une base de donnees. Si cette application comprenait toutes 
les entrees/sorties disque, le projet serait trop etendu pour se concentrer efhcacement sur 
les tables et le controle grille 

Les points suivants mettent en evidence l'utilite de cette application : 

• Les barres de defilement peuvent etre utilisees pour augmenter ou diminuer les revenus 
des ventes de tout vendeur sur n'importe quel produit. 

• Le montant d' augmentation ou de diminution peut etre modifie par les barres de 
defilement, ce qui change dynamiquement le titre des boutons. 

• La cellule en cours est la seule qui change quand l'utilisateur augmente ou diminue 
le pourcentage de commission, a moins qu'il ait selectionne une plage de cellules, 
auquel cas le pourcentage sera modifie sur toute la plage. 

• La plupart des valeurs par defaut des proprietes du controle grille fonctionneront 
dans ce projet. Comme d'habitude, Microsoft a choisi les valeurs de proprietes les 
plus courantes comme valeurs par defaut. Vous aurez a parameter des valeurs de 
proprietes a l'execution (comme le decrit la section precedente), mais a la concep- 
tion, il suffira de modifier le nom, le nombre de colonnes et de rangees du controle. 

• Le nombre de vendeurs ou de produits suivis peut etre aisement etendu en changeant 
le nombre de lignes et de colonnes de la table et du controle. II n'est pas besoin de 
modifier l'affichage, du fait des capacites de defilement du controle grille. 

Une fois que vous aurez cree et execute cette application, vous aurez une meilleure notion 
de l'utilisation du controle grille. Vous pourrez aussi voir comment adapter cet exemple 
simplifie a une utilisation dans d'autres applications. 

Creez un nouveau projet et ajoutez les controles et les valeurs de proprietes listes au 
Tableau 22.4. 



Pensez a ajouter le controle grille a la boite a outils avant de commencer a 
travalller sur lafeuille. Ajoutez le controle Microsoft FlexGrid Control 6.0, 
comme cela a ete explique auparavant . 

Une fois ces controles places et leurs valeurs parametrees, vous etes pret a saisir le code. 
N'oubliez pas que les donnees d'origine resideront dans un tableau dont le nombre de 
lignes et de colonnes correspond, par choix de conception, a celui du controle grille. 
Vous savez done deja, au vu du Tableau 22.4 que la table qui alimentera le controle 
grille aura huit colonnes et vingt lignes. 
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Partie III 



Tableau 22.4 : Placez ces controles et ces valeurs de proprietes pour creer 
la feuille de commissions de vente 



Propriete 


Valeur 


Feuille : Name 


f rmSales 


Feuille : Caption 


Utilisation des tableaux et du controle 


grille 


Feuille : Height 


7920 


Feuille : Width 


9180 


Label #1 Name 


lblSales 


Label #1 Alignment 


Center 


Label #1 Caption 


Diagramme de controle des commissions de 


vente 


Label #1 FontSize 


I o 


Label #1 FontStyle 


G r as 


T aV»o 1 #1 Uoi'nh + 

j_,dDci it i neignx 


495 


T • 1 1~\/ -> 1 ■# 1 1 r\ -P +- 

Label ¥ i Lett 


1 200 


Label if 1 I op 


1 200 


Label ffi widtn 


Of I o 


Label #2 Name 


1 hi TnMi n 

X U -L -L 1 1 Ivl-L 1 1 


Label #2 Alignment 




Label ttz Caption 


I ^> 


Label #z FontSize 


o 
o 


T ahH #9 Hpi nht 


255 


Label #2 Left 


960 


Label #2 Top 


5640 


Label #2 Width 


375 


Label #3 Name 


lbllnMax 


Label #3 Alignment 


Center 


Label #3 Caption 


15 % 
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Tableau 22.4 : Placez ces controles et ces valeurs de proprietes pour creer 
la feuille de commissions de vente (suite) 



Propriete 


Valeur 


Label #3 FontSize 


8 


Label #3 Height 


255 


Label #3 Left 


2880 


Label #3 Top 


5640 


Label #3 Width 


375 


Label #4 Name 


lPlDeMin 


Label #4 Alignment 


Center 


Label #4 Caption 


1 % 


Label #4 FontSize 


8 


Label #4 Height 


255 


Label #4 Left 


5160 


Label #4 Top 


5640 


Label #4 Width 


375 


Label #5 Name 


lPlDeMax 


Label #5 Alignment 


Center 


Label #5 Caption 


15 % 


Label #5 FontSize 


8 


Label #5 Height 


255 


Label #5 Left 


7080 


Label #5 Top 


5640 


Label #5 Width 


375 


Controle grille : Name 


grdSales 


Controle grille : Cols 


8 


Controle grille : FocusRect 


f lexFocu 


Controle grille : Height 


3015 
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Tableau 22.4 : Placez ces controles et ces valeurs de proprietes pour creer 
la feuille de commissions de vente (suite) 



Propriete 


Valeur 


Controle grille : Lef t 


I Oz-xJ 


Controle grille : Rows 


c.Vj 


Controle grille : Top 


1 800 


Controle grille : Width 




Barre de defilement horizontale #1 Name 


1 1 o U 1 1 1 U I cdbc 


Barre de defilement horizontale #1 Loft 




Barre de defilement horizontale #1 Max 


1 ^ 


Barre de defilement horizontale #1 Min 




Barre de defilement horizontale #1 Top 




Barre de defilement horizontale #1 Width 




Barre de defilement horizontale #2 Name 


llbUUfcJUl Cdbc 


Barre de defilement horizontale #2 Left 




Barre de defilement horizontale #2 Max 




Barre de defilement horizontale #2 Min 




Barre de defilement horizontale #2 Top 


5280 


Barre de defilement horizontale #2 Width 


2055 


Bouton de commande #1 Name 


0 1 1 IU 1 1 1 U I cdot 


Bouton de commande #1 Caption 


A Ai intnpnt p r* Hp 1R % 

CAAU LJ 1 1 1 C I I L C I UC IvJ o 


Ronton Hp rnmrnnnflp 4f\ upi nhi - 


495 


Bouton de commande #1 Left 


1320 


Bouton de commande #1 Top 


6000 


Bouton de commande #1 Width 


1575 


Bouton de commande #2 Name 


cmdDecrease 


Bouton de commande #2 Caption 


&Diminuer de 15 % 


Bouton de commande #2 Height 


495 
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Tableau 22.4 : Placez ces controles et ces valeurs de proprietes pour creer 
la feuille de commissions de vente (suite) 



Propriete 


Valeur 


Bouton de commande #2 Left 


CCOffl 


Bouton de commande #2 Top 




Rr^nton Hp ^*^\mtn^^Tl^^ z, it/ \AH H+h 

JJUULUll UC CUIlllllctllUC ttZ. VVJ.U UN 


1575 


Bouton de commande #3 Name 


cmdExit 


Bouton de commande #3 Caption 


&Quitter 


Bouton de commande #3 Height 


495 


Bouton de commande #3 Left 


3720 


Bouton de commande #3 Top 


6720 


Bouton de commande #3 Width 


1215 



Comprendre le code 

Le Listing 22.4 contient le code d'initialisation des valeurs generales du programme. 
C'est une procedure de commande qui, au chargement de la feuille, execute, par des 
instructions Call, d'autres sous-routines. La majeure partie du code s'occupe de 
Initialisation des en-tetes de la grille avec les noms des vendeurs en colonne et les 
produits en lignes. 



Le Listing 22.4 montre un bel exemple de programmation structuree. Si vous 
avez plus tard des modifications a apporter au programme , vous n 'aurez pas 
a patauger dans plusieurs pages de code d'une procedure. Les procedures 
appelees ont au contraire chacune un objet. Vous pouvez modifier plus faci- 
lement les actions d'une procedure sans interferer avec du code sans 
rapport. 



La programmation structuree est une pratique qui consiste a placer le code 
correspondant a un objectif precis dans une sous-routine, puis a appeler ce 
code a partir d'une procedure de commande. 
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Listing 22.4 : La procedure Form_Load() initialise plusieurs valeurs a l'aide 
de sous-routines 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



Private Sub Form_Load() 

Definit la justification des cellules de la grille 
et assigne les titres des cellules a la ligne fixe et 
les en-tetes de colonnes. Initialise en outre la table 
des valeurs et l'envoie au controle grille. 



Call InitScrolls 
Call CenterCells 
Call SizeCells 
Call Titles 
Call FillCells 
End Sub 



Initialise les barres de defilement 

Centre les cellules 

Specifie la largeur des cellules 
1 Place les titres de colonne et de ligne 
1 Remplit les cellules 



Vous pouvez determiner d'un coup d'ceil ce que fait Form_Load ( ) en regardant les routi- 
nes appelees aux lignes 7 a 1 1 . Si le code appele ne se trouvait pas dans des procedures 
separees, mais incorporees dans Form_Load ( ) , il serait beaucoup plus difficile de retrou- 
ver plus tard le code que vous voulez modifier. 

Le Listing 22.5 contient le code des trois premieres procedures appelees : lnitScroll( ) , 
CenterCells ( ) et SizeCells ( ) . Comme toutes les sous-routines generales, ces procedures 
doivent apparaitre avant Form_Load( ) , pour qu'elles resident dans le module (General) 
de la fenetre de code. 



Listing 22.5 : Les trois premieres procedures appelees par Form_Load() 
sont utilisees pour configurer la grille 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



Private Sub InitScrolls( ) 

Configure les deux barres de defilement 
a leur valeur maximale. Meme si ces valeurs sont 
configurees dans la fenetre Proprietes, cette proce- 
dure permet de modifier plus facilement les valeurs 
maximales des barres de defilement s'il en est besoin. 

hsclncrease. Value = 15 
hscDecrease. Value = 15 
End Sub 

Private Sub CenterCells( ) 

' Configure la justification des cellules 

1 en alignement centre. Assurez-vous de centrer 

' les en-tetes de ligne et de colonne. 

Dim Column As Integer 
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19: 1 Commence pan centnen les cellules d'en-tetes 
20: Fon Column = 0 To 7 

21: gndSales.Col = Column ' configune la colonne counante 

22: 1 Centne les cellules fixes de cette colonne 

23: grdSales.ColAlignment(Column) = f lexAlignCenterCenter 

24: Next Column 

25: End Sub 

26: 

27: Private Sub SizeCells() 

28: ' Specifie la largeur de chaque cellule 

29: Dim Column As Integer 

30: For Column = 0 To 7 

31: grdSales.ColWidth (Column) = 1100 ' En twips 
32: Next Column 
33: End Sub 

La procedure lnitScrolls( ) n'est pas vraiment necessaire, car vous avez configure les 
positions maximales dans la fenetre Proprietes lorsque vous avez place les barres de 
defilement dans la feuille. Cependant, comme cette application change la valeur maxi- 
male des barres de defilement a la demande de l'utilisateur, vous pouvez facilement en 
restaurer les valeurs initiales a partir du code sans avoir a rechercher chaque fois la 
propriete Max . 

La procedure CenterCells( ) centre toutes les valeurs des cellules de la grille. La propriete 
ColAlignment exige un numero de colonne a centrer en indice, fourni en ligne 23. Enfin, la 
procedure SizeCells ( ) a la ligne 27 configure toutes les largeurs de colonnes a 1 100 twips 
en parcourant la grille et en appliquant la propriete ColWidth a chaque colonne (ligne 31). 

Le Listing 22.6 montre l'ennuyeux code d'initialisation de la grille. En fait, la majeure 
partie initialise les titres de la grille, puis remplit une table de valeurs avant de les copier 
dans la grille. Le tableau a deux dimensions est une zone de stockage intermediate qui 
n'est pas vraiment utile dans cette application particuliere. Cependant, en etudiant le 
code, vous pourrez voir a quel point il est aise d'afficher les informations d'un tableau 
multidimensionnel avec un controle grille. 

Listing 22.6 : Vous devez initialiser les en-tetes de la grille et les cellules 
de donnees 

1 : Private Sub Titles () 

2: 1 Remplissage des titres de colonnes 

3: ' Habituellement, ces donnees proviennent d'une table de base de donnees 

4: grdSales.Row = 0 ' Tous les noms des vendeurs sont a la ligne 0 

5: grdSales.Col = 1 

6: grdSales.Text = "Smith" 

7: grdSales.Col = 2 

8: grdSales.Text = "Johnson" 
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Listing 22.6 : Vous devez initialiser les en-tetes de la grille et les cellules 
de donnees (suite) 



9: grdSales.Col = 3 

10: grdSales.Text = "Lake" 

11 : grdSales.Col = 4 

12: grdSales.Text = "West" 

13: grdSales.Col = 5 

14: grdSales.Text = "Gates" 

15: grdSales.Col = 6 

16: grdSales.Text = "Kirk" 

17: grdSales.Col = 7 

18: grdSales.Text = "Taylor" 

19: 1 Maintenant, remplir les produits 

20: grdSales.Col = 0 ' Tous les noms de produits sont a la colonne 0 

21 : grdSales.Row = 1 

22: grdSales.Text = "Gadget #1" 

23: grdSales.Row = 2 

24: grdSales.Text = "Gadget #2" 

25: grdSales.Row = 3 

26: grdSales.Text = "Tube long" 

27: grdSales.Row = 4 

28: grdSales.Text = "Tube court" 

29: grdSales.Row = 5 

30: grdSales.Text = "Regie metallique" 

31 : grdSales.Row = 5 

32: grdSales.Text = "Regie en bois" 

33: grdSales.Row = 6 

34: grdSales.Text = "Regie en plastique" 

35: grdSales.Row = 7 

36: grdSales.Text = "Regie en caoutchouc" 

37: grdSales.Row = 8 

38: grdSales.Text = "Panier" 

39: grdSales.Row = 9 

40: grdSales.Text = "Boulon 3C" 

41 : grdSales.Row = 10 

42: grdSales.Text = "Boulon 5A" 

43: grdSales.Row = 11 

44: grdSales.Text = "Ecrou 3C" 

45: grdSales.Row = 12 

46: grdSales.Text = "Ecrou 5A" 

47: grdSales.Row = 13 

48: grdSales.Text = "Clou #12" 

49: grdSales.Row = 14 

50: grdSales.Text = "Clou #15" 

51 : grdSales.Row = 15 

52: grdSales.Text = "Clou #16" 

53: grdSales.Row = 16 

54: grdSales.Text = "CEillet #4" 

55: grdSales.Row = 17 

56: grdSales.Text = "CEillet #6" 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 



grdSales.Row = 18 
grdSales.Text = "CEillet #8" 
grdSales.Row = 19 
grdSales.Text = "Joint" 
End Sub 

Private Sub FillCells() 

Remplit les 160 cellules avec des valeurs 
calculees a partir des valeurs de ligne et de colonne 
Meme si ces donnees n'ont aucun sens, elles permettent 
d'inserer rapidement des donnees dans le tableau et la grille. 

Ces donnees proviennent normalement d'une base de donnees. 

Declarer un tableau de 20 lignes et 7 colonnes qui 
correspond a la grille sur la feuille. Les indices 
sont en base zero, car la grille les utilise aussi. 
Dim curData(19, 7) As Currency 
Dim Row As Integer 
Dim Column As Integer 

1 Remplir la table de donnees 
For Row = 1 To 19 

For Column = 1 To 7 
curData(Row, Column) = ((Row + Column) / Row) 

Next Column 
Next Row 

' Copier le contenu de la table dans la grille 
For Row = 1 To 19 
For Column = 1 To 7 

grdSales.Row = Row 

grdSales.Col = Column 

grdSales.Text = Format(curData(Row, Column), "###.00") 
Next Column 
Next Row 
End Sub 



La longue liste ^assignations des lignes 4 a 60 ne sert qu'a placer les noms des vendeurs 
et des produits dans les en-tetes de colonnes et de lignes de la grille. Lorsque vous 
travaillez sur une grille, il n'y a pas grand-chose d'autre a faire pour 1' initialisation des 
en-tetes. Ces informations proviennent souvent d'une base de donnees et vous chargerez 
alors les en-tetes a partir d'une table de la base. Dans le cas de cette application simple, 
les assignations sont necessaires. 

Les lignes 79 a 83 remplissent la table, dont le nombre de lignes et de colonnes corres- 
pond a celui de la grille. Les donnees sont en fait un calcul realise a partir des numeros 
de lignes et de colonnes, qui ne sert qu'a placer des valeurs differentes dans les elements 
du tableau. Ce dernier agit comme une zone de stockage temporaire pour les valeurs de 
la grille et n'est pas indispensable a cette application. II permet cependant d'etudier 
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l'initialisation d'un tableau a partir de boucles imbriquees. Comme des sections 
precedentes de cette lecon l'ont explique, les boucles imbriquees fonctionnent bien pour 
parcourir les tableaux multidimensionnels. Bien sur, etant donne qu'une grille fonctionne 
pratiquement comme une table, les lignes 85 a 91 utilisent des boucles imbriquees pour 
copier les donnees dans le controle grille. 

Remarquez que la ligne 89 utilise lafonction interne Format ( ) pour formater 
les donnees afin qu'elles s'qffichent dans la grille en francs et en centimes. Vous 
apprendrez un peu plus loin comment utiliser la propriete de grille Format - 
String ( ) pour configurer le format des cellules. 

Le reste du code s'occupe de controler les reactions de l'application aux clics de l'utili- 
sateur sur les boutons de commande et les barres de defilement qui apparaissent sous la 
grille. lis controlent les diverses augmentations et diminutions du prix des commissions. 
Par exemple, si la commission d'un produit d'un vendeur particulier doit croitre ou 
decroitre, l'utilisateur peut selectionner cette cellule et cliquer sur la barre de defilement 
pour ne modifier que celle-ci. De plus, les boutons de commande Augmenter de 15 % et 
Diminuer de 15 % permettent de mettre en place une modification fixe de 15 % de la 
commission selectionnee. Le Listing 22.7 montre le code qui permet ces modifications. 

Listing 22.7 : Les commissions sont affectees en fonction du controle choisi 
par l'utilisateur 

1: Private Sub hscDecrease_Change() 

2: ' Modifie le titre du bouton de commande 

3: cmdDecrease. Caption = "&Diminuer de " & Str(hscDecrease. Value) & " %" 

4: End Sub 

5: 

6: Private Sub hscIncrease_Change() 

7: 1 Modifie le titre du bouton de commande 

8: cmdlncrease. Caption = "&Augmenter de " & Str(hsclncrease. Value) & " %" 

9: End Sub 
10: 

11: Private Sub cmdIncrease_Click( ) 

12: ' Augmente les valeurs des cellules selectionnees 

13: ' en augmentant le pourcentage de la barre de defilement 

14: Dim SelRows As Integer 

15: Dim SelCols As Integer 

16: Dim SelStartRow As Integer 

17: Dim SelStartCol As Integer 

18: Dim RowBeg As Integer 

19: Dim ColBeg As Integer 

20: 

,21: If (grdSales.HighLight) Then ' Si selectionne. . . 

22: 1 Enregistrer les valeurs de cellules selectionnees 

23: SelStartRow = grdSales.RowSel 
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24: SelStartCol = grdSales.ColSel 

25: RowBeg = grdSales.Row 

26: ColBeg = grdSales.Col 

27: 1 Parcourir toutes les cellules selectionnees 

28: For SelRows = RowBeg To SelStartRow 

29: For SelCols = ColBeg To SelStartCol 

30: grdSales.Row = SelRows 

31: grdSales.Col = SelCols 

32: ' Augmenter la cellule du montant de la barre de defilement 

33: grdSales.Text = grdSales.Text + (hsclncrease. Value / 

100 * grdSales.Text) 

34: grdSales.Text = Format(grdSales.Text, "####.00") 

35: Next SelCols 

36: Next SelRows 

37: ' Restaurer la selection en surbrillance 

38: grdSales.Row = RowBeg 

39: grdSales.Col = ColBeg 

40: grdSales.RowSel = SelStartRow 

41: grdSales.ColSel = SelStartCol 

42: End If 

43: End Sub 

44: 

45: Private Sub cmdDecrease_Click( ) 

46: ' Diminue les valeurs des cellules selectionnees 

47: ' en diminuant le pourcentage de la barre de defilement 

48: Dim SelRows As Integer 

49: Dim SelCols As Integer 

50: Dim SelStartRow As Integer 

51 : Dim SelStartCol As Integer 

52: Dim RowBeg As Integer 

53: Dim ColBeg As Integer 

54: 

55: If (grdSales.HighLight) Then ' Si selectionne. . . 

56: ' Enregistrer les valeurs de cellules selectionnees 

57: SelStartRow = grdSales.RowSel 

58: SelStartCol = grdSales.ColSel 

59: RowBeg = grdSales.Row 

60: ColBeg = grdSales.Col 

61 : 1 Parcourir toutes les cellules selectionnees 

62: For SelRows = RowBeg To SelStartRow 

63: For SelCols = ColBeg To SelStartCol 

64: grdSales.Row = SelRows 

65: grdSales.Col = SelCols 

66: ' Diminuer la cellule du montant de la barre de defilement 

67: grdSales.Text = grdSales.Text - (hscDecrease. Value / 

100 * grdSales.Text) 

68: grdSales.Text = Format(grdSales.Text , "####.00") 

69: Next SelCols 

70: Next SelRows 

71 : 1 Restaurer la selection en surbrillance 

72: grdSales.Row = RowBeg 

73: grdSales.Col = ColBeg 
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74 
75 
76 
77 
78 
79 
80 
81 
82 



grdSales.RowSel = SelStartRow 
grdSales.ColSel = SelStartCol 
End If 
End Sub 

Private Sub cmdExit_Click( ) 
1 Terminer 1' application 
End 

End Sub 



Les fonctions hscDecrease_Change( ) et hsclncrease_Change( ) ne servent qu'a modifier 
la propriete Caption du bouton de commande correspondant quand l'utilisateur clique 
sur la barre de defilement. Les barres de defilement determinent de quelle quantite le 
bouton augmentera ou diminuera les valeurs. 

Meme si le reste du code, a partir de la ligne 11, est assez long, les deux procedures 
importantes, cmdlncrease_Click( ) et cmdDecrease_Click( ) , font essentiellement la 
meme chose, si ce n'est que Tune augmente la valeur des cellules selectionnees, tandis 
que 1' autre la reduit. 

Si l'utilisateur ne selectionne qu'une cellule avant de cliquer sur un bouton 
de commande, seule cette cellule changera quand la procedure Click des 
boutons de commande s'executera. 

Etant donnees les similitudes de ces deux grosses procedures, 1' analyse se limitera a 
cmdlncrease_Click( ) . La ligne 21 s'assure que l'utilisateur a selectionne au moins une 
cellule avant d'effectuer 1' augmentation de la valeur des cellules. Dans le cas contraire, 
rien ne se produit. Les lignes 23 a 26 enregistrent la zone rectangulaire de la selection. 
Cette plage est definie par le numero de ligne et de colonne de la cellule en cours (la 
cellule en haut a gauche de la selection), et du numero de ligne et de colonne de la fin de 
la selection. 

Les lignes 28 et 29 utilisent une boucle For imbriquee pour parcourir toutes les cellules 
de la selection. Chaque cellule est augmentee de la valeur de la barre de defilement, qui 
definit le pourcentage de modification des boutons de commande. Les lignes 38 a 41 
restaurent la selection, car si vous changez les valeurs Row et Col de la grille, toute selec- 
tion est effacee ; les valeurs Row et Col determinent la cellule active en remplacant la 
zone selectionnee. Les lignes 40 et 41 utilisent RowSel et ColSel pour remettre la selection 
a sa place d'origine. 
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Executer I'application 

Maintenant que vous avez cree I'application et ajoute le code, vous pouvez executer le 
programme. Au premier abord, le sens des barres de defilement peut ne pas vous appa- 
raitre, ni la maniere dont elles sont liees aux boutons de commande mais, apres avoir 
effectue les taches suivantes, vous apprendrez vite le fonctionnement du programme : 

1 . Cliquez sur la barre de defilement de gauche pour en diminuer la position (deplace- 
ment a gauche). Remarquez que la propriete Caption du bouton de commande situe 
sous la barre change. 

2. Cliquez sur une cellule pour la selectionner dans la grille. 

3. Cliquez sur le bouton de commande de droite pour voir la valeur de cette cellule 
diminuer de 15 %. 

4. Selectionnez une plage de cellules (voir Figure 22.10) 

5. Cliquez sur le bouton de commande de gauche pour modifier les cellules selec- 
tionnees de la valeur affichee sur le bouton de commande. La selection reste affichee 
pour le cas ou vous voudriez continuer a augmenter les commissions de la plage de 
cellules. 

6. Selectionnez une autre plage et diminuez-en les valeurs. 

7. Cliquez sur Quitter pour terminer le programme.. 



Figure 22.10 

Quel que soit 
le nombre de cellules 
selectionnees, vous 
pouvez augmenter ou 
diminuer les valeurs 
de la selection 
en cliquant sur 
un bouton. 
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La propriete FormatString 

Au lieu d'utiliser la fonction interne Format ( ) pour formater les donnees lorsque vous 
les placez sur une grille, vous pouvez parameter le format d'une cellule ou d'une plage 
de maniere que toutes les donnees placees ulterieurement soient formatees de maniere 
conforme. La propriete FormatString du controle grille demande une donnee chaine 
definissant l'apparence du contenu de la cellule. Si FormatString est assez obscure au 
debut, une fois maitrisee, elle permet de formater les donnees de grille plus vite. 

Vous pouvez entrer une valeur FormatString dans la boite de dialogue Pages 
de proprietes qui s'affiche quand vous cliquez sur la propriete (Personna- 
lise) du controle grille. Cliquez sur Vonglet Style et entrez la valeur dans la 
zone de texte Format. Vous pouvez aussi assigner la propriete FormatString 
directement, comme le montre cette section. 

Une des meilleures caracteristiques de FormatString est qu'elle permet de parametrer 
les en-tetes de lignes et de colonnes, ce qui evite d'avoir a assigner des valeurs comme 
dans l'application de la section precedente. 

Les regies suivantes determinent le contenu de la propriete FormatString : 

• Le symbole separateur (I) separe les differents segments de FormatString. 

• Chaque segment definit une colonne. 

Le texte de chaque segment se comporte comme la valeur d'en-tete de la ligne 0. 

• Le texte de chaque segment definit la largeur de cette colonne sur la grille. 

• Le caractere < justifie a gauche le texte du segment, A le centre, et > le cadre a droite. 

• Le texte qui suit un point- virgule (;) definit les en-tetes de colonne 0, affiches a 
gauche de la ligne. 

• Le texte de l'en-tete de ligne le plus long determine la largeur des titres de la colonne 0. 

Le nombre de segments determine le nombre maximum de colonnes de la grille. 

Si la propriete FormatString definit les lignes et les colonnes, comme les en-tetes et leur 
largeur, vous devez toujours dimensionner le controle grille dans la fenetre feuille pour 
que l'utilisateur voie toutes les lignes et les colonnes. FormatString ne peut en aucun 
cas redimensionner la grille. 

L'exemple suivant genere la grille illustree a la Figure 22.1 1 : 

8 Dim strCol As String 
Dim strRow As String 
' Definit les en-tetes de colonne de la grille 
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' Le symbole " entraine le centrage de tous les en-tetes 
1 qui suivent. Le symbole de separation definit chaque 
' colonne. 

strCol = " A | Smith | Johnson | Lake | West | Gates | Kirk | Taylor " 
' Definit les en-tetes de ligne de la grille en creant une 
' chaine. Le point-virgule indique a VB de definir ces 
1 valeurs en tant qu'en-tetes de ligne. 
strRow = ";|Gadget #1 | Gadget #2 | Tube long | Tube court |" 
strRow = strRow & "Regie metallique| Regie en bois | Regie en 
plastique | " 

strRow = strRow & "Regie en caoutchouc |Panier|Boulon 3C|Boulon 
5A| " 

strRow = strRow & "Ecrou 3C|Ecrou 5A|Clou #12|Clou #15|" 
strRow = strRow & "Clou #16|CEillet #4|CEillet #6|" 
strRow = strRow & "(Eillet #8 1 Joint" 
' Formate la grille en assignant les deux chaines 
grdSales.FormatString = strCol & strRow 



Figure 22.11 

Utilisez la propriete 
FormatString pour 
formater les en-tetes 
de ligne et de colonne 




La grille est identique a celle qui a ete creee dans 1' application precedente, a la diffe- 
rence que les largeurs des colonnes de la grille de la Figure 22.11 sont les largeurs de 
leur en-tete respectif . 

FormatString permet a I 'evidence d'eliminer de nombreuses lignes de code 
lourd dans V application precedente . Le Listing 22.6 contient de nombreuses 
instructions d' assignation des en-tetes de ligne et de colonne. La propriete 
FormatString peut prendre en charge les en-tetes bien plus efficacement. 
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Enregistrer des images dans le controle grille 



Le controle grille permet d'enregistrer des images bitmap et des icones dans les 
cellules en utilisant la propriete CellPicture. Pour placer une image dans une cellule 
quelconque, suivez ces etapes : 

1. Assignez les proprietes Row et Col a l'indice de la cellule dans laquelle vous voulez 
voir s'afficher 1' image. 

2. Assignez les proprietes ColWidth et RowHeight a la largeur et a la hauteur de l'image 
pour controler la taille de l'image. 

3. Assignez l'image a la propriete CellPicture. 

Vous ne pouvez pas assigner une image lors de la conception. 



Si vous placez d'abord votre image dans un controle image de lafeuille en 
parametrant sa propriete Visible a False, vous pouvez assigner le controle 
image a la cellule au lieu d' avoir a utiliser LoadPicture ( ) en specifiant le 
nom de fichier exact de l'image a placer dans la cellule. Le controle image 
permet de parametrer plus facilement la largeur et la hauteur de la cellule 
pour qu'elles correspondent a l'image. 

Supposons que vous voulez placer une image dans la cellule en haut a gauche du 
controle grille. Cette cellule ne contient, en general, pas de texte d'en-tete. Le code 
suivant permet de le faire : 

' Rend la cellule en haut a gauche courante 
grdSales.Row = 0 
grdSales.Col = 0 

' Parametre la hauteur et la largeur de la cellule 
1 pour qu'elle corresponde a l'image 
grdSales.ColWidth(0) = Imagel .Width 
grdSales.RowHeight(0) = Imagel .Height 
' Assigne l'image a la cellule 
Set grdSales. CellPicture = Imagel .Picture 

Remarquez qu'il faut utiliser une instruction Set pour assigner l'image a la cellule. 
Une instruction d'assignation normale ne suffit pas, car seul le chemin d'acces a 
l'image serait assigne dans ce cas a la cellule. La Figure 22.12 montre a quoi cela peut 
ressembler. 
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Figure 22.12 
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En resume 

Cette lecon supplementaire vous a explique comment configurer des tableaux multidi- 
mensionnels pour vous permettre de gerer plus facilement les donnees. Le tableau 
multidimensionnel le plus courant, la table a deux dimensions, apparait dans de 
nombreux types de situations ou vous devez suivre des lignes et des colonnes de 
donnees, lorsque vous avez, par exemple, a gerer un systeme d'inventaire des prix. 
Visual Basic permet de suivre jusqu'a soixante dimensions de donnees, mais vous aurez 
rarement a gerer plus de trois ou quatre dimensions. 

Une maniere simple de representer les donnees de tableaux est le controle grille. II en 
existe plusieurs types que vous trouverez dans la boite de dialogue Composants qui s'affi- 
che quand vous selectionnez l'option de menu Projet, Composant. Le controle FlexGrid 
en est un exemple des plus classiques. Cette lecon vous a explique comment le configurer 
et le gerer. 
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Questions-reponses 

Q Comment puis-je savoir ce que representent les indices quand je declare un 
tableau a quatre ou cinq dimensions ? 

R Chaque indice peut representer ce que vous souhaitez lui faire representer. Par exem- 
ple, dans un tableau a deux dimensions, le premier indice n'a pas a indiquer des 
lignes, ni le second des colonnes ; vous pouvez aussi bien les inverser. Ce n'est que 
l'approche la plus courante de dire que l'indice de droite represente les colonnes, 
l'indice a sa gauche des lignes, et l'indice a leur gauche des couches de tables 
(comme dans un cube). Mais il est conseille de suivre ce standard. Si une autre 
personne doit un jour faire de la maintenance sur votre code, vous lui simplifiez le 
travail en suivant les conventions d'utilisation des valeurs de tableaux. 

Meme si les gens ne visualisent pas clairement plus de trois dimensions, un 
quatrieme indice peut permettre de garder une trace du nombre de tableaux a trois 
dimensions reserves par les trois indices de droite. Un cinquieme indice pourrait 
alors representer le nombre de groupes de tableaux a trois dimensions, etc. Si vous 
augmentez le nombre de dimensions au-dela de trois, votre programmation n'en 
devient pas pour autant beaucoup plus difficile, mais se representer chaque indice 
peut l'etre. 

Q Aurai-je souvent a utiliser un tableau de plus de trois ou quatre dimensions ? 

R Rarement et peut-etre meme jamais. 

Q Si je n'utilise probablement jamais des tableaux multidimensionnels de plus de 
trois ou quatre dimensions, pourquoi les etudier ? 

R En fait, quand vous comprendrez les tableaux a plusieurs dimensions (et que vous 
decouvrirez que l'ajout d'une nouvelle dimension, en termes de stockage machine, ne 
fait que vous donner des occurrences supplementaires du tableau que les dimensions 
precedentes declarent), vous n'aurez pas ajoute tant de complexity que cela. Le fait 
que vous n'utilisiez que peu des tableaux de plus de quatre dimensions ne signifie 
pas qu'il ne faut pas apprendre combien il est simple d'ajouter une dimension. 
Cependant, n'oubliez pas que chaque dimension multiplie d'autant la quantite de 
memoire que vous utilisez. Ne declarez pas un tableau trap important sans prendre 
en compte la memoire disponible sur la machine de destination. Certaines applications 
de modelisation scientifique et mathematique exigent plusieurs dimensions. Si vous 
programmez dans des domaines techniques, vous risquez d'avoir a utiliser cinq 
dimensions, ce qui sera moins probable si vous n'ecrivez que des applications de 
gestion. 



> 



728 



Chapitre 22 : Tableaux multidimensionnels 



Q Puis-je utiliser FormatString pour ajouter des donnees au controle grille ? 

R Non. FormatString ne sert qu'a ajouter des valeurs d'en-tete de ligne et de colonne a 
la grille. Vous devez assigner les valeurs de donnees qui s'affichent a l'interieur de la 
grille. 

Atelier 

L' atelier propose une serie de questions qui vous aident a renforcer votre compre- 
hension des elements traites, ainsi que des exercices qui vous permettent de mettre en 
pratique ce que vous avez appris. Essayez de comprendre les questions et les exercices 
avant de passer a la lecon suivante. Les reponses se situent a l'Annexe A. 

Quiz 

1 . Vrai ou faux. Tous les elements d'une ligne d'un tableau multidimensionnel doivent 
etre du meme type, mais les differentes lignes peuvent etre de type different. 

2. Etant donne la declaration suivante d'un tableau multidimensionnel, quel indice — le 
premier, le second ou le troisieme — specifie habituellement les lignes ? 

Dim sngArray(8, 9, 10) 

3. Etant donne le tableau d'entiers suivant (nomme intAra), quelles valeurs represen- 
tent les elements suivants, en considerant qu'une instruction Option Base 1 est 
presente dans le programme ? 

a. intAra(1, 1) 

b. intAra(3, 2) 

c. intAra(2, 3) 
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4. Vrai ou faux. Visual Basic supporte jusqu'a soixante dimensions. 

5. Vrai ou faux. Vous pouvez utiliser la fonction Array () pour initialiser un tableau 
multidimensionnel a l'aide d'une instruction. 

6. Quel type de controle est bien adapte a l'affichage de donnees de tables ? 
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7. A quoi servent les lignes et les colonnes fixes d'un controle grille ? 

8. Comment pouvez-vous assigner les cellules d'une table aux cellules d'un controle 
grille ? 

9. Vrai ou faux. Pour assigner une image a une cellule, vous pouvez utiliser la propriete 
CellPicture a la conception, comme vous le faites pour d'autres controles. 

10. Qu'est-ce qui est le plus efficace ? Utiliser FormatString ou des instructions desi- 
gnation pour configurer les en-tetes de la grille. 

Exercices 

1 . Calculez le nombre d'elements que reservent les instructions suivantes : 

B Option Base 1 
Dim intAra(4, 7) As Integer 

2. Si vous omettez l'instruction Option Base dans le module de declaration de la proce- 
dure, calculez le nombre d'elements reserves par l'instruction suivante : 

Dim intAra(4, 7) As Integer 

3. Modifiez 1' application de grille des vendeurs de cette lecon pour que les valeurs de 
la grille soient recrites dans la table avant que le programme se termine. Meme si on 
ne fait rien de cette table, cet exercice est une bonne maniere de montrer la relation 
univoque entre la table et la grille. II fournit aussi un endroit ou vous pourriez ecrire 
ces valeurs dans une base de donnees si vous aviez besoin de sauvegarder les modi- 
fications de commissions faites par l'utilisateur. 
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L'API Windows 



Cette lecon supplementary decrit comment acceder aux routines internes de Windows. 
Si Visual Basic est capable de faire a peu pres tout ce que vous voulez, certaines applica- 
tions exigent des caracteristiques qui ne peuvent etre obtenues qu'au prix d'une program- 
mation lourde. Cependant, vous pouvez utiliser dans votre application Visual Basic des 
routines deja disponibles ailleurs dans Windows — comme celles que vous pouvez ecrire 
en C ou C++ et enregistrer dans des DLL. 

En exploitant ces routines de Windows, vous pouvez etendre la puissance de Visual 
Basic et lui faire effectuer certaines fonctions que seul Windows a reellement autorite a 
executer. Cette lecon decrit de nombreuses routines utiles et la maniere d'y acceder. Si 
votre application doit gerer un curseur de Windows, par exemple, il existe deja des 
routines internes pour cela ; il peut done etre plus simple d'y faire appel depuis votre 
application Visual Basic. 

Vous apprendrez aujourd'hui : 

ce qu'est 1' API Windows ; 

• pourquoi votre application peut avoir besoin de routines Windows absentes de 
Visual Basic ; 

• les DLL (Dynamic Link Library) ; 

• comment connecter Visual Basic aux routines de 1' API Windows avec l'instruction 
Declare ; 
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plusieurs nouvelles procedures utilisables avec les routines de 1' API Windows ; 

• comment eviter les problemes en specifiant des routines de l'API ; 

• comment interpreter et utiliser les nouveaux types d'arguments qu'exigent les routi- 
nes de l'API Windows ; 

• comment creer des fonctions d'appel des routines API les plus courantes pour que 
votre application Visual Basic y accede plus facilement. 



L'API Windows 

L'API Windows est un ensemble de routines a la disposition du programmeur Visual 
Basic. D'une certaine maniere, ces routines de l'API fonctionnent comme les fonctions 
internes de Visual Basic. Quand vous avez besoin d'utiliser le code d'une routine de 
l'API, votre programme Visual Basic l'appelle. Quand l'API Windows se termine, le 
controle revient a votre programme pour lui permettre de continuer. 

Pratiquement, tout ce que vous pouvez faire dans Windows est realisable dans un 
programme Visual Basic en appelant la routine de l'API Windows adaptee. Vous pouvez 
meme declencher une reinitialisation de la machine. 



L'API Windows (Application Programming Interface, ou interface de 
programmation d' application, est un ensemble de routines de Windows que 
vous pouvez appeler depuis Visual Basic. 

Toutes les routines de l'API Windows sont enregistrees dans des fichiers particuliers 
nommes DLL. Plusieurs milliers de routines de l'API sont disponibles. Elles se situent dans 
des fichiers enregistres dans les dossiers Windows et Windows\System. Les fichiers DLL 
sont installes avec Windows ; vous avez done automatiquement acces a ces bibliotheques. 

Une DLL, (Dynamic Link Library), ou bibliotheque de liens dynamiques, est 
un ensemble de routines de l'API disponibles aux applications ecrites en 
Visual Basic ou en un autre langage qui supporte V utilisation des DLL. 

La plupart des DLL ont une extension de nom de fichier .DLL ou .EXE. Tout 
programme que vous ecrivez a acces aux DLL de Windows. Elles faisaient deja partie 
des versions anterieures de Windows (avant Windows 95) , mais leur nom ne comportait 
pas "32", ce qui signale qu'elles sont compatibles 32 bits. Les versions anterieures a 
Windows 95 etaient compatibles 16 bits, ce qui signifie que les donnees transitaient 
dans le systeme 16 bits (soit deux octets) a la fois. La programmation sous un environ- 
nement 32 bits procure une souplesse, une vitesse et une efficacite superieures. 
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Voici les trois DLL les plus courantes : 

• USER32DLL. Elle contient des fonctions qui controlent l'environnement Windows et 
l'interface utilisateur, par exemple les curseurs, les menus et les fenetres. 

• GDI32.DLL. Elle contient des fonctions qui controlent les sorties a l'ecran et sur 
d'autres peripheriques. 

• KERNEL32.DLL. Elle contient des fonctions qui commandent l'interface materiel 
et logiciel interne de Windows. La plupart des routines de service de memoire, de 
fichier et de repertoire se situent dans KERNEL32.DLL. 



mow 



Kernel signifie Noyau, et GDI (Graphics Device Interface), interface de 
peripherique graphique. 



Windows est un systeme d' exploitation en plusieurs couches, qui commence 
avec cede que voit I'utilisateur (l'interface utilisateur graphique ou GUI), et 
qui se termine avec la couche la plus proche du materiel, qui controle leflux 
des donnees entre les programmes et le materiel. Cette couche basse du 
systeme d' exploitation est nommee le noyau (kernel). D'ou le nom 
KERNEL32 .DLL donne a la bibliotheque de liens dynamiques contenant les 
routines du noyau. 



Ces trois fichiers contiennent la majorite des routines, ou fonctions, de l'API que vous 
pouvez appeler depuis vos applications Visual Basic. Si vous parcourez les dossiers 
Windows et Windows\System, vous verrez d'autres DLL, par exemple COMDLG.DLL, 
MAPI32.DLL, NETAPI32.DLL et WINMM.DLL. Chaque fois que Microsoft ajoute 
des fonctionnalites au systeme d' exploitation, de nouvelles DLL apparaissent. 

Les DLL ne sont pas uniquement des parties de Windows. Lorsque vous ajoutez de 
nouvelles applications au systeme, elles fournissent souvent leurs propres DLL. Au fur 
et a mesure des installations , de nombreux fichiers DLL apparaissent dans la machine. 
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Les DLL vous donnent un pouvoir sur votre systeme bien plus important que 
celui que propose normalement Visual Basic. Quand vous utilise z une 
fonction de l'API Windows, vous travaillez au cceur du systeme d' exploita- 
tion. Comme toujours, un pouvoir entraine une responsabilite. L'environne- 
ment et le debogueur Visual Basic reconnaissent les fonctions internes 
normales de Visual Basic, mais les fonctions de l'API sont bien au-dela de 
leur portee. Vous risquez done un crash du systeme et la perte de tout votre 
travail, simplement en executant une application Visual Basic qui specifie un 
argument incorrect dans un appel de fonction de l'API Windows. 
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Enregistrez, souvent votre projet si vous faites des appels aux fonctions de 
I' API. Ainsi, si vous appelez par erreur une fonction de I'API qui entraine 
un crash du systeme, vous ne perdrez, pas tout ce que vous avezfait. 

La Figure 23.1 montre comment une routine API apparait dans votre programme Visual 
Basic. Les routines API proviennent du systeme d' exploitation et sont distinctes de 
Visual Basic. 



Figure 23.1 

Les routines API 
demeurent 
dans le systeme 
d 'exploitation. 



Votre application VB 



Vos procedures Feuilles j 



| Vos fonctions propres j 
| Vos sous-routines propres j 




Windows 



Fonction APII 1 
V Fonction APirf 
^Fonction API 



Nature des DLL 

Le terme lien dynamique a une signification particuliere pour les programme urs. Une 
routine liee dynamiquement a un programme, que ce soit une sous-routine ou une fonc- 
tion, n'est connectee au programme qu'apres la compilation de ce dernier. La fonction 
n'est disponible qu'au moment de l'execution. Les fonctions que vous ecrivez dans la 
fenetre de code sont dites liees statiquement, ce qui signifie qu'elles sont combinees avec 
le reste de votre code source lors de la compilation du programme. Les fichiers DLL ne 
se fusionnent pas a vos programmes. Le programme y a acces lors de l'execution, mais 
son fichier EXE ne contient jamais physiquement les routines de DLL. 

La difference est cruciale quand il s'agit d'utiliser des fonctions situees dans des biblio- 
theques de liens dynamiques, car ni la bibliotheque, ni les fonctions que votre applica- 
tion appelle ne sont considerees comme faisant partie de votre programme. Les 
fonctions API ne viennent jamais augmenter la taille du fichier de votre application. 
Lors de l'execution du programme, ces routines ne sont chargees que le temps de leur 
execution ; puis, si elles ne sont plus necessaires, le systeme d' exploitation Windows 
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peut liberer leurs ressources pour donner plus de memoire et de temps processeur aux 
nouvelles routines qui peuvent demarrer. 

Le grand avantage de ces liens dynamiques n'est cependant pas une utilisation efficace 
des ressources. Si Windows est modifie, de nouvelles DLL remplacent les anciennes. 
Vos applications sont done a meme de supporter les nouvelles caracteristiques sans qu'il 
soit besoin de recompiler chaque application qui utilise 1' API Windows. Par exemple, si 
vous vous en souvenez, Windows 95 a modifie la presentation des fenetres. Les icones 
dans le coin superieur droit de la fenetre sont differentes de ce qu'elles etaient dans 
Windows 3.11. Un programme Visual Basic qui appelle l'API Windows pour afficher 
une fenetre fonctionne dans chaque environnement Windows. Sous Windows 3.11, il 
affiche les anciennes icones et sous Windows 95, les nouvelles, alors que le programme 
n'est pas modifie. Done, dans la plupart des cas, un programme qui accede a l'API 
Windows ne demande pas de modifications lorsque vous changez de version 
de Windows. 



1 ) Windows n'est pas compose d'un seul gros programme. C'est en fait une 

collection de nombreux programmes , dont certains resident dans des fichiers 
DLL. Windows est sans nul doute le plus gros utilisateur des DLL. 

1 L' utilisation des routines en DLL presente I'avantage de permettre a 

psW ce plusieurs programmes qui s' executent sous Windows d'acceder aux memes 
routines des fichiers DLL. De plus, tous les utilisateurs disposent des routines 
de DLL standard : Windows etant necessaire pour pouvoir executer une 
application Visual Basic, les DLL necessaires seront done disponibles. 



L'instruction Declare 

L'appel des routines de l'API Windows necessite une instruction speciale : Declare. 
Les fonctions internes de Visual Basic n'ont pas besoin d'instruction Declare, car il sait 
comment fonctionnent ses propres fonctions et il connait les arguments necessaires a 
chacune. Mais, les routines API etant en dehors de la portee de Visual Basic, vous devez 
utiliser Declare pour l'informer sur la fonction de l'API que vous appelez. 

L'instruction Declare effectue les taches suivantes : 

• Specifie oil se situe la fonction de l'API. 

• Identifie les arguments necessaires a la fonction de l'API en nombre et type de 
donnees. 

• Indique si la fonction de l'API renvoie une valeur. 
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L' emplacement de l'instruction Declare a une incidence sur la maniere dont votre appli- 
cation Visual Basic gere la fonction ; elle determine de quelles parties de l'application 
on peut appeler la fonction decrite : 

• Si vous declarez la routine de l'API Windows dans le module de feuille, hors de sa 
section de declaration generale (par exemple, dans une procedure evenementielle), 
seul le code du module peut appeler la routine API. L'instruction Declare doit 
designer la routine comme privee a l'aide du mot cle Private. 

• Si vous declarez la routine de l'API Windows dans la section de declarations gene- 
rales d'un module ou d'une feuille, elle sera a la disposition de toute l'application. 
On dit qu'elle a une portee publique sur tous les modules de l'application. Utilisez 
le mot cle Public pour l'indiquer. 

Comme pour toute procedure, une routine de l'API Windows peut etre une fonction ou 
une sous-routine, selon qu'elle renvoie une valeur ou pas. Le format suivant decrit la 
version procedure de l'instruction Declare : 

Declare Sub procName Lib "libName" [Alias "alias"] [([[ByVal] 
varl [As dataType] [ , [ByVal] var2 [As dataType]] ... [,[ByVal] 
varN [As dataType] ) ] 

L'instruction Declare indique a Visual Basic le type de procedure de l'API (sous-routine 
ou fonction), le nom de la routine, le nom de fichier de la bibliotheque DLL dans laquelle 
la routine est enregistree (par exemple, KERNEL32.DLL), les arguments et leurs types de 
donnees. Si la routine est une fonction, Declare decrit aussi le type de donnees renvoye. 

' Comme pour la plupart des instructions, le format de Declare donne des 

apprehensions, mais son utilisation reelle est legerement plus simple que 
son format le laisse paraitre. Cependant, vous devez. toujours etre tres atten- 
tif pour faire correspondre tous les arguments et les valeurs requis a ceux de 
la routine API que vous appelez afin qu 'elle s 'execute correctement . 

Le format suivant decrit la version fonction de l'instruction Declare. II ne differe de la 
forme sous-routine que par le mot cle Function et le type de donnee renvoye a la fin de 
l'instruction : 

S Declare Function procName Lib "libName" [Alias "alias"] 
[([[ByVal] van [As dataType] [, [ByVal] var2 [As dataType]] ... 
[, [ByVal] varN [As dataType])] As dataType 

Voici quelques exemples qui illustrent l'instruction Declare (vous trouverez ces instruc- 
tions dans le module general Modulel du projet exemple CallDlls.VBP fourni avec 
Visual Basic) : 

Declare Function GetWindowsDirectory Lib "kernel32" Alias 
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"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As 
Long) As Long 

Declare Sub GetSystemlnfo Lib "kernel32" (IpSystemlnfo As 
Systemlnfo) 

Vous remarquerez que certaines declarations de DLL sont assez longues. Les fonctions 
internes demandent differents nombres d'arguments, c'est aussi le cas des declarations 
et des appels de DLL. 

Vous devez absolument respecter le nom exact de la routine de I'API Windows, 
avec les majuscules et les minuscules. Ces fonctions de I'API sont en fait des 
routines en langage C et Visual Basic doit utiliser une syntaxe reconnue par le 
C pour que les fonctions operent correctement . Si vous ne respectez pas la 
casse des lettres ou si vous utilise z un format different, Vappel echouera. 

Comprendre les types de donnees de I'API 

Une des raisons de la difficulte des appels des routines API est que Windows utilise un 
ensemble de types de donnees legerement different de Visual Basic. Si I'API Windows 
utilise les types de donnees Long et String, elle en utilise aussi d'autres comme RECT et 
MSG. Trouver le format exact peut parfois etre difficile. 

' Vos arguments doivent non seulement correspondre a la liste des arguments 

necessaires de I'API en nombre et type de donnees, mais vous devez aussi 
les transmettre de la bonne maniere — soit en valeur, soit par reference. 
Utilisez le mot cle ByVal lorsque c'est necessaire, sinon ByRef est pris par 
defaut. Dans une meme routine API, certains arguments demandent des 
methodes differentes . 

Le mot cle Alias est utilise dans une instruction Declare pour convertir certaines chai- 
nes comportant des caracteres illegaux ou des noms de routines API non autorises, en un 
equivalent accepte par Visual Basic, par exemple _lopen (nom d'API correct, mais qui 
est invalide en tant que nom de procedure Visual Basic). 

Vous rencontrerez des types de donnees etranges que vous pouvez ne pas reconnaitre. 
Le Tableau 23.1 en decrit certains et liste les donnees qui different des types de Visual 
Basic. 

Le Tableau 23.1 ne contient que quelques types de donnees que vous trouverez dans les 
instructions Declare de I'API Windows. Etant donne ces routines API particulieres et leurs 
nombreux arguments, comment est-il possible de savoir laquelle utiliser? La section 
suivante vous explique comment utiliser un outil fourni avec Visual Basic pour gerer les 
routines API. 
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Tableau 23.1 : Types de donnees particuliers utilises par les routines API 



Type de donnees Description 



ANY 

ATOM 

BOOL 

CHAR 
COLOREF 

DWORD 
NULL 

LPSTR, LPCSTR 
STRUCTURE 



Une routine de 1' API Windows qui accepte differents types de donnees 
les indiquera par ANY. Tous les arguments de type ANY etant transmis 
par reference, il ne faut pas utiliser le mot cle ByVal. 

Entier. Toujours transmis par valeur et decrit dans une declaration de 
routine API sous la forme ByVal arguments ou ByVal argument As 
Integer. 

Entier long. Toujours transmis par valeur et decrit dans une declaration de 
routine API sous la forme ByVal argument% ou ByVal argument As 
Long. 

Byte. Toujours transmis par valeur et decrit dans une declaration de 
routine API sous la forme ByVal argument As Byte. 

Entier long utilise pour specifier des valeurs de couleur. Tou7jours 
transmis par valeur et decrit dans une declaration de routine API sous la 
forme ByVal arguments ou ByVal argument As Long. 

Entier long. Toujours transmis par valeur et decrit dans une declaration de 
routine API sous la forme ByVal arguments ou ByVal argument As Long. 

Entier long utilise pour les valeurs non initialisees. Decrit dans une 
declaration de routine API sous la forme ByVal arguments ou ByVal 
argument As Long. 

Correspond au type de donnees String. Decrit dans une declaration de 
routine API sous la forme ByVal arguments ou ByVal argument As 
String. 

Vous tomberez parfois sur d'etranges types de donnees API comme 
RECT, MSG et UDT. lis definissent des types de donnees complexes, les 
structures, qui sont un regroupement de plusieurs autres types de 
donnees. Chaque routine API qui utilise une structure demande une mise 
en forme particuliere et il faut etudier les arguments obligatoires de la 
routine pour savoir comment la formater. 



Si une routine API exige un type de donnees String, vous devez transmettre 
une chaine definie de longueur fixe avec beaucoup de bourrage. Par exem- 
ple, doublez la longueur de la chaine la plus longue que vous vous attendez, 
a voir renvoyee par la routine API, puis declarez un argument chaine de 
longueur fixe avec autant d'espaces avant de le transmettre a la routine API. 
Ne vous souciez pas de la longueur de la chaine si elle n'est pas modifiee 
par la routine API. 
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La Visionneuse d'API 

Windows contient des milliers de routines API qui peuvent etre appelees. Connaitre leur 
format, meme d'un petit nombre, est difficile. C'est pourquoi Visual Basic contient un 
outil particulier, la Visionneuse d'API, qui peut etre utilise pour obtenir de l'aide sur le 
format des routines API. 



La Visionneuse d'API affiche les procedures de I' API et les groupe par sujet 
pour que vous puissiez trouver la routine dont vous avez besoin. 



La Visionneuse d'API permet de retrouver les routines et les arguments API, puis de copier 
et coller ces informations dans la fenetre de code. Suivant votre installation de Visual Basic, 
la Visionneuse d'API peut se lancer de deux manieres. 



Le bouton Copier de la Visionneuse d'API copie les informations de 
declaration selectionnees dans le Presse-papiers de Windows. De plus, si 
vous cliquez sur I'option Public ou Private avant de cliquer sur Copier, il 
inclut le mot cle de qualification correspondant dans V instruction Declare, 
ce qui evite une modification manuelle. 



Dans certains cas, la Visionneuse d'API est installee dans le menu Demarrage. Pour le 
verifier, selectionnez Demarrage, Programmes, Microsoft Visual Basic 6.0, Outils 
Microsoft Visual Studio 6.0, Visionneuse d'API. Si elle ne s'y trouve pas, vous pourrez 
peut-etre la lancer a partir de l'environnement Visual Basic. Pour cela, selectionnez 
Complements, Gestionnaire de complements pour afficher la boite de dialogue corres- 
pondante. Double-cliquez sur la rubrique Visionneuse d'API, si elle existe, pour l'ajouter 
a votre menu Complements. Vous pouvez demarrer le programme en selectionnant 
Complements, Visionneuse d'API. 

La Figure 23.2 montre la fenetre de la Visionneuse d'API qui s' affiche. 



// se peut que vous ne puissiez toujour s pas demarrer la Visionneuse d'API. 
Dans ce cas, elle n'est peut-etre pas installee sur votre machine. Vous 
devrez ouvrir le Panneau de configuration et selectionner I'icone Ajoutl 
Suppression de programmes . Selectionnez. V entree Microsoft Visual Basic 
et installez la Visionneuse d'API a partir de V entree Outils de la liste. II 
vous faudra le CD-ROM d' installation de Visual Basic pour achever 
V installation . 

La Visionneuse d'API extrait les informations sous-jacentes des fichiers 
texte Mapi32.txt et Win32api.txt qui sont installes avec lui. 
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Figure 23.2 

La Visionneuse d'API 

permet de determiner 

plus facilement 

le format des routines 

API. 



r: - Visionneuse d'API - C:\Program Files\Microsofl Visual Studio\Commo... HBE1 



Fichier Edition Affichage Aide 
Type d'API: 

[Declarations 



3 



Tapez les premieres lettres du rnotque vous recherchez: 



Elements disponibles: 



AbortDoc 

AbortPath 

AbortPrinter 

AbortSystemShutdown 

AccessCheck 

AccessCheckAndAud itA lar m 
ActivateKeyboardLayout 
Elements selectionnes: 



3 



Ajouter 



Portee de declaration 

Public 
C Private 



Public Declare Function OallM^qMlter Lib "user32" Alia?: 
'CallMsgFilterA" (IpMsg As MSG, ByVal ncode As Long) As Long 



Effacer 



Copjer 



Recherchez en tapant dlrectement dans la 2one de lists.. 



Comme la plupart des routines API qui vous interessent sont situees dans le fichier 
Win32api.txt, selectionnez Fichier, Charger le fichier texte et selectionnez ce fichier. 
La Visionneuse d'API peut convertir le fichier texte en une base de donnees Access (avec 
l'extension .MDB) si vous selectionnez 1' option de menu Convertir le texte en base de 
donnees (voir Figure 23.3). Une fois la conversion faite, le fichier pourra etre charge ulte- 
rieurement a partir de l'option de menu Fichier, Charger le fichier base de donnees. 

La liste deroulante du haut est nominee Type d'API. Si vous l'ouvrez, vous y trouverez 
ces trois valeurs : 

• Constantes. Liste toutes les constantes nominees reconnues par le fichier API 
Windows charge. 

• Declarations. Liste toutes les declarations qui apparaissent dans le fichier API charge. 

Types. Liste tous les types de donnees reconnus par le fichier API charge. 

La zone de liste Elements disponibles contient toutes les routines de l'API Windows du 
fichier charge et les types de valeur. Par exemple, afin de trouver l'instruction Declare 
necessaire pour la routine API GetWindowsDirectory, suivez ces etapes : 

1 . Selectionnez Declarations dans la zone de liste Type d'API. Une quantite de candidats 
s'affichent dans la liste Elements disponibles. 
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Figure 23.3 

La Visionneuse d'API 
peut enregistrer 
les informations 
sous-jacentes dans 
line base de donnees 
pour un acces plus 
rapide. 



EE 




Fichier Edition Affichage Aide 
Type d'API: 



|Constentes 

Tapez les premieres lettres du mot que vous recherchez: 

[ 

Elements disponibles : 



|ABE_BOTTOM = ; 



!\ Ce lichier d'API sera charge plus vite s'il est converti en base de donnees. Voulez^ous le convertir 
_\ tout de suite? 





_l 


1 












1 










j 




Chargement des entrees disponibles... 







2. Vous pouvez trouver rapi dement une declaration particuliere en en tapant les 
premieres lettres dans la zone de texte. Tapez getw, et tous les elements commencant 
par ces lettres s'affichent. 

3. Faites defiler jusqu'a larubrique GetWindowsDirectory. 

4. Double-cliquez sur l'entree pour afficher l'instruction Declare correspondant a cette 
fonction (voir Figure 23 .4) . 

Vous pouvez maintenant selectionner et copier rinstruction Declare complete, puis la 
coller dans votre code. 



Appel d'une routine API simple 

Avant d'en apprendre plus sur l'API Windows, vous pouvez souhaitez voir Tune de ces 
routines API en action. Une des procedures API les plus simples est la fonction Messa- 
geBeep. Elle realise ces deux actions : 

• Si 1' argument transmis a la fonction est positif, un bip est emis sur la carte son du 
PC. 

• Si 1' argument transmis a la fonction est negatif, un bip est emis sur le haut-parleur du 
PC. 
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La Visionneuse d'API 
ajfiche 1' instruction 
Declare requise 
par V instruction 
selectionnee . 



I AULII.I,IMIH 

Fichier Edition 



d'API - C:\Prog 



Affichsge Aide 



oft Visual Studio\C 



(Declarations 

Tapez les premieres lettres du mot que vous recherchez : 

[getw 

Elements disponibles: 



GetWindowRect 
Gefi.'VindowRgn 



GetWindowText 
GetW indowTextLength 
GetWhdowThreadProcessId 
GetW indow Word 
Element? seiectionnes: 



L'instructionO 
Declare deB- 
la fonction 



AjQUter 



zJ 



Portee de declaration 
P Public 
r Private 



Public Declare Function GetWindowsDirectory Lib °kernel32" Alias 3 
'GetWindowsDirectoryA" (ByVal IpBuffer As String, ByVal nSize As 
Long) As Long 



Recherchez en tapant directernent dans la zone de liste.. 



Vous pouvez. bien sur utiliser plus simplement la commande Visual Basic 
Beep pour declencher un bip, mais la petite application que vous allez 
creer offre une etude rapide du processus d'appel des routines API. En fait, 
de nombreuses fonctions et commandes de Visual Basic correspondent 
exactement a des appels API,et Microsoft appelle en interne la routine API 
necessaire quand vous utilisez une telle fonction ou commande . 

Creez un projet qui contient un unique bouton de commande au centre de la feuille. Le 
nom du bouton sera cdmBeep et son titre &Bip. Double-cliquez sur le bouton de 
commande pour ouvrir une procedure evenementielle Click. 

Lancez la Visionneuse d'API, si elle ne Test pas deja. Chargez le fichier win32api.txt (ou la 
base de donnees si vous l'avez convertie) et modifiez le type d'API pour afncher les decla- 
rations. Dans la zone de texte, tapez message ; une liste de procedure API s'affichera, dont la 
premiere est MessageBeep. Modifiez l'option Public en Private, puis double-cliquez sur 
cette entree pour afncher la declaration de la procedure dans la zone de selection. 



100 



Vous devez modifier le qualifant Public en Private, car la declaration de la 
fonction est locale au module feuille et n'est pas enregistree dans une section 
de declarations generates. 

Selectionnez toute la declaration pour la coller dans votre fenetre de code. Revenez dans 
la fenetre de code de l'application Visual Basic. Inserez une ligne avant la procedure 
evenementielle Click et collez la declaration dans la section generale du module. 
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Ajoutez ensuite le code suivant dans la procedure evenementielle Click du bouton de 
commande : 

B Dim Beeper As Variant 
Beeper = MessageBeep(1 ) 

Le Listing 23.1 montre la procedure complete. 

Listing 23.1 : Vous pouvez utiliser l'API Windows pour declencher le haut-parleur 

1: Private Declare Function MessageBeep Lib "user32" (ByVal wType 
As Long) As Long 

2: 

3: Private Sub cmdBeep_Click( ) 
4: Dim Beeper As Variant 
5: Beeper = MessageBeep (1 ) 
6: End Sub 

L'instruction Declare indique exactement a Visual Basic comment trouver la fonction 
MessageBeep ( ) . Dans le cas d'une fonction interne de Visual Basic, telle que Abs ( ) , il n'est 
pas necessaire d'utiliser une instruction Declare, car il sait comment la trouver. 
La fonction MessageBeep ( ) , quant a elle, se trouve hors de l'environnement de Visual 
Basic. L'instruction Declare est done utilisee pour lui indiquer comment executer cette 
fonction et comment transmettre les valeurs. Elle signale en outre a Visual Basic que la 
fonction reside dans le fichier USER32.DLL. 

Vous remarquerez que MessageBeep ( ) est une fonction et pas une sous-routine. Elle 
renvoie done une valeur, dont le type de donnees est Long. Votre application n'a cepen- 
dant rien a faire de cette valeur. La variable Variant Beeper se contente d'enregistrer la 
valeur au retour de la fonction. 

Quand vous executez le programme, le bouton de commande s'affiche au milieu de la 
feuille. Si vous cliquez dessus, vous entendrez un bip provenant de votre carte son. Si 
vous n'entendez rien, vous pouvez modifier l'argument en -1 pour que le son provienne 
du haut-parleur interne du PC. Meme sans carte son ou si les haut-parleurs de la carte 
sont eteints, le haut-parleur interne sonnera toujours. 

Comme e'est le cas pour Beep, de nombreuses instructions Visual Basic 
dupliquent des routines API . C'est heureux, car cela evite d 'avoir a appe- 
ler toutes les routines API que vous devriez sinon appeler. II existe en 
outre plusieurs centaines de routines API de Windows dont vous n 'aurez 
jamais besoin, car elles n'effectuent aucune tdche utile a un programme 
d' application. 
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Appel d'une API differente 

Vous pouvez creer une autre application simple pour tester l'appel d'une routine de 1' API 
Windows. Voyez le Listing 23.2 qui envoie dans une zone de texte le type de disque 
detecte. 



Listing 23.2 : Utilisation de l'API Windows pour en savoir plus sur un disque dans 
votre application 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



Private Declare Function GetDriveType Lib "kernel32.dll" 
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long 

Private Sub cmdDrive_Click( ) 
Dim IngDriveType As Long 

' Transmettre le nom du disque qui vous interesse 
1 a la fonction GetDriveType ( ) 
IngType = GetDriveType("c:\") 

' Utiliser la valeur renvoyee pour determiner 
1 le type de disque teste 
Select Case IngType 
Case 2 

txtDrive.Text = "Disque amovible" 
Case 3 

txtDrive.Text = "Disque dur fixe" 
Case 4 

txtDrive.Text = "Disque distant (reseau)" 
Case Else 
txtDrive.Text = "Inconnu" 
End Select 
End Sub 



Pour saisir et tester le code du Listing 23.2, cherchez la declaration GetDriveType ( ) 
dans la Visionneuse d'API, changez l'option Public en Private, puis copiez-la dans le 
Presse-papiers. Completez le reste du code pour qu'il corresponde au code du 
Listing 23.2. 

Ajoutez ensuite un bouton de commande nomme cmdDrive en bas de la feuille, puis 
ajoutez un controle TextBox, nomme txtDrive, en haut de la feuille. Vous pouvez ajus- 
ter la police et la taille de ces controles a votre gout, mais ce n'est pas crucial dans le 
cadre de cet exemple. Modifiez la ligne 8 pour indiquer une autre unite, par exemple une 
disquette pour tester un autre type d'unite. Executez le programme pour voir s'afficher 
la description du disque (voir Figure 23.5). 
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Figure 23.5 

La routine API 
a renvoye 

des informations sur 
voire unite de disque. 




Trouver le dossier Windows 

Parfois, lorsqu'ils ecrivent des programmes qui accedent a des fichiers systeme ou qui 
enregistrent des fichiers dans le repertoire Windows, les programmeurs Visual Basic 
utilisent les routines API pour localiser le dossier Windows (dans lequel il est installe) . 
Vous pouvez aussi avoir a localiser les dossiers System et Temp. II existe des routines 
API qui donnent ces informations. Vous pouvez, par exemple, enregistrer des fichiers 
temporaires de votre application dans le dossier Temp de l'utilisateur. (Le terme dossier 
est un synonyme de repertoire) . 



0* 



Supprimez. toujours les fichiers que vous stockez dans le dossier Temp lors 
de V execution de votre application. De nombreux utilisateurs suppriment 
regulierement les fichiers du dossier Temp vieux de plus d'un jour ou deux 
pour le nettoyer etfaire de la place. II n' est pas souhaitable que votre appli- 
cation soit de celles qui enregistrent leurs fichiers dans Temp sans les 
supprimer, car ces utilisateurs risquent de ne pas apprecier vos programmes 
longtemps. Quant a ceux qui ne pensent pas a nettoyer leur dossier Temp (la 
grande majorite, dont beaucoup ignorent meme V existence) , Us ne sauront 
meme pas que leur espace disque diminue chaque fois que votre application 
se termine. C'est du gdchis. 



Les etapes suivantes decrivent comment creer une petite application qui vous permet 
d' experimenter la recherche d' informations sur le dossier de Windows : 

1. Creez une nouvelle application. 

2. Placez les controles du Tableau 23.2 dans la feuille. La Figure 23.6 montre le resultat 
que vous obtiendrez. 
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Figure 23.6 

Cette feuille affichera 
les informations 
sur les dossiers de 
Windows. 



Infos sur les repertoires 



MM 



Informations sur les 
repertoires Windows 



Repertoire Windows : 



Repertoire System : 
Repertoire Temp : 



Quitter 



3. Double-cliquez sur la feuille pour creer la procedure evenementielle Form _Load ( ) . 
Inserez quelques lignes vierges avant pour vous permettre d'inclure les instructions 
Declare qui renverront les trois repertoires. 

4. Demarrer la Visionneuse d'API si vous l'aviez fermee lors de la session precedente. 
Ouvrez le fichier texte ou base de donnees Win32api. 

5. Selectionnez les entrees Declare dans la zone de liste. 

6. Cherchez l'entree de declaration de GetWindowsDirectory ( ) dans la liste et double- 
cliquez dessus pour afficher la declaration correspondante. 

7. Changez l'option Public en Private, car la declaration residera dans le module de 
feuille, et pas dans un module de code general. 

8. Copiez la fonction GetWindowsDirectory ( ) dans la Visionneuse d'API et collez-la 
au debut de la fenetre de code. 

9. Repetez les etapes 6 a 8 pour les declarations des fonctions GetSystemDirectory ( ) 
et GetTempPath( ) . 

10. Entrez le reste du code necessaire, decrit dans le Listing 23.3. 

11. Executez 1' application pour voir le resultat de la recherche d' informations sur les 
repertoires. La Figure 23.7 montre l'affichage resultant sur une machine. 



> 746 



Chapitre 23 : L'API Windows 



Tableau 23.2 : Placez ces controles dans la feuille de votre application 
pour experimenter la recherche des dossiers de Windows 



Propriete' de controle 



Valeur de propriete 



Feuille : Name 
Feuille : Caption 
Feuille : Height 
Feuille : Width 
Label #1 Name 
Label #1 Alignment 
Label #1 BorderStyle 
Label #1 Caption 
Label #1 FontSize 
Label #1 FontStyle 
Label #1 Height 
Label #1 Left 
Label #1 Top 
Label #1 Width 
Label #2 Name 
Label #2 Alignment 
Label #2 Caption 
Label #2 Height 
Label #2 Left 
Label #2 Top 
Label #2 Width 
Label #3 Name 
Label #3 Alignment 
Label #3 Caption 
Label #3 Height 
Label #3 Left 
Label #3 Top 



f rmFolder 

Infos sur les repertoires 

4500 

5790 

lblTitle 
2-Center 
1 -Fixed Single 

Informations sur les repertoires Windows 
14 

Gras 

855 

1080 

360 

3375 

lblWD 

1 -Right Justify 

Repertoire Windows : 

255 

720 

1680 

1455 

lblSD 

1 -Right Justify 

Repertoire System : 

255 

720 

2280 
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Tableau 23.2 : Placez ces controles dans la feuille de votre application 
pour experimenter la recherche des dossiers de Windows (suite) 



Propriete' de controle 


Valeur de propriete 


Label #3 Width 


1455 


Label #4 Name 


lblTD 


Label #4 Alignment 


1 -Right Justify 


Label #4 Caption 


Repertoire Temp : 


Label #4 Height 


255 


Label #4 Left 


720 


Label #4 Top 


2880 


Label #4 Width 


1455 


Label #5 Name 


lblWinD 


Label #5 Alignment 


0-Left Justify 


Label #5 BorderStyle 


1 -Fixed Single 


Label #5 Height 


255 


Label #5 Left 


2400 


Label #5 Top 


1680 


Label #5 Width 


2295 


Label #6 Name 


luivvino 


Label #6 Alignment 


<0-LeTT JUSTlTy 


Label #o BorderStyle 


i -nxcu oJ-iiyxc 


jLaoei ffo Height 


255 


T ahel #6 1 pf t 


2400 


Label #6 Top 


2280 


Label #6 Width 


2295 


Label #7 Name 


lblWinT 


Label #7 Alignment 


0-Left Justify 


Label #7 BorderStyle 


1 -Fixed Single 


Label #7 Height 


255 
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Tableau 23.2 : Placez ces controles dans la feuille de votre application 
pour experimenter la recherche des dossiers de Windows (suite) 



Propriete de contrdle 




Valeur de propriete 


T hUqI ■#'7 1 + 

Laoei if I Lett 




2400 


T ahpl #7 Tnn 

LaUCl it 1 1 U[J 




2880 


Label #7 Width 




2295 


Bouton de commande 


Name 


cmdExit 


Bouton de commande 


Caption 


&Quitter 


Bouton de commande 


Left 


2040 


Bouton de commande 


Top 


3480 


Bouton de commande 


Width 


1215 



Figure 23.7 

Les informations 
sur les repertoires 
dependent de 
la configuration 
de la machine de 
I'utilisateur. 



Informations sur les 
repertoires Windows 



Repertoire Windows : |C:\WINDOWS 



Repertoire System : |C:\WINDOWS\SYSTEM 
Repertoire Temp : |C:\WINDOWS\TEMP\ 




Listing 23.3 : Les fonctions de l'API qui recherchent les dossiers demandent un 
peu plus de travail que les routines API deja vues 

1: Private Declare Function GetWindowsDirectory Lib "kernel32" Alias 
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) 
As Long 

2: Private Declare Function GetSystemDirectory Lib "kernel32" Alias 
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) 
As Long 

3: Private Declare Function GetTempPath Lib "kernel32" Alias 

"GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer 
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Listing 23.3 : Les fonctions de l'API qui recherchent les dossiers demandent 

un peu plus de travail que les routines API deja vues (suite) 

As String) As Long 

4: Private Sub Form_Load() 

5: ' Initialise les labels des dossiers systeme au chargement 

6: ' Declare une chaine fixe assez longue pour contenir les informations 

7: Dim strFolder As String * 255 

8: Dim intLength As Integer 
9: 
10: 

11: ' Obtient les informations sur le repertoire Windows 

12: intLength = GetWindowsDirectory(strFolder , 255) 

13: lblWinD. Caption = Left(strFolder, intLength) 
14: 

15: ' Obtient les informations sur le repertoire System 

16: intLength = GetSystemDirectory (strFolder, 255) 

17: lblWinS. Caption = Left(strFolder, intLength) 
18: 

19: ' Obtient les informations sur le repertoire Temp 

20: intLength = GetTempPath(255, strFolder) 

21: lblWinT. Caption = LeftfstrFolder, intLength) 

22: End Sub 

23: 

24: Private Sub cmdExit_Click() 

25: End 

26: End Sub 



Le code que vous devez utiliser pour rechercher les noms des dossiers est interessant, 
car il demande plus de travail que les precedents appels d'API que vous avez etudies. 
Ces routines recherchent les informations de dossiers necessaires, mais vous devez les 
recuperer dans une longue chaine de caracteres renvoyee par la fonction. 

La ligne 7 reserve de la place pour une chaine de longueur fixe de 255 caracteres. Meme 
si les systemes ne demandent pas tant de caracteres pour les dossiers, il vaut mieux en 
avoir trop que pas assez. La ligne 8 declare ensuite une variable entiere qui sera utilisee 
comme valeur de retour de chaque fonction. Cette valeur, stockee dans intLength 
(ligne 12), contient le nombre de caracteres effectifs du chemin de dossier dans la 
chaine. Selon les ordinateurs, la longueur du nom de chemin peut etre differente, en 
fonction de l'emplacement des dossiers. Une chaine de 255 caracteres laisse a votre 
application beaucoup de place pour contenir les chemins d'acces de ces dossiers sur 
n'importe quel PC, sauf dans le cas, tres rare ou un de ces noms de repertoires depasse 
255 caracteres. 
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Lorsque le dossier est obtenu a la ligne 12, remarquez que la fonction de l'API GetWin- 
dowsDirectory ( ) demande comme arguments une chaine pour enregistrer le chemin 
d'acces et la longueur maximale de cette chaine. Elle ne tentera done pas de stocker plus 
de 255 caracteres dans la chaine strFolder. 

Une fois que la fonction revient, la ligne 13 recupere cette partie gauche, qui contient le 
nom de chemin. La valeur de retour de la fonction de l'API determine le nombre de 
caracteres du chemin d'acces dans la chaine. Tous les caracteres apres ce nombre 
contiennent des informations non significatives, qu'il n'est pas souhaitable d'afficher. 

La ligne 20 montre une anomalie qui se rencontre sou vent dans les routines API. La fonc- 
tion GetTempPath( ) est du meme type que GetWindowsDirectory ( ) et GetSystemDirec- 
tory(), pourtant la position de ses arguments est inversee. Faites toujours tres attention 
aux instructions Declare quand vous travaillez sur des routines API pour ne pas confondre 
les arguments par inadvertance. 



— 1 I La particularite des trois fonctions illustrees dans cette application 
s'avere assez courante. De nombreuses routines de l'API Windows exigent 
de telles manipulations avant et apres les appels de fonction. Parfois, des 
fonctions identiques ont des arguments inverses (comme ici GetTemp- 
Path()). Les interets des fonctions internes de Visual Basic est qu'elles 
off rent plus de coherence, qu'elles s'associent parfaitement aux types de 
donnees integres a Visual Basic et qu'elles n'exposent pas aux memes 
dangers en cas d 'utilisation incorrecte (par exemple, une reinitialisation 
intempestive de la machine). 



En resume 

Cette lecon supplementaire a explique comment utiliser les routines de l'API Windows. 
Windows est en fait un regroupement de bibliotheques de liens dynamiques qui contien- 
nent des milliers de routines auxquelles on peut acceder depuis un programme Visual 
Basic. Vous n'utiliserez pas toutes les procedures disponibles dans l'API, mais certaines 
sont pratiques lorsque vous devez travailler sur des informations du systeme ou effectuer 
une fonction apparentee, par exemple lire des donnees de la base de registres ou reini- 
tialiser la machine de l'utilisateur. 

La maitrise de l'API Windows demande du temps, et nombre de programmeurs n'en 
connaissent pas toutes les procedures — beaucoup sont necessaires au bon fonctionne- 
ment du systeme d' exploitation, mais n'ont aucune utilite pour les applications que 
l'utilisateur execute. Cependant, en ayant acces a ces procedures de l'API Windows 
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(fonctions et sous-routines) vous pouvez piocher dans un assortiment riche qui informe 
ou aide a gerer le systeme de l'utilisateur. 

L'utilisation de l'API Windows est assez lourde. Cependant, Visual Basic comprend 
un outil, la Visionneuse d'API. Vous pouvez l'utiliser pour consulter toutes les routines 
existant dans l'API Windows et recuperer l'instruction de declaration correspondante, 
que vous pouvez coller directement dans votre propre code. Une fois collee avec 
l'instruction Declare, la routine de l'API Windows peut etre appelee dans votre 
programme Visual Basic. Windows rendra la fonction disponible au moment de 
1' execution. 



Questions-reponses 

Q Pourquoi les declarations des routines de l'API Windows et l'appel des proce- 
dures semblent si complexes ? 

R La complexity vient de la connexion entre Visual Basic et la routine elle-meme. 
Les routines API n'ont pas ete ecrites en fonction de Visual Basic. Elles ont ete 
concues et ecrites a l'origine pour etre utilisees avec le langage C, qui se sert d'un 
ensemble de types de donnees legerement different de celui de Visual Basic, et qui 
appelle aussi les routines d'une maniere differente. La declaration est la maniere de 
faire comprendre a Visual Basic des routines qui ne font pas partie de son environne- 
ment. 

Q Quels sont les autres exemples de routines API que je peux vouloir etudier ? 

R Les routines sont bien trop nombreuses pour etre mentionnees. Cependant, la liste 
suivante, meme si elle est loin d'etre exhaustive, vous donne un point de depart pour 
savoir ce qui est a votre disposition : 

• rechercher les valeurs de la base de registres ; 

• determiner les ressources systeme libres et utilisees, comme l'espace memoire ou 
disque ; 

• acceder a la version de Windows qui s'execute ; 

• travailler sur une fenetre ; 

• graphiques de bas niveau ; 

• gerer les valeurs dans un fichier INI (les fichiers INI etaient utilises par les 
versions de Windows avant Windows 95 pour enregistrer des informations 
systeme et sont encore utilises par certains programmes) . 



> 
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Trouver une routine releve parfois de la devinette. En general, si vous trouvez une 
routine API que vous pensez utile, recherchez dans l'aide en ligne de Visual Basic 
pour voir si elle repond a vos besoins. Vous ne pouvez toujours pas deduire Taction 
d'une routine a partir de son nom. Par exemple, pour lire et ecrire une valeur dans un 
fichier INI, vous utilisez les fonctions Visual Basic GetSetting ( ) et SaveSetting ( ) . 

Q Comment puis-je decouvrir quelles routines de l'API Windows sont 
disponibles ? 

R II existe plusieurs sources, que ce soit le systeme d'aide en ligne de Visual Basic, le 
site Web de Microsoft ou encore divers ouvrages traitant de la programmation Visual 
Basic. 

Q Existe-t-il un moyen de simplifier ('utilisation des routines API ? 

R Si vous utilisez souvent une ou plusieurs routines API, vous pouvez simplifier 
quelque peu leur utilisation. Au lieu de lancer la Visionneuse d' API chaque fois que 
votre application doit utiliser une routine API pour coller l'instruction Declare, puis 
appeler la routine, vous pouvez ajouter les routines API que vous utilisez 
regulierement dans un module de code standard avec une extension de fichier .BAS . 
Le module contiendra toutes les instructions Declare des routines API que vous 
voulez utiliser. Vous pouvez aussi ecrire une fonction ou une sous-routine Visual 
Basic qui appelle la routine API. Utilisez une liste d'arguments qui correspond, en 
type de donnees, a ceux de la routine API. Une telle procedure permet d'enrober, 
autour de la routine de l'API Windows, une procedure Visual Basic qui en respecte 
les conventions d'appel et les arguments. 

Ensuite, lorsqu'une application Visual Basic a besoin de faire appel a l'une ou 
l'autre de ces routines, il suffit d'ajouter le module a votre application. Cette 
derniere n'a alors plus qu'a appeler la fonction d'enrobage Visual Basic pour execu- 
ter la routine API. En d'autres termes, pour votre application, une routine API est 
appelee et revient comme toutes les autres procedures Visual Basic que vous ecrivez. 
Une fois que votre bibliotheque Visual Basic des routines API est correctement 
deboguee, vous disposez d'une methode plus sure d'appel des procedures API dont 
vous avez le plus besoin. 



Atelier 

L' atelier propose une serie de questions qui vous aident a renforcer votre compre- 
hension des elements traites, ainsi que des exercices qui vous permettent de mettre en 
pratique ce que vous avez appris. Essayez de comprendre les questions et les exercices 
avant de passer a la lecon suivante. Les reponses se situent a l'Annexe A. 
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Quiz 

1 . Quelle est la signification d'API ? 

2. Etant donne la riche collection des fonctions internes de Visual Basic, pourquoi 
pouvez-vous avoir besoin d'appeler une routine de 1' API Windows ? 

3. Pourquoi les DLL utilisees par vos applications Visual Basic n'augmentent pas la 
taille de ces dernieres ? 

4. Pourquoi les noms des DLL standards ont-ils change avec les versions de 
Windows ? 

5. Quel outil vous permet de consulter plus facilement le format des routines API ? 

6. Quelle est l'instruction qui permet de declarer les routines de 1' API Windows ? 

7. Vrai ou faux. Les routines de l'API Windows ont une apparence et un mecanisme 
d'appel uniforme. 

8. Que fait l'instruction Declare ? 

9. Quel qualifiant, Public ou Private, est necessaire pour une procedure de l'API 
Windows declaree dans un module de feuille ? 

10. Quel est le but d'une procedure d'enrobage ? 

Exercice 

1. Quel fichier, GDI32.DLL ou KERNEL32.DLL, contient la fonction de l'API 
GetSystemTime( ) ? Comment pouvez-vous le savoir de toute routine API que vous 
rencontrez ? 
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Chapitre 1 

Quiz 

1 . Visual Basic est fonde sur le langage BASIC. 

2. Visual Basic est un environnement visuel et exploite un langage simple, derive du 
BASIC. Mais il permet de creer de puissantes applications Windows. 

3. La nature visuelle de Visual Basic prime sur le langage de programmation a 
plusieurs egards. L'interface visuelle donne a vos programmes leur "visage" particu- 
lier et interagit avec l'utilisateur. Le langage de programmation travaille en coulisses 
pour connecter Tensemble des elements visuels. 

4. Une fenetre de feuille peut etre la fenetre d' application, mais une meme application 
peut contenir plusieurs fenetres de feuilles. La fenetre de feuille est ce voit l'utilisa- 
teur quand il execute le programme. 

5. Un bogue est une erreur dans le programme. Le debogage est le processus de correc- 
tion des bogues. 

6. Les programmes ecrits en langage compile s'executent beaucoup plus rapidement 
que les programmes ecrits en langage interprets . 

7. Les programmes ecrits en langage interprets sont plus faciles a deboguer que les 
programmes ecrits en langage compile. 
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8. L'ecran de presentation s'affiche, toujours identique, au demarrage de 1' application. 
L'ecran Astuce du jour n'apparait qu'apres, sert a donner des conseils a l'utilisateur, 
et cet utilisateur peut demander que cet ecran ne s'affiche plus. 

9. Les controles sont des objets tels que labels, boutons de commande, boutons 
d'option, etc., qui apparaissent sur la feuille. Les proprietes et valeurs de proprietes 
d'un controle sont ce qui definit son comportement et le distingue des autres. 

10. Faux. Les controles ne contiennent pas de code. Les controles sont des objets visuels 
avec lesquels l'utilisateur interagit. Le code est stocke separement (dans ce que Ton 
appelle un module). 

Exercice 

Lancez l'assistant Creation d' applications et repondez Oui lorsqu'il demande si vous 
souhaitez ajouter un acces Internet a votre application. Lors de l'execution, vous selectionne- 
rez Affichage, Navigateur Web pour ouvrir la fenetre navigateur. (Vous devez naturel- 
lement disposer d'une connexion Internet.) 

Chapitre 2 

Quiz 

1. Une barre d'outils est un ensemble de commandes accessibles par simples boutons. 
La Boite a outils est la fenetre qui contient les controles que vous pouvez placer sur 
la feuille. 

2. MSDN. 

3. Faux. La fenetre Feuilles peut contenir autant de feuilles que 1' application l'exige. 
Toutefois, une seule feuille peut etre selectionnee a la fois. 

4. Lorsque vous le placez sur la feuille apres avoir selectionne un outil, le pointeur 
fleche de la souris se transforme en pointeur cruciforme qui permet de dessiner le 
controle. 

5. Visual Basic place automatiquement le controle au centre de la feuille. Vous pouvez 
ensuite le deplaer et le dimensionner. 

6. Faux. C'est dans la fenetre Proprietes que Ton definit les proprietes de controles (on 
peut egalement le faire dans le code) . 

7. La fenetre Proprietes affiche les proprietes de l'objet selectionne. 
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8. En cliquant sur les points de suspension, par exemple a la propriete Font, vous 
affichez une boite de dialogue qui facilite le reglage de la propriete. 

9. Caption. 

10. Les noms par defaut ne sont pas tres explicites. Attribuer au controle un nom plus 
parlant, notamment a l'aide de prefixes specifiques, cela permet de deviner sa fonc- 
tion d'apres le seul nom, ce qui est pratique lorsqu'un projet contient de nombreux 
controles. 

Exercices 

Pour ajouter un arriere-plan bleu, double-cliquez sur la propriete BackColor de la feuille. 
(La desription donnee en bas de la fenetre Proprietes indique la fonction de la propriete 
selectionnee.) Une zone de liste s'affiche, qui contient deux onglets. A l'onglet Palette, 
vous pouvez choisir n'importe quelle couleur d' arriere-plan. L'onglet Systeme propose les 
couleurs Windows plus conventionnelles. A l'onglet Palette, selectionnez un ton de bleu. 

Ajouez un bouton de commande quelque part sur la feuille, par exemple dans le coin 
inferieur droit. Changez sa propriete Name en cmdExit. Changez sa propriete Caption en 
Quitter. Pour ajouter la ligne de code requise, double-cliquez sur le bouton de 
commande. Tapez End au milieu de la procedure. Executez le programme. Le nouveau 
bouton de commande apparait sur fond bleu. Une fois l'image affichee, vous pouvez 
quitter le programme en cliquant sur Quitter. 

Chapitre 3 

Quiz 

1. Une touche de raccourci est une combinaison de touche, par exemple Alt-R, par 
laquelle l'utilisateur peut selectionner le controle. 

2. Faux. Les evenements concernent uniquement les controles. 

3. L'evenement Cancel permet a l'utilisateur de selectionner le bouton de commande 
en appuyant sur la touche Echap. 

4. Le controle qui a le focus est entoure d'un cadre en pointille. 

5. En appuyant sur Tab ou Maj-Tab (et sur la fleches dans certaines applications). 

6. Tablndex. 
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7. les parentheses indiquent que LoadPicture () est une sorte de procedure. Load- 
Picture ( ) est la procedure qui avait permis d'afficher l'image, au Chapitre prece- 
dent. LoadPicture ( ) est une fonction interne : elle ne necessite pas de code, car le 
code reside deja dans le langage de programmation Visual Basic. Les fonctions 
internes ont ceci de pratique qu'elle vous epargne de saisir les codes appeles a servir 
souvent. Vous decouvrirez ces fonctions internes au Chapitre 5. 

8. Faux. Visual Basic genere souvent une procedure evenementielle Click, mais pas 
toujours. Visual Basic insere la premiere et la derniere ligne de la procedure evene- 
mentielle la plus probable pour le controle. Dans le cas d'une zone de texte, par 
exemple, ce sera la procedure evenementielle Change. 

9. Vrai. 

10. La propriete PasswordChar permet de masquer ce que tape l'utilisateur. Les regards 
indiscrets, ainsi, ne peuvent attraper par-dessus l'epaule un mot de passe ou autre 
information sensible. 

Exercices 

1.1: Private Sub f rmMyApp_Load () 

2. Les lignes 1 et 5 indiquent que la procedure est une fonction. Les procedures evene- 
mentielles sont des sous-routines. Remplacez Function par Sub pour resoudre le 
probleme. 

3. Les trois zones de texte doivent avoir des proprietes Style differentes pour les trois 
barres de defilement. La propriete Text doit etre definie lors de la creation. Vous ne 
pouvez specifier plusieurs lignes dans Text. Un mot ou une phrase suffiront. 

Definissez comme &Quitter la propriete Caption du bouton de commande. 



Chapitre 4 

Quiz 

1 . Le Createur de menus. 

2. Vrai. 

3. Click (c'est d'ailleurs le seul). 
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4. Un raccourci clavier est une combinaison de touches (Ctrl-B, Alt- A, etc.) permettant 
d'executer une commande. 

5. Les raccourcis clavier permettent de selectionner rapidement les options de menu. 

6. Click. 

7. Faux. Le Createur de menus ne sert qu'a concevoir la structure du menu, non le code. 

8. Une coche s'affiche a gauche de 1' option de menu. 

9. Vrai, par defaut. C'est dans le code que vous specifiez le contraire. 

10. Ce sont des commentaires, qui decrivent le programme en langage clair. Le Projet 
bonus 1 , situe a la fin du Chapitre 4, vous en dira plus. 

Exercices 

1. Le Createur de menus contient une serie de boutons figurant des fleches. Lorsqu'on 
clique sur la fleche-droite, des points de suspension s'inserent, et l'element 
selectionne descend d'un cran dans la hierarchie du menu : option de menu, sous- 
menu, etc. 

2. Manuel doit comprendre que c'est a lui de specifier, dans le code, qu'une option de 
menu doit etre desactivee. Les options de menu ne sont pas toujours mutuellement 
exclusives, comme elles l'etaient dans ce chapitre. C'est au programmeur de definir 
le comportement des coches. 

3. Ouvrez la fenetre Code et cliquez sur chaque option de menu dans la aprtie infe- 
rieure de la fenetre. Selectionnez des raccourcis clavier dans la liste fournie par le 
Createur de menus. A l'execution du programme, les raccourcis clavier apparaitront 
vis-a-vis des options de menu correspondantes. Appuyez sur l'une des combinaisons 
de touche pour faire un essai. 

Chapitre 5 

Quiz 

1 . Les declarations de variables et autres donnees . 

2. Une variable locale peut etre partagee par plusieurs procedures, comme vous allez le 
decouvrir dans les chapitres a venir. 

3. Vrai. 
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4. Faux. Une variable peut prendre successivement plusieurs valeurs lors de l'execu- 
tion du programme. 

5. L'un effectue une division classique, l'autre une division entiere. 

6. Un operateur surcharge est un operateur qui peut effectuer des operations differentes 
selon le contexte. 

7. L'esperluette (&). Le signe plus (+) doit etre de preference reserve aux additions. 

8. Variant. 

9. Faux. Les prefixes ne sont pas obligatoires, mais facilitent la documentation du 
code. 

10. Vous pouvez specifier Tinstruction Option Explicit au debut de la section de decla- 
rations ou cochez 1' option correspondante dans la boite de dialogue Options. La 
boite de dialogue s'applique globalement, alors que l'instruction Option Explicit 
ne concerne que son propre module de code. 

Exercices 

1. Vous pensez que la variable abc provoquera une erreur ? Bien vu, mais ce n'est pas 
ca. A moins que vous ne specifiez autre chose, Visual Basic traite a priori toutes les 
variables comme de type Variant. La variable abc sera done declaree comme 
Variant. 

2. Visual Basic calcule la division avant l'addition, mais pour obtenir la moyenne, 
Marie doit proceder ainsi : sngAvg = (sngGradel + sngGrade2 + sngGrade3) / 3 

3. a. 5. 

b. 6. 

c. 5. 

d. 5. 

e. 7. 

4. a. a = (3 + 3) / (4 + 4) 

b. x = (a - b) * (a - 2) * 2 

c. f = a " (1/2) / b - (1/2) 

5. Les esperluettes concatenent les chaines de sorte que Visual Basic traite les multi- 
ples lignes comme un seul litteral. 
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Chapitre 6 

Quiz 

1. Or. 

2. L'operateur conditionnel compare deux valeurs. L'operateur logique combine deux 
expressions conditionelles. 

3. Une serie d' instructions appelees a se repeter plusieurs fois. 

4. Apres cette affectation, la variable de type Integer contiendra 10 unites de moins 
qu'avant. 

5. Cette boucle ne s'executera jamais, car intN est definie comme egale a zero. 

6. Si Exit For n'etait pas inclus dans une instruction If , la boucle For ne s'executerait 
qu'une seule fois, puisque Exit For provoquerait l'arret de la boucle des la premiere 
iteration. 

7. Faux. Le bloc If block s'execute si la condition est satisfaite, le bloc Else si elle ne 
Test pas. 

8. Vrai. Si, au commencement de la boucle, la valeur finale est deja plus grande que la 
valeur initiale, la boucle ne s'executera jamais. 

9. Pour executer une boucle plusieurs fois. 

10. Selon son resultat, une instruction de decision peut n'executer le code qu'une seule 
fois. Une instruction de boucle execute son code plusieurs fois. 

Exercices 

1. If (a = b) And (b = c) Then 1 Le corps de 1' instruction suit. 

2. La boucle du pauvre Momo n'a pas de fin, parce que la variable de controle ne 
change jamais de valeur a l'interieur de la boucle. 

3. Dans la realite, l'horloge d'un stade de foot n'effectue pas un decompte, mais 
l'exemple illustre le fonctionnement des boucles imbriquees : 

1 : For Qtr = 1 to 2 

2: For Minutes = 45 to 0 Step -1 

3: 1 Mi-temps. 

4: Next Minutes 

5: Next Qtr 
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La boucle interieure effectue un decompte de 45 a 0, et la boucle exterieure repete ce 
decompte deux fois. 

4. Le code suivant explote trois types de Case dans une meme instruction Select Case : 



Select Case intHours 
Case 1 To 40 

curOverTime =0.0 
Case 41 To 49 

curOverTime = (intHours - 40) * 1.5 * sngRate 
Case Is >= 50 
curOverTime = ((intHours - 50) * 2 + (10 * 1.5) 
sngRate 
End Select 



Chapitre 7 

Quiz 

1. La fonction interne renvoie une nouvelle valeur fondee sur la valeur de 1' argument 
qui lui est passe. 

2. Vrai. 

3. Empty. 

4. Faux. Les trois tableaux decrivent un meme argument de la fonction MsgBox(), 
represents dans le chapitre par int Style. 

5. Le nom du projet. 

6. L'utilisateur peut cocher autant de cases a cocher que necessaire, mais il ne peut 
selectionner qu'un seul bouton d'option a la fois. 

7. Vrai. II faut pour cela que leurs valeurs soient False au premier chargement de la 
feuille (par exemple, dans la procedure evenementielle Form_Load ( ) ). 

8. Respectivement, les valeurs 0 et 1 de la propriete Value. 

9. Respectivement, les valeurs True et False de la propriete Value. 

10. Afin que l'utilisateur puisse en selectionner plusieurs a la fois, repartis en categories 
differentes. 
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Exercices 

1 . On verifie si inputBox ( ) renvoie une chaine vide (" "). 

2. strAns = MsgBox( "You are out of paper", vbExclamation + 
vbDef aultButton2 + vbAbortRetrylgnore , "For Printer") 

3 . Voici la procedure evenementielle : 

1: Private Sub cmdGetLocation_Click( ) 
2: ' Obtient la ville et le departement par deux boites 
d 1 entree. 

3: ' Concatene les deux chaines renvoyees. 

4: ' Affiche le resultat. 

5: Dim strCity As String ' Ville. 

6: Dim strState As String ' Departement. 

7: Dim strBoth As String ' Chaine concatenee. 

8: 1 Valeur de renvoi de MsgBox(). 

9: Dim intAnswer As Integer 

10: 

11: ' Demande la ville et le departement. 
12: strCity = InputBox( "Quelle sont la ville ?", "Ville") 
13: strState = InputBox( "Quelle est le departement ?", 
"Departement" ) 

14: 

15: ' Concatene les chaines. 

16: strBoth = strCity & ", " & strState 

17: 

18: ' Affiche la chaine finale. 
19: intAnswer = MsgBox( "Vous habitez a " & strBoth, 
^"Residence" ) 
■ 20: End Sub 

4. Les procedures evenementielles pour les boutons d'option seront des procedures 
evenementielles Click. Click est l'evenement qui se produit lorsque l'utilisateur 
selectionne l'un des boutons d'option. Vous n'avez pas a deselectionner les autres, 
Visual Basic s'en charge automatiquement. 

Chapitre 8 



Quiz 

1. Les variables publiques. 

2. Les variables locales. 

3. Vrai. Les arguments sont toujours passes par reference si vous ne specifiez pas ByVal. 
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4. Les sous-routines ne renvoient pas de valeurs. 

5. Ilf () etChoose(). 

6. Choose ( ) renvoie alors Null. 

7. Abs ( ) renvoie la valeur absolue de son argument. 

8. a. 74135- 
b. 12345.67 

9. intN contiendra 192. 

10. Now renvoie la date et l'heure, tandis que Time ne renvoie que l'heure. 



Exercices 

1 . Voici le Listing 8.1 reecrit : 

1 : Private Sub GetTotal( ) 

2: ' Cette procedure additionne les valeurs d'un 

3: ' formulaire, puis envoie le total et le pourcentage 

4: 1 d'abattement a la procedure qui calcule la taxe. 

5: Dim curTotal As Currency 

6: Dim sngDisc As Single 1 Special tax discount 
7: 

8: 1 Calculer le total d'apres le formulaire. 

9: curTotal = txtSalel .Text + txtSale2.Text + txtSale3.txt 

10: 

11: ' Envoyer le total a la procedure de taxation. 

12: intMsg = MsgBox("The sales tax is " & SalesTaxfcurTotal, 

_sngDisc) ) 

13: End Sub 
14: 

15: Public Function SalesTaxfcurTotal As Currency, sngRateDisc 

As _Single) As Currency 

11: ' Envoyer le total a la procedure de taxation. 

17: Dim curSalesTax As Currency 
18: 

19: 1 Dans le chapitre, ce code etait une sous-routine. 

20: ' Calcul de la taxe de vente 

21 : 1 a 3,5 % du total. 

22: curSalesTax = (curTotal * .03) + (curTotal * .005) 
23: 

24: ' Deduction du pourcentage d'abattement. 

25: curSalesTax = curSalesTax - (sngRateDisc * curTotal) 

26: 
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27: ' Definit la valeur renvoyee. 
, 28: SalesTax = curSalesTax 
29: 

30: ' Une fois terminee, la procedure revient a 
31: 'la procedure appelante. 

32: End Function 

2. strTitle = Ilf (intTotal > 1000, "Bon boulot !", "Vire !") 

3. Choose(ID, intBonus = 50, intBonus = 75, intBonus = 100) 

4. intN contient -6, into contient -5, et intP contient -6 

Chapitre 9 

Quiz 

1. II faut ajouter le controle depuis la boite de dialogue Composants. 

2. Ouvrir, Enregistrer, Police, Couleur, Imprimer et Aide Windows. 

3. Le controle Common Dialog permet de generer six boites de dialogue standards. 

4. Le controle Common Dialog ne devient visible pour l'utilisateur que lorsqu'on lui 
applique l'une de ses methodes Show. La boite de dialogue commune correspondante 
s'affiche alors au milieu de l'ecran. 

5. Vrai. 

6. La propriete Filter determine les types de fichiers qui pourront s'afficher. 

7. La propriete Flags definit les divers parametres d'une boite de dialogue commune, 
avant qu'elle ne s'affiche. 

8. Vrai. 

9. Faux. La boite de dialogue Imprimer ne requiert pas de valeurs Flags predefinies 
pour s'afficher. Cependant, on regie en general certaines proprietes, telles que 
DialogTitle, avant l'affichage. 

10. Faux. La methode doit etre plus precise : ShowFont, ShowPrinter, etc. 
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Exercices 

1 . Voici le Listing 9.2 modifie : 

1: 1 Presuppose que CancelError vaut True. 

2: On Error Goto dbErrHandler 

3: 1 Definit les valeurs Flags. 

4: CdbFont. Flags = cdlCFBoth Or cdlCFEffects 

5: CdbFont .ShowFont ' Affiche la boite de dialogue Police. 

6: ' Definit les proprietes du label qui 

7: 1 refletera les choix de 1' utilisateur. 

8: LblMessage. Font. Name = CdbFont. FontName 

9: LblMessage. Font. Size = CdbFont. FontSize 

10: LblMessage. Font. Bold = CdbFont. FontBold 

11: LblMessage. Font. Italic = CdbFont. Fontltalic 

12: LblMessage. Font. Underline = CdbFont. FontUnderline 

13: LblMessage. FontStrikethru = CdbFont. FontStrikethru 

14: LblMessage. ForeColor = CdbFont. Color 

15: Exit Sub 

16: 

17: dbErrHandler: 

18: 1 L' utilisateur a clique sur Annuler. 

19: Exit Sub ' Pas de modification. 

2. Voici la procedure : 

1: Private Sub mnuFileOpen_Click () 

2: 1 Presuppose que CancelError vaut True. 

3: On Error Goto dbErrHandler 

4: ' Determine les types de fichiers 

5: ' qui apparaitront. 

6: cdbFile. Filter = "Texte (*.txt) | *.txt" 

7: ' Specifie le filtre par defaut. 

8: cdbFile. Filterlndex = 1 

9: cdbFile. DialogTitle = "Open" 

10: ' Affiche la boite de dialogue Ouvrir. 

11: cdbFile. ShowOpen 

12: 

'A********************************* 

14: ' Ici, placez ou appelez une * 

15: ' procedure qui ouvre le fichier * 

16: ' selectionne par l'utilisateur. * 

■jy. 1 ********************************** 

18: Exit Sub 
19: 

20: dbErrHandler: 

21: 1 L'utilisateur a clique sur Annuler. 

22: Exit Sub 1 Ne pas ouvrir de fichier. 

23: End Sub 
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Chapitre 10 

Quiz 

1 . MouseDown et Mouseup repondent a des boutons specifiques et indiquent, par les argu- 
ments qu'ils passent a leurs procedures, lequel des deux boutons de souris a servi. 
Click, DblClick et MouseMove ne tiennent pas compte du bouton qui a servi. 

2. Par 1' argument intButton. 

3. II suffit d'affecter le chemin d'acces d'une icone a la propriete Draglcon du controle. 

4. En ecrivant un code qui ignore certains evenements timer et ne reponde qu'une fois 
que le laps de temps voulu s'est ecoule. 

5. On peut initialiser le controle lors de la creation en ajoutant les elements dans la 
propriete List, ou lors de l'execution (pratique la plus courante) en passant par 
la methode Addltem. 

6. La propriete Value du controle de liste specifie l'indice de l'element selectionne. 

7. On peut supprimer les elements un a un avec la methode Removeltem, ou les suppri- 
mer tous d'un coup avec la methode Clear. 

8. Pour que la procedure evenementielle puisse tenir compte du nouvel element, il faut 
que le focus se deplace. 

9. En definissant la propriete Sorted comme True. 

10. 23 elements. 



Exercices 

1. Ajoutez a votre feuille une zone de liste, que vous initialiserez avec le code suivant 
(aux prenoms pres, naturellement) dans la procedure evenementielle Form_Load( ): 

Private Sub Form_Load() 

IstFamily .Addltem ("Josette") 

IstFamily. Addltem ("Paulette") 

IstFamily .Addltem ( "Mauricette" ) 

IstFamily .Addltem ("Idulphe") 

IstFamily .Addltem ( "Tertullien" ) 

IstFamily .Addltem ("Yolande") 

IstFamily .Addltem ("Bruno") 

IstFamily .Addltem ("Elvis") 
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lstFamily .Addltem ("Georg Wilhelm Friedrich") 
lstFamily .Addltem ( "Marie-Chantal" ) 
lstFamily .Addltem ("Casimir") 
End Sub 

2. (Aucune reponse necessaire.) 

3. Une fois les trois ComboBox ajoutees, il faut ecrire pour chacune d'elle une proce- 
dure evenementielle Change. Lorsqu'une ComboBox est change, il faut affecter 
l'element a la valeur d'index (T element selectionne et ajoute) a la fin des autres 
ComboBox, en employant la methode Addltem et en indexant l'element dans la 
ListCount de ces controles. 



Chapitre 11 

Quiz 

1. Lorsque l'evenement Resize se produit, vous pouvez ajuster la position des contro- 
les aux nouvelles dimensions de la feuille. 

2. La propriete ScaleMode determine les unites de mesures qui seront employees pour 
les coordonnees Currentx et CurrentY. 

3. Le premier indice est 0. 

4. Faux. Les applications SDI peuvent supporter plusieurs feuilles, a condition que ces 
feuilles ne contiennent pas chacune un jeu de donnees different. 

5. Une application MDI peut contenir plusieurs fenetres de feuilles, chacune contenant 
un jeu de donnees different. 

6. En haut. 

7. ImageList. 

8. Le controle ImageList ne fait que contenir les icones des boutons. II n'apparait pas a 
1' execution. 

9. Spc() insere dans une ligne de sortie un nombre fixe d'espaces, tandis que Tab() 
positionne le curseur texte sur un colonne specifique. 

10. En utilisant la methode Print toute seule. 
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Exercices 

1 . (Aucune reponse necessaire.) 

2. Les deux sorties Print s'affichent sur une seule ligne, a cause du point-virgule : 
Ligne 1 Ligne 2 

3. (Aucune reponse necessaire.) 

4. Votre procedure evenementielle Click devrait contenir une instruction For comme 
celle-ci : 

8 For intCtr = 1 To 100 
Forml .Print intCtr; " " ; 
Next intCtr 

5 . Voici le code : 

' Commence a zero. 
intCount = 0 

' Passe par chaque feuille. 
For intCtr = 1 to Forms. Count 

1 Ajoute le nombre de controles sur chaque feuille. 

intCount = intCount + Forms(intCtr) .Count 
Next intCtr 



Chapitre 12 



Quiz 

1. Tous. 

2. FreeFile(). 

3. Visual Basic l'ecrase. 

4. Visual Basic ecrira a la fin du fichier sequentiel a la prochaine instruction de sortie 
fichier. 

5. l'instruction ouvre un fichier sequentiel et permet aux instructions de sorties subse- 
quentes d'ecrire a la fin du fichier. 

6. Le fichiers sequentiels doivent etre en mesure de localiser chaque numero d'enregis- 
trement. Pour que ce calucl fonctionne, les enregistrements doivent etre de longueur 
identique. 
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7. Les chaines de longueur fixe donnent des enregistrements de longueur fixe, ce qui 
n'est evidemment pas le cas des chaines de longueur variable. 

8. Type. 

9. Faux. L' instruction definit un nouveau type de donnees, mais ne declare aucune 
variable de ce type. 

10. Dir( ) avec arguments renvoie le premier fichier trouve qui corresponde aux jokers. 
Dir() sans arguments renvoie le prochain fichier du dossier qui corresponde aux 
jokers. 



Exercices 

1 . Mauricette essaie sans doute de supprimer le dossier Factures qui contient encore 
des fichiers. La commande RmDir ne s'applique qu'aux dossiers vides. 

2. La procedure suivante remplit le tableau (lignes 10 a 14) et ecrit ces elements dans 
le fichier ouvert (lignes 21a 23) : 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 

23 
24 
25 
26 



Private Sub output () 
Dim strNames(5) As String 
Dim intAges(5) As Integer 
Dim strColors(5) As String 

Dim intCtr As Integer 
Dim intFNum As Integer 



Compteur de boucle. 
Numero de fichier. 



1 Regoit les informations du tableau. 
For intCtr = 0 To 4 
strNames(intCtr) = InputBoxf "Nom suivant ?", "Nom" 
InputBox( "Age suivant ?", "Age") 
= InputBoxf "Couleur suivante ?", 



intAges (intCtr) = 
strColors(intCtr) 
Next intCtr 



"Couleur" ) 



intFNum = FreeFile 
1 Ecrit la sortie. 

1 (Adaptez le chemin et le nom du fichier.) 
Open "C:\Stuff.txt" For Output As #intFNum 
For intCtr = 0 To 4 
Write #intFNum, strNames(intCtr) , intAges(intCtr) 
strColors(intCtr) 
Next intCtr 

Close #intFNum 
End Sub 
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3 . Commencez par reproduire la feuille de la Figure 12.1. Pour chacune des trois zones 
de liste, vous devez ecrire une procedure evenementielle Change qui mette a jour les 
deux autres. Voici un exemple : 

Private Sub Direct_Change() 

1 L 1 utilisateur a change la liste Dossier. 
filFile.Path = dirList.Path ' Change la liste Fichier. 

' Garantit qu'un seul fichier est selectionne. 
If (filFile.ListCount > 0) Then 

1 Selectionne le premier fichier de la liste. 
filFile.Listlndex = 0 
End If 
End Sub 

Lorsque l'utilisateur selectionne un lecteur different, vous devez en outre affecter le 
nouveau chemin vers ce lecteur : 

Private Sub Drive_Change( ) 

1 Definit le chemin par defaut du lecteur. 

dirList.Path = drvList. Drive 
End Sub 



Chapitre 13 

Quiz 

1. En interrogeant la valeur Printers .Count. 

2. Vrai. 

3. ScaleMode. 

4. Par la methode NewPage. 

5. Is TypeOf. 

6. Vrai. 

7. Faux. KillDoc ne peut annuler que les sorties imprimante de l'application. 

8. Me. 

9. A la resolution de l'ecran. 

10. True. 
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Exercices 

1. Printer . Print Tab(32); "Votre nom" 

1. Yolande doit comprendre que Windows supporte de multiples polices et tailles de 
police. Ses calculs quant a la largeur et a la fin de la page doivent tenir compte du 
corps de la police utilisee. 

3. Voici le Listing 13.2 modifie : 

1: Public Function IsColor() As Boolean 

2: Dim blnlsColor As Boolean 

3: Dim prnPrntr As Printer 
4: 

5: ' Presuppose qu'aucune imprimante couleur n'a ete encore 

trouvee. 

6: blnlsColor = False 
7: 

8: ' Parcourt les imprimantes. 

9: For Each prnPrntr In Printers 

10: If prnPrntr. ColorMode = vbPRCMColor Then 

11: 1 Definit 1 1 imprimante couleur comme imprimante par 
defaut. 

12: Set Printer = prnPrntr 

13: blnlsColor = True 

14: Exit For ' Laisse tomber. 

15: End If 

16: Next 1 Parcourt les imprimantes si necessaire. 
17: 

18: ' blnlsColor reste False si aucune imprimante couleur 

19: ' n'est trouvee, et devient True dans le cas contraire. 

20: ' Definit en consequence la valeur renvoyee par la 

Bfonction. 

21 : IsColor = blnlsColor 

22: End Function 



Chapitre 14 



Quiz 

1. Le controle Shape. 

2. Le controle Shape (qui dessine egalement des rectangles). 

3. PSet et Ligne. 

4. Vrai. 
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5. L' option F. 

6. Parce que les boutons ne sont pas tous necessaires. 

7. Mode renvoie l'etat du peripherique du controle multimedia. 

8. En reduisant la valeur de la propriete Updatelnterval. 

9. C'est le controle PictureBox qui recevra la sortie video. 

10. C'est le code qui definit ainsi le contexte de peripherique. 



Exercices 

1 . Voici a quoi devrait ressembler votre code : 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



Private Sub Form_Load() 
' Initialise la liste 
IstShape.Addltem "0 - 
IstShape.Addltem "1 - 
IstShape.Addltem "2 - 
IstShape.Addltem "3 - 
IstShape.Addltem "4 - 
IstShape.Addltem "5 - 



Forme. 

Rectangle" 

Square" 

Oval" 

Circle" 

Rounded Rectangle" 
Rounded Square" 



Initialise la liste Motif. 



IstPattern .Addltem 
IstPattern .Addltem 
IstPattern .Addltem 
IstPattern .Addltem 
IstPattern .Addltem 
IstPattern .Addltem 
IstPattern .Addltem 
IstPattern .Addltem 



0 - Solid" 

1 - Transparent" 

2 - Horizontal Ligne" 

3 - Vertical Ligne" 

4 - Upward Diagonal" 

5 - Downward Diagonal" 

6 - Cross" 

7 - Diagonal Cross" 



' Initialise la liste Couleur. 
' (Les couleurs ne sont pas toutes representees.) 
IstFillColor. Addltem "Black" 
"White" 
"Blue" 
"Red" 
"Green" 
"Yellow" 



IstFillColor. Addltem 
IstFillColor. Addltem 
IstFillColor. Addltem 
IstFillColor. Addltem 
IstFillColor. Addltem 



' Initialise la liste Bordure. 
IstBorderColor. Addltem "Black" 
IstBorderColor. Addltem "White" 
IstBorderColor. Addltem "Blue" 
IstBorderColor. Addltem "Red" 
IstBorderColor. Addltem "Green" 
IstBorderColor. Add I tern "Yellow" 
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36: 

37: ' Defininit comme valeur par defaut la premiere de chaque 

-■liste. 

38: IstShape.Listlndex = 0 

39: IstPattern.Listlndex = 0 

40: IstFillColor.Listlndex = 0 

41: IstBorderColor.Listlndex = 0 

42: End Sub 
43: 

44: Private Sub lstPattern_Click( ) 

45: ' Applique le motif selectionne. 

46: shpSample.FillStyle = IstPattern.Listlndex 

47: End Sub 

48: 

49: Private Sub lstShape_Click( ) 

50: ' Applique la forme selectionnee. 

51: shpSample. Shape = IstShape.Listlndex 

52: End Sub 

53: 

54: Private Sub lstFillColor_Click( ) 

55: 1 Applique la couleur de fond selectionnee. 

56: Select Case IstFillColor.Listlndex 

57: Case 0: 

58: shpSample. FillColor = vbBlack 

59: Case 1 : 

60: shpSample. FillColor = vbWhite 

61 : Case 2: 

62: shpSample. FillColor = vbBlue 

63: Case 3: 

64: shpSample. FillColor = vbRed 

65: Case 4: 

66: shpSample. FillColor = vbGreen 

67: Case 5: 

68: shpSample. FillColor = vbYellow 

69: End Select 

70: End Sub 
71 : 

72: Private Sub lstBorderColor_Click( ) 

73: 1 Applique la couleur de bordure selectionnee. 

74: Select Case IstBorderColor.Listlndex 

75: Case 0: 

76: shpSample. BorderColor = vbBlack 

77: Case 1 : 

78: shpSample. BorderColor = vbWhite 

79: Case 2: 

80: shpSample. BorderColor = vbBlue 

81 : Case 3: 

82: shpSample. BorderColor = vbRed 

83: Case 4: 

84: shpSample. BorderColor = vbGreen 

85: Case 5: 

86: shpSample. BorderColor = vbYellow 
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End Select 
End Sub 

Private Sub mnuFileExit_Click( ) 

End 
End Sub 

2. (Aucune reponse necessaire.) 

3. Utilisez le controle Common Dialog. Ajoutez une option de menu Fichier, Ouvrir 
qui affichera la boite de dialogue Ouvrir. Definissez un filtre qui ne fera apparaitre 
que les fichiers .WAV. Une fois que l'utilisateur a fait son choix, le nom du fichier 
doit etre affecte a la propriete Filename. 

Chapitre 15 

Quiz 

1 . Les modeles de feuilles vous permettent d'ajouter des feuilles standards a vos appli- 
cations et d'accelerer le developpement de vos programmes. 

2. Vous pouvez ajouter les modeles de feuilles a partir de l'assistant Creation d'applica- 
tions, de l'option de menu Projet, Ajouter une feuille, ou en cliquant avec le bouton 
droit dans la fenetre Projet et en selectionnant Ajouter, Feuille dans le menu contex- 
tuel. 

3 . Ajoutez simplement la methode Show a la feuille boite de dialogue A propos de lorsque 
l'utilisateur selectionne Aide, A propos de dans le menu de votre application. 

4. Faux. La boite de dialogue A propos de contient deja le code necessaire a l'affichage 
des Infos systeme. 

5. Un ecran d'accueil ne doit rester a l'ecran qu'un temps limite au demarrage du 
programme. 

6. La boite de dialogue Astuce du jour reste a l'ecran tant que l'utilisateur le desire, 
alors que l'ecran d'accueil n'apparait que brievement a titre d' introduction. De plus, 
l'ecran d' Astuce du jour continue a afficher des astuces supplementaires quand 
l'utilisateur clique sur le bouton Astuce suivante. L'utilisateur peut desactiver un 
ecran Astuce du jour pour qu'il ne s'affiche plus au demarrage de l'application, alors 
que l'ecran d'accueil s'affiche systematiquement au demarrage. 

7. L' entree SaveSetting, utiliser conjointement a la boite de dialogue Astuce du jour 
specifie si l'utilisateur souhaite la voir ou pas. 
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8. ODBC {Open Database Connectivity) signifie "connexion ouverte aux bases de 
donnees". Elle offre une methode standard d'acces aux bases de donnees de diffe- 
rents systemes informatiques. 

9. Vous devez faire de la boite de dialogue Astuce du jour ou de l'ecran d'accueil la 
feuille de demarrage. 

10. Le fichier des astuces est un fichier texte cree a l'aide d'un editeur tel le Bloc-notes 
de Windows. II contient une ligne par astuce. Vous devez enregistrer ce fichier dans 
le meme dossier que l'application qui l'utilise. 

Exercices 

1 . Le texte du chapitre decrit comment faire cette modification. 

2. La reponse de ce projet est deja contenue dans l'indice donne par la question. Le 
plus complique est de creer l'ensemble des astuces a l'aide du Bloc-notes. 

Chapitre 16 

Quiz 

1 . Lorsque vous liez un objet OLE, ce dernier reste avec son application parente. Lors- 
que vous incorporez un objet, votre application en obtient une copie : si l'objet incor- 
pore est modifie dans son application parente, la modification n'apparaitra pas dans 
votre application. 

2. L' incorporation occupe le plus d'espace disque car une copie de l'objet doit se trou- 
ver dans votre application. 

3. Faux. Vous devez ecrire le code d'enregistrement et de chargement des modifica- 
tions effectuees sur l'objet OLE. 

4. La methode SaveToFile enregistre un objet sur le disque. 

5. La methode ReadFromFile charge des objets depuis le disque. 

6. L' instruction If TypeOf et la fonction TypeOf ( ) testent la classe des objets. 

7. Faux. Les objets systeme sont deja globaux ; vous n'avez pas a les transmettre entre 
procedures. 

8. Les fonctions, les constantes nominees, les fonctions internes, les procedures et les 
classes apparaissent souvent dans la liste des Membres. 
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9. Visual Basic regroupe tous les membres et les classes suivant leur usage et non pas 
alphabetiquement dans la liste des Membres. 

10. Faux. Une des caracteristiques les plus gratifiantes de l'Explorateur d'objets est sa 
capacite a trouver les objets de vos applications. 

Exercices 

1. La clause With n'epargne aucun effort de programmation lorsqu'il n'y a que deux 
proprietes a configurer. 

2. Suivez les instructions de cette lecon pour ajouter un objet WordPad a une applica- 
tion (mais ajoutez a la place l'objet Paintbrush). Vous devez utiliser le code d'enre- 
gistrement et de chargement des donnees OLE illustre dans la lecon pour pouvoir 
enregistrer vos dessins. Si cet exercice ne demande que peu en matiere de reponse, 
vous pourrez acquerir, en le realisant, une bonne experience de l'utilisation d'objets 
OLE dans d'autres applications. 

Chapitre 17 

Quiz 

1. L' Automatization est le processus d'emprunt des fonctionnalites d'une autre appli- 
cation pour creer l'objet de donnee de cette derniere. 

2. Une autre instance de Word sera demarree et beaucoup de ressources du systeme 
seront utilisees par les deux processus redondants. 

3. Vous ne pouvez pas enregistrer des applications dans des variables ; vous devez done 
creer une reference a une application a l'aide de la commande Set. 

4. Si vous deroutez une erreur a l'aide de l'instruction On Error, vous pouvez dete- 
rminer l'erreur survenue en testant la valeur de Err. Number. 

5. Vous pouvez creer des controles ActiveX en sous-classant des controles uniques, des 
agregats de controles ou en les creant de toutes pieces. 

6. Le controle ActiveX le plus simple que vous pouvez creer est celui qui sous-classe 
un controle unique. 

7. Vrai. 
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8. Les blocs d' enumerations sont utilises pour definir des listes de contantes enume- 
rees. 

9. Visual Basic utilise l'extension .OCX pour les controles ActiveX que vous creez. 

10. Les controles ActiveX exigent au moins une procedure Get et une procedure Let 
pour que vous puissiez assigner et lire les valeurs de proprietes. 

Exercices 

1 . Aucune reponse n'est necessaire. 

2. Vous devez d'abord declarer une variable pour contenir le texte d'origine. Vous 
pourrez ensuite y enregistrer le texte avant de le convertir en majuscules ou en 
minuscules. Vous pourriez creer une variable publique qui conserve sa valeur quand 
la procedure de conversion de la casse se termine. 

Etant donne que les variables locales sont preferables, le choix d'une variable publique 
laisse beaucoup a desirer. II existe plusieurs methodes pour sauvegarder la valeur 
d'origine de la zone de texte, mais la plus simple est sans doute de placer une zone de 
texte masquee dans la feuille (laissez la propriete Enabled a True, mais mettez la 
propriete Visible a False). Des que l'utilisateur saisit du texte dans le controle Acti- 
veX, la propriete Text de ce dernier doit etre sauvegardee dans propriete Text de la 
zone masquee. Quand l'utilisateur clique sur le bouton de commande Comme saisi, la 
propriete Text du controle ActiveX doit recevoir la valeur de la propriete Text du 
controle masque. Indice : Assurez-vous que vous mettez bien a jour la propriete Text 
de la zone de texte masquee a chaque fois que l'utilisateur tape une nouvelle valeur 
dans le controle ActiveX (comme le fait la procedure evenementielle Change). 



Chapitre 18 

Quiz 

1 . Le Gestionnaire de donnees vous permet d'analyser des bases de donnees. 

2. Une table est un fichier de donnees qui se trouve dans une base de donnees. 

3. Faux. Le nombre de colonnes n'augmente pas sauf si vous augmentez le nombre de 
champs de la base de donnees. 

4. Vrai. Une table est une forme de jeu d'enregistrements recordset. 
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5. Un controle lie est lie a un controle de base de donnees, comme le controle Data, qui 
affiche les enregistrements quand l'utilisateur parcourt la base de donnees. 

6. Un recordset est un regroupement d' enregistrements, comprenant les (mais ne se 
limitant pas aux) enregistrements d'une table. Un dynaset est un regroupement 
d'enregistrements qui different du classement par defaut, par exemple en repondant 
a un critere particulier. Le dynaset change si la base est modifiee. Un snapshot est un 
instantane de dynaset, fige, qui contient certains enregistrements de la base de 
donnees tels qu'ils se presentaient a l'instant oil il a ete cree. 

7. ADO est plus rapide, plus puissant et plus souple que le controle de donnees. 

8. EOF determine la fin d'une table et BOF, son debut. 

9. Une vue principale est un enregistrement et une vue secondaire est un ensemble 
d'enregistrements qui vont avec 1' enregistrement principal. II existe une relation un- 
a-plusieurs dans l'affichage Principal/secondaire ; par exemple, un vendeur peut 
avoir vendu plusieurs produits a votre entreprise. 

10. L' assistant Creation d' applications de Visual Basic genere directement les feuilles a 
partir de la structure des tables de votre base de donnees. 

Exercices 

1. N'ajoutez pas de controle Data a la feuille. II vous suffit d'ajouter des controles de 
zones de textes et de les Her au controle Data deja present. Configurez le controle 
Data dans la propriete DataSource de chaque controle TextBox et definissez dans la 
propriete DataField la colonne (champ) correspondante de la table. 

2. Pour former une relation un-a-plusieurs, vous devez selectionner deux tables qui ont 
au moins un champ commun. Quand vous selectionnez le type de feuille Principal/ 
secondaire, la fenetre suivante vous donne la possibility de selectionner la table a 
utiliser comme source d'enregistrements principale. Selectionnez la table Authors dans 
la liste et envoyez le champ Author dans la liste de droite pour que seul le nom de 
l'auteur apparaisse dans l'affichage principal de 1' enregistrement. Une fois que vous 
avez clique sur Suivant, la fenetre de source des enregistrements secondaires s' affi- 
che. Vous pouvez y selectionner la table Title Author. Envoyez le champ ISBN dans 
la liste de droite et cliquez sur Suivant pour afficher la fenetre illustree a la Figure 
A.l. Mettrez en surbrillance le champ Au_lD (le seul champ commun) pour connecter 
les enregistrements. Lorsque vous executez 1' application, le nom de l'auteur s'affiche 
en haut de la feuille, et les codes ISBN de chaque ouvrage ecrits par l'auteur suivent 
dans la partie inferieure. 
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Figure A.l 

Vous devez indiquer a V assis- 
tant comment Her les deux 
ensembles de champs. 



t Assistant Feuilles de donnees - Relation entre les sources d'enregistrements 




Selectionnez un champ a partir de chaque source 
d'enregistrements qui relie les deux sources. 



Principals 



Au_ID 
Author 
Year Born 




Chapitre 19 

Quiz 

1. Le navigateur Web genere dans l'application affichera la page Web a l'URL que 
vous avez fourni lorsque l'application se connecte a l'lnternet. 

2. Faux. Votre application contiendra un navigateur Web incorpore utilisable et ne 
depend pas de 1' installation d'un navigateur sur la machine de l'utilisateur. 

3. Vrai. Vous devez disposer de Internet Explorer 4 sur votre machine pour utiliser les 
fonctions completes de programmation Web de Visual Basic. Ce navigateur est fourni 
avec Visual Basic (si vous ne l'avez pas deja). II n'est pas necessaire d'en faire votre 
navigateur par defaut, mais c'est celui dont a besoin Visual Basic pour le developpe- 
ment. 

4. L' encapsulation, dans sa forme la plus elementaire, designe l'empaquetage du code 
et des proprietes pour qu'un objet puisse transporter ses comportements et descrip- 
tions propres. 

5. Certains controles de Visual Basic 6 fournissent un acces direct au service en ligne 
Microsoft Network. Naturellement, si l'utilisateur n'a pas l'autorisation d'acces a Micro- 
soft Network, les controles ne lui permettront pas de se connecter. 
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6. Un intranet est une connexion interne de type Internet entre ordinateurs en reseau. 

7. Un document ActiveX est une page Web qui contient une application Visual Basic 
entierement fonctionnelle. 

8. Java est un langage de programmation de type C++ qui permet d'ecrire de petits 
programmes, designes sous le terme d' applets, qui voyagent avec la page Web et 
s'executent sur la machine de l'utilisateur final quand il afhche la page Web qui les 
contient. 

9. Le langage VBScript fonctionne avec HTML pour charger les documents ActiveX. 

10. Utilisez 1' assistant Migration de document ActiveX pour convertir des applications 
existantes en documents ActiveX. 

Exercices 

1 . Apres avoir converti une application en un document ActiveX, vous pouvez ajouter 
ces documents a l'application Classeur Office, qui n'est rien d'autre qu'un conte- 
neur de controles ActiveX. Tant que vous ne savez pas comment compiler un fichier 
EXE (il faut attendre le Chapitre 21), vous devrez faire vos tests avec le raccourci 
Office en laissant Visual Basic en execution. Une fois la conversion en document 
ActiveX effectuee, demarrez le programme Classeur Office, affichez le menu 
Section, et cliquez sur Ajouter pour afficher la boite de dialogue Ajouter la selection. 
Cherchez votre document ActiveX et double-cliquez dessus ; il s'affichera dans la 
collection des outils. Dans un projet Office, vous pourrez done integrer des applica- 
tions non Office avec les documents Office. 

2. Avec les feuilles multiples, l'assistant Migration devra creer plusieurs documents 
ActiveX. Vous devez tester chacun separement en lancant votre navigateur et en 
selectionnant Fichier, Ouvrir pour chaque document ActiveX cree a partir des 
feuilles du projet. 

Chapitre 20 

Quiz 

1 . Vous devez utiliser des fichiers RTF (Rich Text Format) pour le texte de l'aide et un 
fichier de projet HPJ, sauf si vous utilisez l'aide HTML, auquel cas le fichier d'aide 
aura pour extension CHM. 

2. L'utilisateur peut passer d'un sujet d'aide au suivant sans revenir a un index. 
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3. L' etiquette de note de bas de page K est utilisee pour connecter l'aide aux sujets souli- 
gnes. 

4. Le fichier de projet d'aide identifie le fichier de contenu, les ID de contexte des 
pages d'aide et le texte de la barre de titre du moteur d'aide. Le compilateur d'aide 
utilise le fichier de projet durant la compilation du fichier d'aide. 

5. Utilisez la boite de dialogue Proprietes de projet pour attacher l'aide a la touche Fl . 

6. Utilisez les valeurs d'lD de contexte pour affecter des sujets d'aide particuliers aux 
objets d'aide contextuelle. 

7. Faux. L'aide contextuelle utilise des ID de contexte numeriques. 

8. Les info-bulles surgissent quand l'utilisateur laisse le curseur de la souris sur un 
element. L'aide "Qu'est-ce que c'est ?" ne s'affiche que si elle est appelee a partir du 
menu d'aide ou si l'utilisateur clique sur le bouton "Qu'est-ce que c'est ?" de la 
barre d'outils. 

9. Parametrez la propriete WhatsThisButton de la feuille a True pour activer le bouton 
"Qu'est-ce que c'est ?" dans la barre de titre de la feuille. 

10. Vrai. 

Exercice 

Developpez l'exemple de cette lecon. L'ajout des autres sujets d'aide sera simple. 
Suivez ces regies : 

1 . Assurez-vous que la propriete ToolTips de chaque objet a une valeur. 

2. Creez un message d'aide contextuelle pour chaque objet de la feuille. 

3. Assignez des valeurs d'lD de contexte a chaque sujet d'aide, dans le fichier 
projet. 

4. Compilez le fichier d'aide. 

Chapitre 21 

Quiz 

1. Une erreur de syntaxe est une erreur d'orthographe ou une mauvaise utilisation du 
langage. 
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2. L'ordinateur detecte les erreurs de syntaxe, mais la correction des erreurs de logique 
est a la charge des personnes. 

3. Vrai. 

4. Faux. S'il reste une erreur de syntaxe dans l'application, Visual Basic empeche son 
execution. 

5. Le debogueur Visual Basic vous permet d'arreter un programme a tout endroit en 
placant un point d' arret dans le code. Vous pouvez alors poser le curseur de la souris sur 
une variable pour voir sa valeur a l'execution ou placer la variable dans la fenetre 
Espions. 

6. En executant un programme ligne par ligne, vous pouvez analyser les variables et 
controler les valeurs a votre rythme, et verifier votre logique et le deroulement du 
programme. 

7. Vrai. Vous pouvez placer des instructions d'assignation dans la fenetre Execution. 

8. Un programme Visual Basic compile s'execute bien plus rapidement que dans 
l'environnement Visual Basic. 

9. L' assistant Empaquetage et deploiement cree les routines d' installation de vos appli- 
cations. 

10. L' assistant Empaquetage et deploiement peut creer un ensemble de fichiers pour une 
installation sur plusieurs disques. 

Exercices 

1. L' instruction contient une erreur de syntaxe, car Therefore est utilise a la place de 
Then dans 1' instruction If de la premiere ligne. 

2. Vrai. La phrase a non seulement une erreur de syntaxe, mais elle presente aussi une 
erreur de logique. En effet, la phrase n'a qu'une erreur et pas deux. Sa logique est 
done incorrecte ! 



Chapitre 22 

Quiz 

1. Faux. Tous les elements d'un tableau, quelle que soit sa dimension, doivent etre du 
meme type de donnees. 
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2. Le second indice (9) determine habituellement le nombre de ligne d'un tableau 
multidimensionnel . 

3. a. 4 

b. 43 

c. 12 

4. Vrai. 

5. Faux. Array ( ) ne fonctionne qu'avec les tableaux a une dimension. 

6. Le controle grille affiche les donnees de table efficacement. 

7. Les lignes et les colonnes fixes servent de cellules de titre de la grille. 

8. Utilisez une boucle imbriquee pour assigner les elements de la table a la grille. 

9. Faux. Vous devez assigner la propriete CellPicture a l'execution en utilisant la 
fonction interne LoadPicture ( ) ou un controle image. 

10. FormatString est plus simple d'utilisation et est plus efficace que des instructions 
d' assignation pour configurer les titres des en-tetes de la grille. 

Exercices 

1. 28 elements sont reserves. 

2. 30 elements sont reserves (n'oubliez pas l'indice zero). 

3. Le meilleur endroit pour enregistrer les valeurs de la grille dans la table est sans 
doute la procedure cmdExit_Click ( ) , telle qu'illustree ci-dessous : 

Private Sub cmdExit_Click( ) 

1 Enregistre les valeurs et termine 1 1 application 
Dim curData(19, 7) As Currency 
1 Remplit la table a partir des donnees de grille 
For Row = 1 To 19 
For Column = 1 To 7 
grdSales.Row = Row 
grdSales.Col = Column 

curDatafRow, Column) = grdSales(Row, Column) 
Next Column 
Next Row 

1 Quitte le programme 
End 
End Sub 
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Chapitre 23 

Quiz 

1. API signifie Application Programming Interface, soit Interface de programmation 
d'application. 

2. Si Visual Basic comprend de nombreuses fonctions, il ne sait pas tout faire. Par 
exemple, il ne comporte pas de fonction permettant de reamorcer le systeme. 
Les routines de l'API Windows fournissent des fonctions systeme auxquelles vous 
pouvez acceder depuis votre application Visual Basic. 

3. Les DLL sont liees dynamiquement a votre application au moment de l'execution, et 
pas de la compilation. Ce qui signifie que les ressources de la DLL ne sont pas mises 
de cote par le systeme d' exploitation pendant toute la duree d'execution de votre 
programme. 

4. Quand Windows 95 est passe dans un environnement 32 bits, les noms de fichiers des 
DLL standards ont ete modifies. Pour distinguer les nouveaux fichiers des anciens, 
Microsoft a ajoute 32 dans leur nom (par exemple, GDI32.DLL). 

5. La Visionneuse d'API est un outil que vous pouvez ajouter a votre environnement 
Visual Basic (a l'aide du menu Complements). II permet de selectionner les routines 
API dans des listes et d'en consulter la declaration. Vous pouvez alors les copier et 
les coller dans vos propres applications. 

6. L' instruction Declare declare les routines de l'API Windows. 

7. Faux. II n'y a pratiquement rien de normalise dans les routines de l'API. Meme 
parmi des families de routines semblables, les listes d' arguments peuvent differer 
considerablement, comme les types de donnees renvoyes dans le cas des fonctions. 

8. L' instruction Declare informe Visual Basic de l'endroit oil se trouve la routine 
externe de l'API Windows et de sa liste d' arguments. Visual Basic ne reconnait pas 
ces routines externes car il contient son ensemble propre de fonctions internes, qui 
sont differentes des procedures Windows. Linstruction Declare permet a Visual 
Basic de localiser et de se connecter correctement a la routine API que vous avez 
besoin d'appeler depuis votre application. 

9. Utilisez le qualifiant Private quand vous declarez des routines de l'API Windows 
depuis un module de feuille. 

10. Une procedure d'enrobage est du code Visual Basic place autour d'un appel a l'API 
Windows. Vous pouvez placer ces procedures dans un module de code reutilisable 
quand une application Visual Basic a besoin des routines API. Au lieu de lancer la 
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Visionneuse d'API et de rechercher les types de donnees et leurs exigences, vous 
n'avez plus qu'a appeler la procedure Visual Basic qui enrobe la routine API. 
Le debogage est simplifie et vous achevez plus rapidement la creation d' applications 
qui demandent des routines de l'API Windows. 

Exercice 

La fonction GetSystemTime( ) est contenue dans le fichier KERNEL32.DLL. Vous 
pouvez le savoir en selectionnant la fonction dans la liste de la Visionneuse d'API et 
en consultant 1' argument du nom de fichier qui contient la fonction. 
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Precedence des 
operateurs 



Le Tableau B.l liste l'ordre de preference des operateurs. II regroupe les operateurs par 
type d' operation. 

Tableau B.l : Ordre des operateurs dans Visual Basic 



Arithmetiqu.es 


De comparaison 


Logiques 


Exponentielle ( A ) 


Egalite (=) 


Not 


Negation ( - ) 


Different de (<>) 


And 


Multiplication et division (*, /) 


Inferieur a (<) 


Or 


Division entiere (\) 


Superieur a (>) 


Xor 


Modulo arithmetique (Mod) 


Inferieur ou egal a (<=) 


Eqv 


Addition et soustraction (+, -) 


Superieur ou egal a (>=) 


Imp 


Concatenation de chaines de caracteres (&) 


Like, Is 
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Dec. Hexa ASCII Dec. Hexa ASCII 



0 


00 


null 


31 


IF 


e 


1 


01 


A 


32 


20 


espace 


2 


02 


B 


33 


21 


! 


3 


03 


C 


34 


22 


it 


4 


04 


D 


35 


23 


# 


5 


05 


E 


36 


24 


$ 


6 


06 


F 


37 


25 


% 


7 


07 


G 


38 


26 


& 


8 


08 


H 


39 


27 


i 


9 


09 


I 


40 


28 


( 


10 


OA 


J 


41 


29 


) 


11 


OB 


K 


42 


2A 


* 


12 


OC 


L 


43 


2B 


+ 
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Dec. 


Hexci 


ASCII 


Dec. 


Hexa 


ASCII 


13 


0D 


M 


44 


2C 




14 


OE 


N 


45 


2D 




15 


OF 


0 


46 


2E 




16 


10 


P 


47 


2F 


1 


17 


11 


Q 


48 


30 


0 


18 


12 


R 


49 


31 


1 


19 


13 


S 


50 


32 


2 


20 


14 


T 


51 


33 


3 


21 


15 


U 


52 


34 


4 


22 


16 


V 


53 


35 


5 


23 


17 


w 


54 


36 


6 


24 


18 


X 


55 


37 


7 


25 


19 


Y 


56 


38 


8 


26 


1A 


Z 


57 


39 


9 


27 


IB 


a 


58 


3A 




28 


1C 


b 


59 


3B 




29 


ID 


c 


60 


3C 


< 


30 


IE 


d 


61 


3D 




62 


3E 


> 


93 


5D 


] 


63 


3F 


? 


94 


5E 


A 


64 


40 


@ 


95 


5F 




65 


41 


A 


96 


60 




66 


42 


B 


97 


61 


a 
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Dec. 


Hexci 


ASCII 


Dec. 


Hexa 


ASCII 


67 


43 


C 


98 


62 


b 


68 


44 


D 


99 


63 


c 


69 


45 


E 


100 


64 


d 


70 


46 


F 


101 


65 


e 


71 


47 


G 


102 


66 


f 


72 


48 


H 


103 


67 


a 


73 


49 


I 


104 


68 


h 


74 


4A 


J 


105 


69 


i 


75 


4B 


K 


106 


6A 


j 

J 


76 


4C 


L 


107 


6B 


k 


77 


4D 


M 


108 


6C 


1 


78 


4E 


N 


109 


6D 


m 


79 


4F 


0 


110 


6E 


n 


80 


50 


P 


111 


6F 


0 


81 


51 


Q 


112 


70 


p 

r 


82 


52 


R 


113 


71 


q 

1 


83 


53 


S 


114 


72 


r 


84 


54 


T 


115 


73 


s 


85 


55 


U 


116 


74 


t 


86 


56 


V 


117 


75 


u 


87 


57 


w 


118 


76 


V 


88 


58 


X 


119 


77 


w 


89 


59 


Y 


120 


78 


X 
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Dec. 


Hexci 


ASCII 


Dec. 


Hexci 


ASCII 


90 


5A 


Z 


121 


79 


v 

j 


91 


5B 


[ 

L 


122 


7A 


z 


92 


5C 


\ 


123 


7B 


{ 


124 


7C 


1 


155 


9B 


6 


125 


7D 


} 


156 


9C 


u 


126 


IE 




157 


9D 


u 


127 


7F 


f 


158 


9E 


u 


128 


80 


A 


159 


9F 


ii 


129 


81 


A 


160 


AO 


f 


130 


82 


C 


161 


Al 


o 


131 


83 


s 

E 


162 


A2 


0 


132 


84 


N 


163 


A3 


£ 


133 


85 


0 


164 


A4 


§ 


134 


86 


U 


165 


A5 


• 


135 


87 


* 

a 


166 


A6 




136 


88 


V 

a 


167 


A7 


B 


137 


89 


a 


168 


A8 


® 


138 


8A 


a 


169 


A9 


© 


1 3Q 


8B 


a 


170 


AA 


TM 


140 


8C 


o 

a 


171 


AB 




141 


8D 


9 


172 


AC 




142 


8E 


s 

e 


173 


AD 




143 


8F 


V 

e 


174 


AE 


JE 



> 794 



Table des codes ASCII 



Dec. Hexa ASCII Dec. Hexa ASCII 



144 


90 


e 


175 


AF 


0 


145 


91 


e 


176 


BO 


€ 


146 


92 


f 


177 


Bl 


€ 


147 


93 


i 


178 


B2 


€ 


148 


94 


i 


179 


B3 


> 


149 


95 


i 


180 


B4 


¥ 


150 


96 


n 


181 


B5 




151 


97 


s 

0 


182 


B6 


d 


152 


98 


6 


183 


B7 


2 


153 


99 


6 


184 


B8 


n 


154 


9A 


6 


185 


B9 




186 


BA 


/ 


217 


D9 


Y 


187 


BB 


a 


218 


DA 


/ 


188 


BC 


o 


219 


DB 


€ 


189 


BD 


Q 


220 


DC 


< 


190 


BE 


ae 


221 


DD 


> 


191 


BF 


0 


222 


DE 


fi 


192 


CO 


6 


223 


DF 


fl 


193 


CI 


i 


224 


E0 


t 


194 


C2 


—i 


225 


El 




195 


C3 


V 


226 


E2 


) 


196 


C4 


f 


227 


E3 


S5 


197 


C5 




228 


E4 


%c 
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Dec. 


Hexci 


ASCII 


Dec. 


Hexci 


ASCII 


198 


C6 


A 


229 


E5 


A 


199 


C7 


a 


230 


E6 


E 


200 


C8 


55 


231 


E7 


A 


201 


C9 




232 


E8 


E 


202 


CA 


D 


233 


E9 


E 


203 


CB 


V 

A 


234 


EA 


f 


204 


CC 


A 


235 


EB 


I 


205 


CD 


0 


236 


EC 


I 


206 


CE 


CE 


237 


ED 


0 


207 


CF 


oe 


238 


EE 


6 


208 


DO 




239 


EF 


6 


209 


Dl 




240 


F0 


m 


210 


D2 




241 


Fl 


6 


211 


D3 


55 


242 


F2 


u 


212 


D4 


6 


243 


F3 


u 


213 


D5 


5 


244 


F4 


u 


214 


D6 




245 


F5 


i 


215 


D7 


v 


246 


F6 




zlo 


US 


y 


24/ 


t 1 




248 


F8 




252 


FC 




249 


F9 




253 


FD 




250 


FA 




254 


FE 


i. 


251 


FB 


o 


255 


FF 
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Symbols 



= (argument nomme) 521 
! , caractere de formatage de 

chaines 263 
, caractere de formatage de 

nombres 
%, caractere de formatage de 

nombres 264 
&, caractere de formatage de 

chaines 263 
&, operateur 133 
(Personnalise), propriete 283 
*, joker 146 
*, operateur 133 
+, operateur 133 
-,+,$, espace, caracteres de 

formatage de nombres 264 
-, operateur 133 
„ caractere de formatage de 

nombres 264 
., caractere de formatage de 

nombres 264 
/, caractere de formatage de 

nombres 264 
/, operateur 133 
<, caractere de formatage de 

chaines 263 
<, operateur 144 
<=, operateur 144 
<>, operateur 144 
<Code Non-Basic>, pile des ap- 

pels 67 1 
=, operateur 144 
>, caractere de formatage de 

chaines 263 
>, operateur 144 



>=, operateur 144 
?, oker 146 

@ , caractere de formatage de 

chaines 263 
\, caractere de formatage de 

nombres 264 
\, operateur 133 
\\, caractere de formatage de 

nombres 264 
A , operateur 133 

Nombres 



0, caractere de formatage de 
nombres 264 

A 



A propos de 

exemple de creation 575 
modele de feuille 487 
A propos, boite de dialogue 24 
Abs(),fonction240,743 
Acces fichiers 407 
aleatoire 392 

Close, instruction 393 
Get , instruction 
Open, instruction 393 
Put , instruction 
Line Input , commande 
Read 382 
Read Write 382 
Sequentiel 385 

Input , instruction 
Print , instruction 
Write , instruction 



verrouillage 

Lock Read 383 
Lock Read Write 383 
Lock Write 383 
Shared 383 
Write 382 
Acces Internet 624 
Accolades SendKeys 189 
Activate, evenement 80, 348 
Activation in-situ 506 
ActiveX 35, 66, 274, 532 
ADO 592 
automatisation 536 

Excel 536 
controles 

ajout au projet 533 
compiler 558 
conception 542 
dessines par 
l'utilisateur 544 
exemple de creation 
544 

fichier executable 
534 

implementer 558 
mefhodes de test 559 
sous-classes agreges 
544 

sous-classes simples 
544 

tester 559 
creer ses controles 541 
dans Netscape 533 
documents ActiveX 626 
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Index 



ActiveX (suite) 
execution 

a l'execution 545 
a la conception 545 
telechargement de controles 
533 

UserControl_Resize() 555 
ActiveX Data Objects Voir 

ADO 
Add, methode 520 
Addltem, methode 301, 307 
Addition 133 
AddNew, methode 617 
ADO 592 

controles 601 

connexion aux 
donnees 609 
Data 593 
DataCombo 593 
DataList 593 
Microsoft Jet 3.51 
OLE DB Provider 
610 

mise a jour des tables 
615 

parcours des donnees 
613 

ADO Voir aussi Controles 
ADO 

Afficher la definition, 

Explorateur d'objets 526 
Aide 

adapter a une application 
644 

afficher dans 1' application 

655 
compiler 654 
connexion a 1' application 

655 

contextuelle 642 

controle Boites de dialo- 
gue communes 655 

creer les sauts hypertexte 
648 

creer un fichier RTF 649 



fichier de projet 653 
HTML 644 
ID de contexte 650 
conversion en 
numerique 656 
info-bulles 642 
outils de creation 660 
preparer le fichier des sujets 
647 

Qu'est-ce que c'est ? 642, 

658 
RTF 647 

chaTne de contexte 
648 

soulignement double 
648 

soulignement simple 
648 

symboles de note de 
bas de page 648 
texte masque 648 
sauts hypertexte 647, 648 
touche Fl 655 
visionneuse de fichiers 

d'aide 647 
WinHelp 645 
Aide en ligne 43 

support technique 45 
Aide HTML 

FrontPage Express 646 
Microsoft Word 97 646 
Aide surgissante, soulignement 

simple RTF 648 
Ajout/Suppression de 
programmes, Panneau de 
configuration 686 
Ajouter des controles ActiveX 

533 
Alias 737 

Align, propriete 366 
Alignment, propriete 73 
Alt 

Souris 298 
An2000,bogue 126 



And, operateur 149, 152 
And bitwise 187,298 

Animation 572 

Annuler (bouton) 278 

API Windows 671,732 
_lopen 737 

bourrage des chaines 738 
Declare 735 

fonction d'enrobage 753 
GetDriveType() 744 
GetSettingO 753 
GetSystemDirectoryO 746 
GetSystemTimeO 754 
GetTempPath() 746 
GetWindowsDirectoryO 
740 

incoherence des arguments 
751 

MessageBeepO 741 
SaveSettingO 753 
types de donnees 737 
Visionneuse d'API 739 
App, objet systeme 489 
App .Major, objet systeme 575 
App .Minor, objet systeme 575 
App .Revision, objet systeme 
575 

App.Title, objet systeme 575 

Appel 

de fonctions 236 
de procedures 228, 229, 
233 

de sous-routines 235 
Applets (Java) 627 
Application Programming 

Interface Voir API Windows 
Applications 8 
compiler 677 
deboguer 664 
desinstaller 686 
distribution 677 

assistant Empaque- 
tage et deploiement 
680 

hierarchie des objets 536 
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multifeuilles Voir MDI 
363 

test en parallele 687 

tester 664 
AppPath, variable systeme 683 
Arguments 173 

Controles 238 

InputBoxO 182 

KeyAscii 185 

MsgBox() 175 

nomme 521 

passement entre procedures 
233 

passement par reference/ 
par valeur 235 
Array(), fonction 319, 703 
Asc(), fonction 251 
ASCII 146, 185, 188 
fonctions 25 1 
KeyCode 186 
Assembleur 8 
Assignation Set 537 
Assistants 18 

Creation d' applications 
19-26, 484, 593 
bases de donnees 
Classe 595 
Code ADO 595 
Controle de don- 
nees ADO 595 
Connexion a Internet 
(fenetre) 620 
enregistrement unique 
594 

Grille (feuille de 
donnees) 595 
Internet 620 
MDI 366 
menus 98 
MS Chart 595 
MS HFlexGrid 595 
Principale/secondaire 
595 

Empaquetage et 
deploiement 680 



Interface de controles 
ActiveX 547 

Definition des attri- 
bute 551 
demarrage 548 
Internet 620 
Migration de document 
ActiveX 628 
conversion de 
plusieurs feuilles 637 
Recapitulatif 63 1 
types d'applications 
converties 638 
Astuce du jour 498 

Afficher les astuces au 
demarrage (option) 498 
Atn(), fonction 241 
Auto Activate, propriete 509 
Automatisation 
ActiveX 536 
in-situ 529 
AutoRedraw, propriete 428 
AutoSize, propriete 72 
AutoTSize, propriete 542, 551 

B 

BackColor, propriete 276, 553 
BackStyle, propriete 441 
Barre d'onglets, controle 496 
Barres d'outils 368 

Debogage 670 

ImageList 369 

Voir aussi Coolbars 372 
Barres d'outils Visual Basic 36 

Debogage 35 

Editeur de code 35 

Edition 35 

Standard 35 
Barres de defilement 74, 467 
Base de registres 499 
Bases de donnees 578 

assistant Creation d'appli- 
cations 593 



Classe 595 
Code ADO 595 
Controle de donnees 
ADO 595 
Enregistrement 
unique 594 
Grille (feuille de don- 
nees) 595 
liens 595 
MS Chart 595 
MS HFlexGrid 595 
Principale/ secondai- 
re595 
BIBLIO.MDB 582 
champs 579 
champs indexes 584 
colonnes 579 
compatibles ODBC 578 
connexion Voir ODBCO- 
DBC 

controles avances 592 
controles lies 587 
dBase 578 

donnees separees par des 

virgules 578 
dynaset 583 
enregistrements 579 
Feuilles de calculs Lotus 

578 

fichier sequentiel 580 
FoxPro 578 

Gestionnaire de donnees 

582 
index 580 
interrogation 580 
jeu d'enregistrements 583 
lignes 579 

Microsoft Access 578 
Microsoft Jet 3.51 OLE 

DB Provider 610 
NWIND.MDB 582 
Paradox 578 

pointeur d'enregistrement 

591 
recordset 583 
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Index 



Bases de donnees (suite) 

relation plusieurs-a-plu- 
sieurs 598 

relation un-a-plusieurs 595 

relation un-a-un 598 

relationnelles 581 

snapshot 583 

SQL 612 

table 580 
BASIC 8-12,319,345 
BASICA 9 

Beep, instruction 153, 742 
Before, argument nomme 521 
BIBLIO.MDB 601 
Bibliotheques 

de liens dynamiques Voir 
DLL 

de types 522 
Bloc d'enumeration 542 
BOF, propriete 591, 615 
Bogue de Tan 2000 126 
Boite a outils 36 

ajouter des controles 535 

controles Internet 622 

creer des onglets 535 

onglets 564 
Boites d'entree Vo!>InputBox() 
Boites de dialogue 271 

A propos 24 

A propos de 487 
exemple 575 

Composants 534 

Connexion 493 

Connexion ODBC 501 

Creer le projet 677 

Options 496 

Options, Verification 
automatique de la 
syntaxe 666 

Pile des appels 670 

Projet, Ajouter une feuille 
486 

Proprietes du projet 655 
Boites de dialogue communes 
Aide 289 



Aide Windows 272 
Bouton Annuler 278 
Couleurs 272, 276 

Constantes nominees 
277 

DialogTitle, propriete 276 
Enregistrer 272, 284, 286 
Filter, propriete 285 
Flags, propriete 277 
Imprimer 272, 287 
Ouvrir 272, 284 
Police 272,280 

Constantes nominees 
281 

ShowColor, methode 275 
ShowFont, methode 275 
ShowHelp, methode 275 
ShowOpen, methode 275 
ShowPrinter, methode 275 
ShowSave, methode 275 

Boites de message 
Voir MsgBox() 

Boolean, type de donnees 124, 
148 

Booleens Voir Boolean 
BorderColor, propriete 440, 
441 

BorderStyle, propriete 70, 193, 

440,441 
BorderWidth, propriete 440, 

441 
Boucles 159 

Do... Loop 160 
For 

Voir aussi For... Next 
For Each 352 
imbriquees 165 
iterations 163 
Boucles For 

tableaux 699 
Bourrage (chaines de l'API) 
738 



Boutons 

Annuler 278 

CancelEiror, propriete 
279 

MsgBox() 176 
Boutons d'option 73, 191 
Boutons de commande 74 

evenements 82 

propriete Default 368 

proprietes 75 
Boutons radio Voir boutons 

d'option 
ByRef 737 
ByRef , mot cle 235 
Byte, type de donnees 121, 148 
ByVal 737 
ByVal, mot cle 235 

c 

c n 

C++ 11 

CAB,fichiers680 
Calc.Vbp, projet 628 
Call, instruction 228, 236, 715 
CallDUs.VBP (projet exemple) 
736 

Canal de fichier 380 
Cancel, propriete 75 
CancelError, propriete 279 
Caption, propriete 53, 76, 193 

raccourcis clavier 190 
Caracteres de formatage 

! 263 

%264 

&263 

,264 

-,+,$, espace 264 

.264 

/264 

<263 

>263 

@ 263 

\264 
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W264 

0 264 

Dates 265 

E-,E+,e-,e+ 264 
Case Voir Select Case 
Casse 146, 188,253 
CBool(),fonction248 
CByte(), fonction 248 
CCur(),fonction248 
CDate(), fonction 248 
CDbl(), fonction 248 
CDec(), fonction 248 
CellPicture, propriete 726 
Cellule de tableau 696 
CenterCells(), procedure 716 
Chaines 124 

concatenation 133 

de contexte (aide RTF) 
648 

Declaration 130 
Empty (mot cle) 125 
Fonctions 250 
Formatage 263 
longueur fixe/variable 1 30 
nulle 125 
Champs 104 

Champs (bases de donnees) 579 
Change, evenement 81 
ChangeSignalQ, fonction 669 
ChDir, commande 402 
ChDrive, commande 402 
CheckBox Voir Cases a cocher 
Chimes.wav (son) 569 
chkLoadTipsAtStartupO, pro- 
cedure 499, 504 
CHM, extension de fichier 646 
Choose(), fonction 241 

Syntaxe 247 
Chr(), fonction 251 
CInt(), fonction 248 
Circle, methode 449 
Cities, collection 520 
Classes 543 

Collection 520 

ComboBox 524 



CommandButton 513, 520 

d'objets 513 

DateTime 525 

definition 543 

Explorateur d'objets 524 

Form 513 

instance 513 

With ...End With 513 
Clavier 184 

evenements 184 

proprietes 184 
Clear, methode 306 
Click, evenement 79, 80, 81, 

185,294,296,527,574 
Client 636 

Clipboard, objet systeme 516 
CLng(), fonction 248 
Close, instruction 384 
cmdAni_Click(), procedure 574 
cmdApply_Click(), procedure 
497 

cmdDecrease_Click(), procedu- 
re 722 

cmdIncrease_Click(), procedu- 
re 722 
COBOL 8 
Code 10 

lignes commentees 553 
Code natif , compilation 679 
Collection, classe 520 
Collections 519 

Cities 520 

Controls 517, 518 

de feuilles Voir Voir 
Forms 349 

Forms 491,519 

Forms Voir Forms 349 

Printers 416 

Tips 499 
Colonnes (bases de donnees) 
579 

ColorConstants 

Explorateur d'objets 524 
ComboBox 306 

methode Addltem 307 



proprietes 

Sorted 306 
Style 306 
Text 308 
ComboBox, classe 524 
COMDLG.DLL 733 
Command, propriete 453 
CommandButton, classe 513, 
520 

CommandButton, controle Voir 

Boutons de commande 
Commandes 

ChDir 402 

ChDrive 402 

Kill 402 

liees aux fichiers 402 

Line Input 

MkDir 402 

RmDir 402 
Commentaires 18,95 

A COMPLETER 553 

lignes commentees 553 
Commissions sur les ventes 
(exemple de controle grille) 
710 

Common Dialog Voir Boites 

de dialogue 27 1 
Comparaisons 145 
casse 146 

conditionnelles 148 

de chaines 145 

If... Then 154 

Select Case 157, 158 
Compatibles 16 bits (DLL) 732 
Compilation 

application 677 

code natif 679 

icone de 1' application 679 

informations de version 
678 

langages de programmation 
10 

nom d'executable 678 
Optimisations avancees 
(bouton) 679 
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Index 



Complements 

assistant Empaquetage et 

deploiement 680 
assistant Interface de 

controles ActiveX 547 
assistant Migration de 

document ActiveX 628 
automatique d' instructions 

59 

charger au demarrage 547 
Gestionnaire de donnees 
582 

Visionneuse d'API 739 
Composants 

boTte de dialogue 534 

Microsoft ADO Data Con- 
trol 6.0 602 

Microsoft Windows Com- 
mon Controls 6.0 496 
Compteur Voir For... Next 
Concatenation 133 
Condition 151 

Conditionnels, operateurs 144 
ConnectionString, propriete 

609 
Connexion 

modele de feuille 493 
Connexion ODBC 

modele de feuille 50 1 
Connexion ouverte aux bases 
de donnees Voir ODBCO- 
DBC 
Const 554 
Constantes 121 

TIP_FILE 499 
Constantes (Visionneuse 

d'API) 740 
Constantes nominees 179 
Flags 277,281,284 
fonction LoadPicture() 

437,438 
Mode 458 

MsgBox() 177, 178, 180 
ScaleMode 357 
StartUpPosition 347 



VarType() 244 
vblnformation 554 
vb White 554 
Conteneur OLE 507 
Contextuelle, aide 642 
ControlBox, propriete 70 
Controle de donnees 
Voir Controle Data 
Controles 

ActiveX 532 

ajout au projet 533 
compiler 558 
conception 542 
creer 541 
dessines par 
rutilisateur 544 
exemple de creation 
544 

fichier executable 
534 

implementer 558 
installation 68 1 
mefhodes de test 559 
sous-classes agreges 
544 

sous-classes simples 
544 

tester 559 
ADO 592,601 

assistant Creation 
d'applications 593 

connexion aux don- 
nees 609 

Data 593 

DataCombo 593 

DataList 593 

mise a jour des tables 
615 

parcours des donnees 
613 

Barre d'onglets 496 
Bortes de dialogue 
communes 
Aide 655 
CommandButton Voir 



Boutons de commande 
consulter le contenu a 

T execution 670 
Data 586, 588 

configuration 587 
utilisation avancee 
590 

de bases de donnees 

avances 592 
de transfert Internet 624 
Frame Voir Frames 
Gauge 532 
grille 703 

comprendre 704 
enregistrer des images 
726 

en-tetes de lignes et 
de colonnes 705 

exemple d'utilisation 
710 

lignes et colonnes 
fixes 705 

preparation 703 
groupe 512 
groupes 517, 569 
Image 76, 436 
ImageList369,372 
insurables 66 
Internet 622, 624 

d'encapsulation 624 
Internet Explorer 625 
intrinseques 66 
Label Voir Labels 
lies 587 
Line 439 

ListBox Voir Zones de liste 
ListView 364 
Microsoft Internet 

Controls 625 
Microsoft Internet 

Transfer Control 6.0 625 
Microsoft Winsock 

Control 6.0 625 
MSFlexGrid 703 
MSMaskEdit 188 
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Controles (suite) 
multimedia 450 
Navigateur Web 622, 624 
OCX 32 bits 532 
OLE 507 
OptionButton 

Voir Boutons d'option 
passement 238 
PictureBox 436, 462, 569 
Shape 440 
TextBox 

amelioration par Ac- 
tiveX 542 
TextBox Voir Zones de 

texte 
TextSizeUL 543 
Timer Voir Timer 
Timer Voir Timer 310 
Toolbar Voir Barres 

d'outils 368 
TreeView 364 
Winsock 624 
Zone de liste Dossier 399 
Zone de liste Fichier 399 
Zone de liste Lecteur 399 
Controles d'extension VBX 
532 

Controles de fichiers 399 
Controls, collection 517, 518 
Conversion 

chaines 250 

types de donnees 241 , 248 
Coolbars 372 

Image, propriete 373 

page de proprietes 374 
Coordonnees 

Current Y/CurrentX 356 

curseur texte 356 

feuilles 346 

imprimante 422 

Move 300 

ScaleMode 359 
Copier-coller 294 
Copies, propriete 288 
Cos(),fonction241 



Count, methode 520 
Count, propriete 35 1 , 5 19 
CreateObjectO, fonction 537 
Createur de menus 101-1 16 
Creation d'applications, assis- 
tant 484 
Creation de projet 

Assistant Creation d'appli- 
cations 19-26 
Creer le projet, boite de dialogue 
677 

CSng(), fonction 248 
CStr(), fonction 248 
CStr(), fonction 250 
Ctrl (souris) 298 
Ctrl-Break 668 
CurDir(), fonction 402 
Currency, type de donnees 148 
CurrentX, propriete 356, 422 
CurrentY, propriete 356, 422 
Curseur texte 74 

coordonnees 356 
CVar(), fonction 249 

D 

Data (controle) 586, 588 

configuration 587 

utilisation avancee 590 
DatabaseName, propriete 588 
DataField, propriete 589, 612 
DataSource, propriete 588, 612 
Date et heure 263 

caracteres de formatage 
265 

fonctions 256 

fonctions de comparaison 
258 

Date, fonction 256 

Date, type de donnees 124, 148 

DateAdd(), fonction 258 

Syntaxe 258 
DateDiffO, fonction 258, 259 
DatePart(), fonction 258 



DateSerial(), fonctions 260 
DateTime, classe 525 
DateValue(), fonction 262 
Day (), fonction 259,262 
DblClick, evenement 80, 81 , 
296 

Deactivate, evenement 80, 348 

Debogage 664 

<Code Non-Basio 671 
barre d'outils 670 
fenetre Espion express 676 
fenetre Espions 675 
fenetre Execution 673 
fenetre Variables locales 
674 

imprimer le resultat d'une 

expression 673 
methode Print 673 
modifier la valeur d'une 

variable en cours d'exe- 

cution 673 
pas a pas 672 
Pile des appels (boite de 

dialogue) 670 
points d' arret 669 
points d' arret multiples 

672 

Debogueur 15, 668 
Debug, objet 353 
Debug, objet systeme 674 
Dechargement des feuilles 352 
Declarations 

chaines 130 

composite 394 

fonctions 236 

procedures 229 

tableaux 316 

variables 127 

Visionneuse d'API 740 
Declare, instruction 735 

fonction API 736 

procedure API 736 
Decrementation 164 
Default, propriete 76, 368 
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Desinstallation 

de 1' application 686 
ST6UNST.LOG 686 
Dessin 435 

controles 438 
Line 439 
Shape 440 
methodes 445 
Circle 449 
Line 447 
PSet 445 
DeviceType, propriete 452 
DHTML 627 

applications Visual Basic 
636 

DialogTitle, propriete 276 
Dim, instruction 127,231,316, 
697 

syntaxe 127, 130 
Dir(),fonction402 
DisplayCurrentTip, methode 

499 
Distribution 

assistant Empaquetage et 

deploiement 680 
de 1' application 677 
du code source 677 
fichiers CAB 680 
Division 133 

par zero 667 
DLL 630, 732 
nature 734 
Windows 

COMDLG.DLL 733 
GDI32.DLL733 
KERNEL3 2 .DLL 
733 

MAPI32.DLL 733 
NETAPI32.DLL 733 
USER32.DLL 733 
WINMM.DLL 733 
Dll Document ActiveX, projet 
627 

DLL Runtime Visual Basic 679 
Do, instruction Voir Do... Loop 



Documentation 18,94 
Documents ActiveX 626 

assistant de migration 628 
Done, evenement 457 
DoNextTipO, procedure 499 
Donnees 

noms de champs 580 
Donnees (types de) 120-?? 
Donnees, types de ??-126 
Dossiers 

Windows 745 
System 745 
Temp 745 
Drag, methode 300 
DragDrop, evenement 299 
DragMode, propriete 299 
DragOver, evenement 300 
DVD 451 

Dynamic Hypertext Markup 
Language Voir DHTML 

Dynamic Link Library 
Voir DLL 

Dynaset (bases de donnees) 583 

E 



E-, E+, e-, e+, caracteres de for- 

matage de nombres 264 
E/S Voir Entrees/sorties 
Ecrans 

Astuce du jour 498 

d'accueil 491 

de presentation 23 
Editions de Visual Basic 13 
Else, instruction Voir If... Then 
Elself, instruction 155 
Empaquetage et deploiement, 

assistant 680 
Empty, mot cle 125, 145, 183 
Enabled, propriete 108 
Encapsulation 

d'objets 512 

Internet 624 



End Function, instruction 84, 
235 

End If, instruction 

Voir If... Then 
End Sub, instruction 235 
End, instruction 93, 615, 638 
EndDoc, methode 420 
Enregistrements 383 

bases de donnees 579 

longueur 396 

OLE 

contenu de l'objet 
510 

unique (Assistant Creation 
d' applications) 594 
Entiers Voir Integer 
Entrees/sorties 173 
Entreprise (edition Visual 

Basic) 592, 627 
Enum, instruction 554 
Enumeration 542 
EOF(), fonction 414 
EOF, propriete 591, 614 
Err, objet systeme 280, 538 
Err.Number538,668 
Erreurs 

de logique 666 

de syntaxe 665 

division par zero 667 

Err .Number 538 
Erreurs, gerer 457 

On Error Goto 430 

On Error Goto, instruction 
382 

Esperluette 22, 96 
Espion express (fenetre de 

debogage) 676 
Espions (fenetre de debogage) 

675 

Etiquettes 278 

lblTipText 498 
Evenements 26 

Activate 80,348 

boutons de commande 82 

Change 81 
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clavier 184 

Click 79, 80, 81, 185,294, 

296,527,574 
DblClick 80,81,296 
Deactivate 80, 348 
Done 457 
DragDrop 299 
DragOver 300 
feuilles 80 

Form_Keypress() 493 

Initialize 81 

KeyDown 184, 186 

KeyPress 184, 185 

Key Up 184, 187 

Load 81, 302 

MouseClick551 

MouseDown296,551 

MouseMove 296 

MouseUp 296 

Paint 81 

Resize 81,348 

Souris 294 

StatusUpdate 453 

Timer 312 

Unload 81, 302 

Voir aussi Procedures eve- 

nementielles 
zones de texte 8 1 
Excel 536 

automatisation ActiveX 

536 

creer des feuilles de calcul 
539 

Exclusive, propriete 590 
Exe Document ActiveX, projet 
627 

EXE standard 34 
Execution 

pas a pas, debogage 672 
Execution (fenetre de de- 
bogage) 673 
Exit Do, instruction 162 
Exit Sub, instruction 235 
Exit, instruction 154 
Exp(), fonction 241 



Explorateur d'objets 522 

Afficher la definition 526 
ColorConstants 524 
controles de manoeuvre 
523 

liste des Classes 524 

liste des Membres 524 
Explorateur Windows 21, 364 
Exposant 133 
Extensions 

.BAS 40 

.BMP 436 

.CLS 40 

.CUR 436 

.DOB 40 

.EMF 436 

.EXE 34 

.FRM 40 

.GIF 436 

.ICO 296, 436 

JPEG 436 

JPG 436 

.OCX 35,40 

.PAG 40 

.RLE 436 

.VBP 40 

.WMF 436 

F 



False 

VarType() 244 
Fenetre Code 

Listes Objet et Procedure 
113 

Fenetre fille 366 
Fenetre parent 365 
Fenetres 

Assistant Creation 
d'applications 

Connexion a Internet 
620 
Boite a outils 

creer des onglets 535 



Espion express 676 

Espions 675 

Execution 673 

Info Express 558 

Infos systemes 490 

Recapitulatif 63 1 

Variables locales 674 
Fenetres Visual Basic 

Code 39 

Feuille 36 

Feuilles 16 

Nouveau projet 34 

Presentation des feuilles 
37 

Projet 38 

Proprietes 40 
Feuilles 50, 346 

Activate, evenement 348 

Actives/inactives 363 

Align 366 

Applications multifeuilles 

Voir MDI 363 
AutoRedraw 428 
Collection Forms 349 
Deactivate, evenement 348 
dechargement 352 
evenements 80 
fille 366 
Form 349 

Form.Hide, methode 346 

Form.Show, methode 346 

Form_Load 346 

Form_Load() 192 

Form_Unload 346 

frmActiveX 559 

imprimer 423 , 427 

Load 302 

MDIChild 366 

modeles 482 

A propos de 487 
ajouter 484 
boite de dialogue 
Connexion 493 
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Feuilles (suite) 

boTte de dialogue 
Connexion ODBC 
501 

boTte de dialogue 

Options 496 
creer un nouveau 

modele 502 
ecran Astuce du jour 

498 

ecran d'accueil 491 

modifier 486 
objet de demarrage 492 
parent 365 

Print, instruction 425, 426 
Print, methode 353 
PrintForm, methode 427 
proprietes 70, 358 
PSet 445 
Resize 348 
StartUpPosition 347 
Unload 302 
Fichiers 

aleatoires 392 
binaire 510 
CAB 680 
canal 380 
Close 384 
commandes 402 
controles 399 
CurDir() 402 
de dependances 68 1 
Dir() 402 

enregistrements 383 
EOF() 414 
FreeFileO 383 
INI 752 

Lecture/ecriture Voir 
Acces fichiers 385 
Mapi32.txt (API) 739 
numeros 383 
Open 380 
partages 684 



script d' assistant Empa- 
quetage et deploiement 
680 

sequentiels 385, 580 
Setup.exe 685 
Setup .1st 685 
ST6UNST.LOG 686 
Wav 567 

Win32api.txt (API) 739 
File Transfer Protocol Voir FTP 
FileName, propriete 286 
Filename, propriete 462 
Aide 

fichier de projet 
section 653 
FILES (section du fichier de 

projet d'aide) 653 
Filter, propriete 285 
Filterlndex, propriete 286 
Filtres 

de types de fichiers 285 
Fix(), fonction 239 
Fixes 

lignes et colonnes (contro- 
le grille) 705 
Flags , propriete 277 , 28 1 , 284 
Focus 76,77,78 

LostFocus(), procedure 
evenementielle 309 
Fonctions 84, 172,239 

Abs() 240, 743 

appel 236 

Arguments 173 

Array() 319,703 

Asc()251 

ASCII 251 

Atn() 241 

Casse 253 

CBool() 248 

CByte() 248 

CCur() 248 

CDate() 248 

CDbl() 248 

CDec() 248 

chatnes 250 



ChangeSignal() 669 
Choose() 241 
ChrO 251 

Chronometriques 257 
CInt() 248 
CLng() 248 
conversion 250 
Cos() 241 
CreateObject() 537 
CSng() 248 
CStr() 248,250 
CurDir() 402 
CVar() 249 
Date 256 

Date et heure 256, 258 
DateAdd() 258 
DateDiff() 258,259 
DatePart() 258 
DateSerialO 260 
DateValue() 262 
DayO 259, 262 
Declaration 236 
Dir() 402 
EOF() 414 
Exp() 241 
Fix() 239 
Format() 263,720 
FreeFileO 383 
GetObject() 537 
GetText()517 
hscDecrease_Change() 
722 

hscIncrease_Change() 722 
IIf() 241,616 
InputBox() 320 
InputBox() Voir Input- 

Box() 181 
Int() 239 
IsDate() 241 
IsEmptyO 242 
IsNullO 241,242 
IsNumeric() 241,242 
LCase() 254, 558 
Left() 252 
Len() 250 
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Load_Tips() 499 
LoadPictureO 173,436, 

726 
LoadPictureO 

Voir LoadPictureO 60 
Log() 241 
LTrim() 254 
Mid() 252 
Month() 259, 262 
MsgBox() 495 
MsgBoxO 

Voir MsgBoxQ 174 
Now 256 

Privees/publiques 236 
PrReady() 431 
Reverselt() 254 
Right() 252 
RTrim() 254 
Scientifiques 241 
Sin() 241 
Sous-chames 252 
Spc() 354, 386 
Sqr() 240 
Str() 250, 254 
Tab() 355,386 
Tan() 241 
Time 256 
Timer 257 
TimeSerial() 262 
TimeValueO 262 
Trim() 254 
TypeOf() 513 
UCase() 254, 558 
Val() 250 
VarType() 241 
Weekday() 262 
Year() 259, 262 
Font, propriete 56, 193, 282, 
424 

FontBold, propriete 424 
For Each, boucle 352, 517 
For Each, instruction 352 
For, instruction 163, 699 
For... Next 163 
Exit For 154 



imbriquees 165 

Next Out 165 

Step 163, 164 

Voir aussi For Each 352 
ForeColor, propriete 276 
Form, classe 513 
Form, objet 349 
Form .Hide, methode 346 
Form. Show, methode 346 
Form_DragDrop(), procedure 

evenementielle 299 
Form_Keypress(), evenement 
493 

Form_Load(), procedure 489, 
716 

Form_Load(), procedure 
evenementielle 192, 302, 346 

Form_Resize(), procedure eve- 
nementielle 412 

Form_Unload(), procedure eve- 
nementielle 346 

Format(), fonction 263, 720 

FormatString, propriete 724 

Forms, collection 349, 491 , 5 19 

Forms collection 

Count, propriete 351 

FORTRAN 8 

Fournisseur de services Internet 

620 
Frames 192 

FreeFile(), fonction 383 
frmActiveX, feuille 559 
FromPage, propriete 288 
FrontPage Express 

HTML 646 
FTP 624 

Function, mot cle 84 

G 



Gauge, controle 532 
GDI32.DLL733 
Gestionnaire de donnees 582 
Get , instruction 



Get, procedure 553 
GetDriveType() (API) 744 
GetObject(), fonction 537 
GetSettingO (API) 753 
GetSystemDirectoryO (API) 
746 

GetSystemTimeO (API) 754 
GetTempPath() (API) 746 
GetText(), fonction 517 
GetWindowsDirectoryO (API) 
740 

Glisser-deposer 294, 299, 342 
Globales, variables 230 
Gopher 624 

GridLines, propriete 707 
Grille 52, 55 

Grille, (Assistant Creation d' ap- 
plications) 595 
Grille, controle 703 
comprendre 704 
enregistrer des images 726 
en-tetes de lignes et de co- 

lonnes 705 
exemple d'utilisation 710 
lignes et colonnes fixes 
705 

preparation 703 
Groupes 

d'objets 517 

decontrols 512, 517, 569 
GWBASIC 9 

H 



HCW.EXE 654 
Height, propriete 52, 56, 70 
HelpContext, propriete 656 
HelpContextID, propriete 646, 
657 

HelpFile, propriete 646, 656 
Heritage (objets) 513 
Hexadecimale, numerotation 
103 



807 < 



Index 



Hierarchie des operateurs 134, 
150 

HLP, extension de fichier 646 
Horloge interne 257, 310 
HPJ, extension de fichier 653 
hscDecrease_Change(), fonction 
722 

hscIncrease_Change(), fonc- 
tion 722 
HTM 627 

HTML 626, 633, 644 

FrontPage Express 646 
Microsoft Word 97 646 
systeme d'aide 644 

HTTP 621 

Hypertext Markup Language 

Voir HTML 
Hypertext Transfer Protocol 

Voir HTTP 

I 



I/O Voir Entrees/sorties 
Icon, propriete 71, 679 
Icones 

Barres d'outils Voir Ima- 

geList 372 
MsgBox() 180 
Ic6nes:pointeur de la souris; 
337 

ID de contexte 650 

conversion en numerique 
656 

If TypeOf, instruction 238, 424 
If, instruction 

Voir aussi If... Then 
If... Then 

And 152 

Else 153 

Elself 155 

End If 151 

imbriquees 154, 155 

Voir aussi IIf() 
If... Then, instruction 176 



If... Else Voir If... Then 
IIf(), fonction 241,616 

Syntaxe 246 
IIS 636 

Image, controle 76, 436 

Picture 436 

Stretch 437 
Image, propriete 373 
ImageList, controle 369, 372 

Image 373 
Images 

dessin 435 

Image, controle 436 

LoadPicture() 436 

PictureBox 436 
Imbrication 

de types de donnees 
personnalises 398 

If... Then 154 
Imbrications 

boucles For 699 

For... Next 165 

If... Then 155 
Imprimante Voir Imprimer 415 
Imprimer 415 

AutoRedraw 428 

CurrentX 422 

CurrentY 422 

EndDoc 420 

feuilles 423,427 

Font 424 

FontBold 424 

KillDoc 423 

Me 428 

NewPage 420 

On Error Goto 430 

PrintForm 427 

Proprietes 417 

PrReadyO 431 

ScaleMode 421 

Set Printer 417 
Incrementation 

For... Next 164 
Indentation 59 



Index 

bases de donnees 580 
Indices 

collection Forms 349, 350 

tableaux 314, 316, 319 

zones de liste 305 
Info Express, fenetre 558 
Info-bulles 36, 642 
Infos systeme 490 
INI, extension de fichier 752 
Initialize, evenement 81 
InitScroll(), procedure 716 
Input , instruction 
Input/Output Voir Entrees/ 

sorties 159 
InputBox(), fonction 181 , 320 

syntaxe 182 
In-situ 

activation OLE 506 
Inspection de donnees 241 
Installation 

controle ActiveX 68 1 

fichiers compresses 685 

fichiers partages 684 
Instance de classe 513 
Instructions 

Beep 153,742 

Call 228,236,715 

Close 384 

Declare 735 

fonction API 

format 736 
procedure API 
format 736 

Dim 127,231,316,697 

Do Voir Do... Loop 

Else Voi>If...Then 153 

Elself 155 

End 93, 615, 638 

End Function 84, 235 

End If Ko;>If...Then 

End Sub 235 

Enum 554 

Exit 154 

Exit Do 162 
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Exit Sub 235 

For 699 

For Each 352 

For Voir For... Next 

Get 

If TypeOf 238,424 
If Voir aussi If... Then 
Input 
Let 132 

Loop Voir Do... Loop 160 
MsgBox 495 
multilignes 96 
Next Out Voir For... Next 
Next Voir For... Next 163 
On Error 

Next 538 
On Error Goto 278, 382, 

430 
Open 380 
Option Base 730 
Option Base 1 316 
Option Compare Text 146 
Option Explicit 119, 127, 

146 
Print 

Public 316,697 
Put 

SaveSetting 499 
Select Case 156,574 
SendKeys 188,495 
Set 367 

Set Printer 417 

Step Voir For... Next 

To 318 

Type 395 

TypeOf 513 

Unload Me 493 

Until Voir Do... Loop 160 

While Voir Do... Loop 

With ...End With 513 

Write 

Instructions d' affectation 131, 

139, 140 
Int(),fonction 239 
Integer, type de donnees 148 



Interfaces 

boites de dialogue 

communes 275 
de controles ActiveX, as- 
sistant 547 
Explorateur Windows 21 
monodocument (SDI) 621 
monoducument Voir SDI 
multidocument Voir MDI 
Internet 23 
acces 624 
applets lava 627 
Application IIS 636 
Applications DHTML 636 
assistant Creation d' appli- 
cations 620 
client 636 
controles 

d'encapsulation 624 
de transfert 624 
Navigateur Web 622, 
624 

Winsock 624 
controles de la Boite a 

outils 622 
DHTML 627 
encapsulation 624 
fournisseur de services 

620 
HTML 626 
HTTP 621 
lava 627 
protocoles 620 
FTP 624 
Gopher 624 
TCP 624 
UDP 624 
serveur 636 
TCP/IP 620 
URL 621 
Internet Explorer 372, 620 

controles 625 
Internet Information Server 

Voir IIS 
Interpretes, langages 10 



Interrogations 

bases de donnees 580 
Interval, propriete 312, 574 
Intranet 620 

In visible AtRunTime, propriete 
543 

IsDate(),fonction241 
IsEmptyO, fonction 242 
IsNull(),fonction241,242 
IsNumeric(), fonction 241, 242 
Item, methode 520 
Iterations 163 

J 



Java 627 

applets 627 
Jeux d'enregistrements 583 
Jokers 146,285,403 

K 



K, Symbole d'aide RTF 649 
KERNEL3 2 .DLL 733 
KeyAscii, argument 185 
KeyCode, argument 186 
Key Down, evenement 184, 186 
KeyPress, evenement 184, 185 
Key Preview, propriete 184, 189 
Key Up, evenement 184, 187 
Kill, commande 402 
KillDoc, methode 423 

L 



Labels 54,71 

propriete AutoSize 72 
propriete Wordwrap 72 

Langages de programmation 1 , 
8 

BASIC 8-12 
C 11 
C++ 11 
compiles 10 
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Langages de programmation 


LoadNewDoc(), procedure 368 


ivlJJlCnila, propriete 3 do 


( suite ) 


LoadPicture() , fonction 60, 


Set, instruction 367 


interpretes 10 


1 71 Alt* H^yt* 

t /3, 4oo, /ZD 


versus sui j04 


Pascal 1 1 


Constantes nominees 437 


jviuiL-niiu, piopnete j do 


visual ij 


constantes nominees 438 


wig, mot cie 4zo 


visual j++ i j 


Locales, variables 230 


Membres 


Langages de scripts 


Lock Read Write, mode de 


Explorateur d'objets 524 


T4TA/TT fxT.T* 
I 1 1 IVIL Ojj 


verrouillage 383 


A/Tpniic QS 1 1 A 
ivieiius 70-i 10 


VDoCnpl 0j4 


Lock Read, mode de verrouillage 


Assistant Creation 


lhlTinTpvt ptiniipttp ZLQS 


383 


U application a yo 


J_<V^.aoC^7i lOlli-LlOU iJt, JJO 


Lock Write, mode de ver- 


V^lCaLCUl UC lllCllUs 1U1 — 


T Pacp nrnnvi pfp 


rouillage 383 


116 


Lecture/ecriture de fichiers 


Locked, propriete 73 


esperluette 22 


V Oil rtCL.CO lldllClO jOJ 


Log(), fonction 241 


OpLlUlla UUdlaUlta 1U/ 


Lert(), lonction zjz 


Logiques (operateurs) 149 


MessageoeepQ (Arl) /41 


Lett, propnete 52, 56, 6/, /0 


Long, type de donnees 148 


Me sure s 


Len() , fonction 250 


Loop, instruction V 


ScaleMode, propriete 356 


Len, option 397 


oir Do... Loop 


twips 52 


Let, instruction 132 


LostFocus(), procedure 


Methodes 


Let, procedure 553 


evenementielle 309 


Add 520 


Liaison et incorporation d'ob- 


LTrim(), fonction 254 


Addltem 30 1, 307 


jets Voir OLE 


AddNew 617 


Lie, controle 587 


M 


Circle 449 


Lien dynamique 734 


Clear 306 


Lignes (bases de donnees) 579 




Count 520 


Lignes d'emballage 1 12 


Main(), procedure 349 


Dessin 445 


Like, operateur 146 


IVlainteriance 17 


DisplayCurrentTip 499 


Line Input , commande 


Maj (souris) 298 


Drag 300 


Line, controle 439 


Aide 


EndDoc 420 


BorderColor, propriete 


fichier de projet 


rorm.Hide 346 


440 


section 657 


rorm.anow 346 


BorderStyle, propriete 440 


MAP (section du fichier de pro- 


Item 520 


Borderwidth, propriete 


ipt H'aiHp^ nS7 


KillDoc 423 


440 


MAPT3? F)T T 733 


Line 447 


Line, methode 447 


Mar>i3? txt 739 


Move 300, 556 


LisezMoi.txt, tichier 682 


IVlaLllCiiiaLlLJLlCa, UpClaLCUIa VDZ. 


MoveLast 617 


List, propriete 301 


A^ntrir'pc AOS 


MoveNext 614 


ListCount, propriete 305 


lV/IaifRiif ton nronnpfp 7 1 


MovePrevious 615 


Listlndex, propriete 304 


MaxLength, propriete 73 


NewPage 420 


List View, controle 364 


MBASIC 9 


Print 353, 700 


Litteraux 121 


MDI21,363,644 


debogage 673 


Load 


assistant Creation d' appli- 


PrintForm 427 


evenement 302 


cations 366 


PSet 445 


Load, evenement 81 


fenetre fille 366 


ReadFromFile 511 


Load_Tips(), fonction 499 


fenetre parent 365 


Remove 520,521 
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Removeltem 304 
SaveToFile510 
SetFocus 495 
Show 501 

ShowColor275,412 
ShowFont 275 
ShowHelp 275,656 
ShowOpen275,413 
ShowPrinter 275 
ShowSave 275 
Update 616, 617 
Microsoft 

site Web 533 
Word 364 

Word 97, HTML 646 
Microsoft ADO Data Control 
6.0 602 

Microsoft Calendar Control 8.0 
274 

Microsoft Common Dialog 

Control 6.0 274 
Microsoft FlexGrid Control 6.0 

703 

Microsoft Help Workshop 654 
Microsoft Jet 3 .5 1 OLE DB 

Provider 610 
Microsoft Multimedia Control 

6.0 451 
Microsoft Network 626 
Microsoft Office 14 
Microsoft Office Professionnel 

639 

Microsoft Windows Common 
Controls 6.0, composant 369, 
496 

Microsoft Windows Custom 

Controls 6.0 369 
Microsoft Windows Custom 

Controls-3 6.0 372 
Microsoft Winsock Control 6 .0 , 

controle 625 
Mid(), Sanction 252 
Migration de document 

ActiveX, assistant 628 
MinButton, propriete 71 



MkDir, commande 402 
mnuHelpAbout_Click() , 

procedure 574 
Mod, operateur 133 
Mode, propriete 457 

constantes nominees 457 
Modeles 24 

feuilles 482 

A propos de 487 
ajouter 484 
boTte de dialogue 
Connexion 493 
boTte de dialogue 
Connexion ODBC 
501 

boTte de dialogue Op- 
tions 496 
creer nouveau 502 
de Visual Basic 483 
ecran Astuce du jour 
498 

Ecran d'accueil 491 
modifier 486, 487 
Modules 118, 133 
de code 229 
Monoducument, interface Voir 
SDI 

Month(), fonction 259, 262 
Mot de passe 73, 493 
Mots cles 

ByRef 235 

ByVal 235 

Empty 125, 183 

Function 84 

Me 428 

Private 83,229 

Public 229, 231 

Sub 84 

MouseClick, evenement 55 1 
MouseDown, evenement 296, 
551 

Mouselcon, propriete 296 
MouseMove, evenement 296 
MousePointer, propriete 295 
MouseUp, evenement 296 



MouseUp, evenemente- 

venement 296 
Movable, propriete 71 
Move, methode 300, 556 
MoveLast, methode 617 
MoveNext, methode 614 
MovePrevious, methode 615 
MS Chart (Assistant Creation 

d'applications) 595 
MS HFlexGrid (Assistant 

Creation d'applications) 595 
MSDN 44, 99 
MSFlexGrid, controle 703 
MsgBox(), fonction 174,495 
boutons 177 

constantes nominees 177, 
178, 180 

icones 180 

syntaxe 175 
MsgBox, instruction 495 
MSINF032 .EXE 490 
MSMaskEdit, controle 188 
MSN 626 

Multidocument, interface 
Voir MDI 

MultiLine, propriete 73 

Multimedia controle 
lecteur video 460 

Multimedia, controle 450 
commandes 453 
DeviceType, propriete 452 
Filename, propriete 462 
lecteur de CD Audio 452 
lecteur WAV 458 
Mode, propriete 457 
PictureBox, controle 462 
StatusUpdate, evenement 
453 

Updatelnterval, propriete 
456 

Multiplication 133 
MultiSelect, propriete 327, 335 
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Name, propriete 41 , 53, 560 
Navigateur Web 23 

controle Internet 622, 624 
NETAPI32.DLL 733 
Netscape, support ActiveX 533 
New 518 

NewPage, methode 420 
Next Out, instruction 

Voir For... Next 
Next, instruction On Error 538 
Next, instruction Voir For... 

Next 
Nombres 

entiers Voir Integer 
formatage 264 
Nombres decimaux 

Voir Decimal 
Noms 

d'objets 42 
de variables 129 
Not, operateur 149 
Notation scientifique 122 
Notify, propriete 457 
Now, fonction 256 
NULL 125, 145,243 
Numeros de fichiers 383 
Numerotation hexadecimale 

103 

o 



Object, type de donnees 124, 
238,512,537 

Objets 30 

ADO 592 
classes 513, 543 
de demarrage 492 
Debug 353 
encapsulation 512 
externes 
OLE 

externes 506 



Form 349 
groupes 517 
heritage 513 
noms 42 
OLE 

enregistrer le contenu 
510 

permanent 507 

Printer 353, 419 

Printers 416 

programmation 512 

RDO 592 

Screen 346 

sous-classer 543 

systeme 514 
App 489 
App .Major 575 
App.Minor 575 
App .Revision 575 
App .Title 575 
Clipboard 516 
Debug 674 
Err 538 

Err .Number 668 
TypeOf 513 
OCX, controles 532 
ODBC (Open Database 

Connectivity) 483 
OLE (Object Linking and Em- 
bedding) 349,506 

activation in-situ 506 
automatisation in -situ 529 
conteneur 507 
controle 507 
document WordPad 509 
eobjet 

enregistrer le conte- 
nu, objet 510 
fichier binaire 510 
incorporation 506 
liaison 506 
objet permanent 507 
objets externes 506 
type d'objet 508 



On Error Goto, instruction 278, 

382,430 
On Error, instruction, Next 538 
Onglets, fenetre Boite a outils 

535 

Open, instruction 380 
Operateurs 132-135 

- 133 

& 133 

* 133 

+ 133 

/ 133 

< 144 

<= 144 

<> 144 

= 144 

> 144 

>= 144 

\ 133 

A 133 

And 149, 152 
conditionnels 144 
hierarchie 134, 150 
Like 146 
logiques 149 
mathematiques 133 
Mod 133 
Not 149 
Or 149 

surcharges 133, 145 
True 149 
Xor 149 
Optimisations avancees, compi- 
lation 679 
Option Base 1 , instruction 316 
Option Base, instruction 730 
Option Compare Text, 

instruction 146 
Option Explicit, instruction 

119, 127, 146 
OptionButton, controle Voir 

Boutons d'option 
Aide 

fichier de projet 
section 653 



> 812 



Index 



Options 

boTte de dialogue, 
verification automatique 
de la syntaxe 666 
modele de feuille 496 
OPTIONS (section du fichier 

de projet d'aide) 653 
Or, operateur 149 
Orientee objet, programmation 

512 
Outils 

de conversion, Visual 

Basic a Java 635 
Explorateur d'objets 522 
pointeur 7 1 

P 



Pages de proprietes 283 
Paint, evenement 81 
Panneau de configuration, 
Ajout/Suppression de pro- 
grammes 686 
Parentheses 

operateurs 134 
Pas a pas 672 
Pascal 1 1 
Passement 233 
controles 238 
Par reference/par valeur 
235 

PasswordChar, propriete 73, 

89,493 
P-Code (compilation) 679 
Personnaliser 

proprietes 358 
types de donnees 394 
Phase de creation/phase 

d'execution 73 
Picture, propriete 76, 174, 436 
PictureBox, controle 436, 462, 

569 

Picture, propriete 436 
Stretch, propriete 437 



Pile des appels 670 
Plusieurs-a-plusieurs, relation 
598 

Point d'insertion 74 
Pointeur d'enregistrement 591 
Pointeur de la souris 295 

constantes nominees 295 

icone 337 
Pointeur, outil 7 1 
Points d'arret 669 

multiples 672 
Police 67 

boite de dialogue 280 
Police Font, propriete 56, 68, 

193,282,424 
POO Voir Programmation, 

orientee objet 
Portee des variables 230 
PowerPoint 97 508 
Prefixes 

objets 42 
Prefixes 

tableaux 316 

variables 129 
Principale/secondaire (assistant 
Creation d' applications) 595 
Print , instruction 
Print, instruction, vers la feuille 

425,426 
Print, methode 353, 700 

CurrentX, propriete 356 

CurrentY, propriete 356 

debogage 673 

ScaleMode, propriete 356 

Spc(), fonction 354 

Tab(), fonction 355 
Printer, objet 353, 419 
Printers, collection 416 
PrintForm, methode 427 
Printform, methode 

AutoRedraw, propriete 
428 

Private 520 

Private, mot cle 83, 229 



Privees 

fonctions 236 
procedures 228 

Procedure evenementielles 82 

Procedures 59 

CenterCells()716 
chkLoadTipsAtStartupO 

499,504 
cmdAni_Click() 574 
cmdApply_Click() 497 
cmdDecrease_Click() 722 
cmdIncrease_Click() 722 
Declaration 229 
DoNextTipO 499 
Form_Load() 489,716 
Generales/de classe 226 
Get 553 
MtScrollO 716 
Let 553 

LoadNewDoc() 368 
Main() 349 

mnuHelpAbout_Click() 
574 

passement d'arguments 

233 

privees/publiques 228 
Property Get 360 
Property Let 361 
SizeCells()716 
StartSysInfo 490 
tbsOptions_Click() 497 
UserControl_Resize() 555 
Procedures evenementielles 79 
Click 185 

Form_DragDrop() 299 
Form_Load() 192,302, 
346 

Form_Resize() 412 

Form_Unload() 346 

LostFocus() 309 
Procotoles 

Internet, HTTP 621 
Professionnelle (edition Visual 
Basic) 592,627 
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ProgramFiles, variable systeme 
683 

Programmation 

erreur de logique 666 

erreur de syntaxe 665 

orientee objet 512 

retracer ses pas 670 

structuree 715 
Programmationer 

avec les objets 512 
Programmes 8 

structure 226 
Projets 20 

boite de dialogue 

Ajouter une feuille 
486 

compiler 677 

creation, assistant Creation 

d' applications 19-26 
distribution 680 
DO Document ActiveX 
627 

Exe Document ActiveX 
627 

icone de l'application 679 
Property Get, procedure 360 
Property Let, procedure 361 
Proprietes 29 

(personnalise) 283 

Align 366 

Alignment 73 

AutoActivate 509 

AutoRedraw 428 

AutoSize 72 

AutoTSize542,551 

BackColor 276, 553 

BackStyle 441 

BOF591,615 

BorderColor440,441 

BorderStyle 70, 193,440, 
441 

BorderWidth440,441 
Cancel 75 
CancelError 279 
Caption 53, 76, 193 



CellPicture 726 
Command 453 
ConnectionString 609 
ControlBox 70 
Copies 288 
Count 351,519 
CurrentX356,422 
CurrentY356,422 
DatabaseName 588 
DataField589,612 
DataSource 588,612 
Default 76,368 
DeviceType 452 
DialogTitle 276 
DragMode 299 
du projet, boite de 

dialogue, connexion de 

l'aide 655 
Enabled 108 
EOF 591,614 
Exclusive 590 
Feuilles 358 
FileName 286 
Filename 462 
Filter 285 
Filterlndex 286 
Flags 277,281,284 
Font 56, 193,282,424 
FontBold 424 
ForeColor 276 
FormatString 724 
FromPage 288 
GridLines 707 
Height 52, 56, 70 
HelpContext 656 
HelpContextID 646, 657 
HelpFile 646, 656 
Icon 71, 679 
Image 373 
Imprimante 417 
Imprimer 424 
Interval 312,574 
InvisibleAtRunTime 543 
KeyPreview 184, 189 
LCase 542 



Left 52, 56, 67, 70 
List 301 
ListCount 305 
Listlndex 304 
Locked 73 
MaxButton 71 
MaxLength 73 
MDIChild 366 
MinButton 71 
Mode 457 
Mouselcon 296 
MousePointer 295 
Movable 71 
MultiLine 73 
MultiSelect 335 
Name 41, 53, 560 
Notify 457 
Pages de 283 

PasswordChar 73, 89, 493 
personnalisees 358 
Picture 76, 174, 436 
procedure Property Get, 

procedure 360 
Property Let, procedure 

361 

RecordSource 588,612 
Resize 348 
ScaleMode 356,421 
ScrollBars 74 
SelLength516 
SelStart516 
SelText516 
ShowInTaskbar 7 1 
SizeMode 509 
Sorted 302, 306 
StartUpPosition 71, 347 
Stretch 437 
Style 76, 306 
Tablndex 77 
Text 74,303,308 
ToolboxBitmap 546 
ToolTipText 370, 642 
Top 52, 56, 67, 70 
ToPage 288 
UCase 542 
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ULText551 
Updatelnterval 456 
Value 190 
Wait 457 

WhatsThisButton 658 
WhatsThisHelp 658 
WhatsThisHelpID 658 
Width 52, 56, 70 
WindowState 71 
Wordwrap 72, 708 

Protocoles 

Internet 620 
FTP 624 
Gopher 624 
TCP 624 
TCP/IP 620 
UDP 624 

Protocoles Internet 620 

Prototype, definition 17 

PrReady (), fonction 431 

PSet, methode 445 

Pseudocode Voir P-Code 

Public 520 

instruction 316, 697 
mot cle 229, 231 

Publiques 

fonctions 236 
procedures 228, 229 

Puissance 133 

Put , instruction 



R 



Q 



QBasic 1 

Qu'est-ce que c'est ? 642 
Qualifiants 

ByRef 737 

ByVal 737 

Const 554 

New 518 

Private 520 

Public 520 
QuickBASIC 9 



Raccourcis clavier, Caption, 

propriete 190 
RDO 592 

Read Write, modes d'acces 382 
Read, modes d'acces 382 
ReadFromFile, methode 511 
Recapitulatif , fenetre 63 1 
Recordset (bases de donnees) 
583 

RecordSource, propriete 588, 

612 
Redondance 

With ... End With 513 
Relationnelles, bases de donnees 

581 
Relations 

plusieurs-a-plusieurs 598 

un-a-plusieurs 595 

un-a-un 598 
Remove, methode 520, 521 
Removeltem, methode 304 
Resize, evenement 81, 348 
Resize, propriete 348 
Reverselt(), fonction 254 
Rich Text Format Voir RTF 
Right(), fonction 252 
RmDir, commande 402 
Routines 

d' installation, tester 685 

du systeme d' exploitation 
734 
RTF 647 

aide, creercreer un fichier 
649 

chaine de contexte 648 
creer l'aide 647 
preparer le fichier des su- 

jets d'aide 647 
soulignement double 648 
soulignement simple 648 



symboles de note de bas de 

page 648 
texte masque 648 
RtrimQ, fonction 254 



Sauts hypertexte 647 

creation RTF 648 
SaveSettingO (API) 753 
SaveSetting, instruction 499 
SaveToFile, methode 510 
ScaleMode, propriete 356, 421 

constantes nominees 357 
Screen, objet 346 
Scripts 

assistant Empaquetage et 
deploiement 680 
ScrollBars, propriete 74 
SDI21 

versus MDI 364 

Voir aussi Interface mono- 
document 
Sections de declarations 119 
Select Case, instruction 156, 
176,574 

Case Else 156 
SelLength, propriete 516 
SelStart, propriete 516 
SelText, propriete 516 
SendKeys, instruction 188, 495 
Serveur 636 

Set Printer, instruction 417 
Set, instruction 367 
Set, instructionSet 537 
SetFocus, methode 495 
Setup.exe, fichier d'installation 
685 

Setup.lst, fichier d'installation 
685 

Shape, controle, 440 
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Shape, controlecontrole 

BackStyle, propriete 441 
BorderColor, propriete 
441 

B orderS tyle, propriete 441 
BorderWidth, propriete 
441 

Shared, mode de verrouillage 

383 

Shift, argument 186 
Show, methode 501 
ShowColor, methode 275, 412 
ShowFont, methode 275 
ShowHelp, methode 275, 656 
ShowInTaskbar, propriete 71 
ShowOpen, methode 275, 413 
ShowPrinter, methodes 275 
ShowSave, methode 275 
Sin(),fonction241 
Single, type de donnees 148 
SizeCells(), procedure 716 
SizeMode, propriete 509 
Snapshot (bases de donnees) 

583 
Sons 

Chimes.wav 569 
Sorted, propriete 302, 306 
Soulignement double (aide 

RTF) 648 
Soulignement simple (aide 

RTF) 648 
SourceSafe 47 
Souris 294 

Click, evenement 296 
copier-coller 294 
DblClick, evenement 296 
Drag, methode 300 
DragDrop, evenement 299 
DragMode, propriete 299 
DragOver, evenement 300 
eEvenements 294 
glisser-deposer 294, 299, 
342 

MouseDown, evenement 
296 



MouseMove, evenement 
296 

MousePointer, propriete, 
constantes nominees 295 

Move, methode 300 

pointeur 295 

touches de controles 298 
Sous-chaTnes 252 
Sous-classer 543 

un controle 546 
Sous-routines 84 

interrompre 235 
Soustraction 133 
Spc(), fonction 354, 386 
SQL 612 

Sqr(), fonction 240 
ST6UNST.LOG, fichier de de- 

sinstallation 686 
Standard (edition Visual Basic) 

586 

StartSysInfo, procedure 490 
StartUpPosition, propriete 71, 
347 

Constantes nommees 347 
StatusUpdate, evenement 453 
Step, instruction Voir For... 
Next 

Str(), fonction 250, 254 
Stretch 437 
Stretch, propriete 437 
String, type de donnees 124, 
148 

Structure de programmes 226 
Structured Query Language 

Voir SQL 
Style, propriete 76, 306 
Sub, mot cle 84 

Suffixes (types de donnees) 123 
Support technique 45 
Surcharges (operateurs) 133, 
145 

Symboles de note de bas de 

page (aide RTF) 648 
System (dossier Windows) 745 



Systeme de numerotation 
hexadecimal 103 

T 



Tab(), fonction 355,386 
Tablndex, propriete 77, 78 
Table ASCII Voir ASCII 
Tableaux 314 

a une dimension 694 

Array (), fonction 319 

boucles For 699 

cellules 696 

colonnes 695 

declaration 316 
clause To 318 

Dim, instruction 316 

indices 314,319 
Option Base 1 , 
instruction 316 

initialiser 701 

lignes 695 

multidimensionnels 694 
declaration 697 
formats de declaration 
697 

indices 695 
nombre de dimensions 697 
paralleles 321 
Public, instruction 316 
recherche de donnees 322 
types de donnees 317, 696 

Tables 695 

bases de donnees 580 

TabStrip Voir Barre d'onglets 

Tan(), fonction 241 

tbsOptions_Click(), procedure 
497 

TCP 624 

TCP/IP 620 

Temp (dossier Windows) 745 
Tests 664 

en parallele 687 

routine d' installation 685 
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Text, propriete 74, 303, 308 
TextBox, controle Voir Zones 

de texte 
TextSizeUL, controle 543 
Time, fonction 256 
Timer 310 

controle 574 

evenement 312 

fonction 257 

Interval, propriete 312 

Timer, evenement 312 
TimeSerial(), fonction 262 
TimeValue(), fonction 262 
TIP_FILE, constante 499 
Tipofday.txt, fichier 500 
Tips, collection 499 
To, instruction 318 
Toolbar, controle Voir Barres 

d'outils 368 
ToolboxBitmap, propriete 546 
ToolTipText, propriete 370, 
642 

Top, propriete 52, 56, 67, 70 
ToPage, propriete 288 
Touches de raccourci 75 
Transfert Internet, controle 624 
Transmission Control Protocol 

Voir TCP 
Tree View, controle 364 
Trigonometriques (fonctions) 

241 

Trim(), fonction 254 
Tronquer 240 
True, operateur 149 
twip 183 
twips 52 

Type, instruction 395 
TypeOf(), fonction 513 
TypeOf, instruction 513 
Types (Visionneuse d'API) 740 
Types de donnees 120-126 

API Windows 737 

Boolean 124, 148 

Byte 121, 148 

chaines 124 



conversion 241 , 248 
Currency 148 
date 124, 148 
inspection 241 
Integer 148 
Long 148 
numeriques 239 
Object 124,238,512,537 
personnalises 394 

imbrication 398 
Printer 419 
Single 148 
String 124, 148 
Suffixes 123 
Tableaux 317 
Type, instruction 395 
Variant 124, 148 

u 



UCaseO, fonction 254, 558 
UCase, propriete 542 
UDP 624 

ULText, propriete 55 1 
Un-a-plusieurs, relation 595 
Un-a-un, relation 598 
Underscore 96, 128 
Uniform Ressource Locator 

Voir URL 
Unload 

evenement 302 
Unload Me, instruction 493 
Unload, evenement 81 
Until, instruction 

Voir Do... Loop 160 
Update, methode 616, 617 
Updatelnterval, propriete 456 
URL 621 

User Datagram Protocol Voir 
UDP 

USER32.DLL 733 

UserControl_Resize(), procedu- 
re 555 

UserControll 544 



V 



Val(), fonction 250 
Valeur absolue 240 
Valeur d' index Voir Indices 
314 

Valeur de renvoi 84 
Value, propriete 190 
Variables 126-132 
automatiques 367 
compteur Voir For... Next 
de controles 238 
declaration 127 
globales 230 

emploi 495 
locales 127,230 
modifier en cours 
d' execution 673 
noms 129 
passees 233, 234 
portees 230 
prefixes 129 
statiques 367 
systeme 

AppPath 683 
ProgramFiles 683 
tableaux Voir Tableaux 
314 

Variables locales (fenetre de 

debogage) 674 
Variant, type de donnees 124, 

148 
VarType() 

constantes nominees 244 
fonction 241,244 
VBA 14 

VBD, extension 631 
vblnformation, constante 

nominee 554 
VBScript 633 

vb White, constante nommee 

554 
VBX 

controles d'extension 532 
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Verification automatique de la 

syntaxe, option 666 
Video 460 

controle PictureBox 462 
Visionneuse d'API 739 
constantes 740 
declarations 740 
option Private 739 
option Public 739 
types 740 
Visionneuses 

de fichier d'aide 647 
Visual Basic 

compilation 677 
complements 

assistant Empaque- 
tage et deploiement 
680 

assistant Interface de 
controles ActiveX 
547 

assistant Migration de 
document ActiveX 
628 

charger au demarrage 
547 

gestionnaire de 

donnees 582 
visionneuse d'API 

739 

composants, Microsoft 
ADO Data Control 6.0 
602 

conversion vers Java, 

outils 635 
Createur de menus 488 
debogueur 

utilisation 668 
dimensions des tableaux 

697 

DLL Runtime 679 
edition Entreprise 592 
editions 

Entreprise 627 



Professionnelle 592, 
627 

Standard 586 

Visual Studio 592 
exemples, Calc.Vbp 628 
mots-cles 

ByRef 737 

ByVal 737 

Const 554 

Dim 697 

New 518 

Private 520 

Public 520 
programmation structuree 
715 

Visual Basic extended 

Voir VBX 
Visual Basic for Applications 

14 

Visual C++ 13,532 
Visual J++ 13,636 
Visual Studio 13 
Visual Studio (edition Visual 
Basic) 592 

w 



Wait, propriete 457 
Wav, fichiers 567 
Weekday (), fonction 262 
WhatsThisButton, propriete 
658 

WhatsThisHelp, propriete 658 
WhatsThisHelpID, propriete 
658 

While, instruction Voir Do... 
Loop 

Width, propriete 52, 56, 70 
Win32api.txt 739 
Windows 

API 732 
Windows Help Viewer 647 
Windows Paint 546 
WindowState, propriete 71 
WinHelp, aide 645 



WINMM.DLL 733 

Winsock, controle Internet 624 

With . . . End With, instructions 

513 
WordPad 508 

WordWrap, propriete 72, 708 
World Wide Web 620 
Write , instruction 
Write, modes d'acces 382 
WYSIWYG 1 

X 

Xor, operateur 149 

Y 

Year(), fonction 259,262 

z 

Zones de liste 73, 301, 327 
Addltem, methode 301 
Clear, methode 306 
Dossier, controle 399, 401 
Fichier, controle 399, 401 
indices 305 

Lecteur, controle, controle 
399 

Lecteur, controlecontrole 
400 

List, propriete 301 
ListCount, propriete 305 
Listlndex, propriete 304 
MultiSelect, propriete 327, 
335 

Removeltem, methode 304 
simples 301 
Sorted, propriete 302 
Text, propriete 303 
Voir aussi ComboBox 306 
Zones de texte 72 
evenements 81 
proprietes 73, 89 
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• L'environnement et les outils Visual Basic 

• Gestion des contrdles 

• Contrdles, proprietes et evenements 

• Creation de menus 

• Analyse des donnees 

• Variables et expressions 

• Operateurs et instructions de contrdle 

• Support avance du clavier et de I'ecran 

• Entrees utilisateur et logique 
conditionnelle 

• Sous-routines et tonctions 

• Les boTtes de dialogue 

• Gestion de la souris et contrdles 
avances 

• Selections multiples dans une zone 
de liste 

• Pratique de la souris 

• Gestion des feuilles 

• Gestion des fichiers 

• Lire et ecrire des fichiers 

• Gestion de I'imprimante 

• Image et multimedia 

• Les barres de defilement 

• Les modeles de feuilles 

• Visual Basic et les objets 

• Contrdles ActiveX 

• Ces elements qui enjolivent les 
applications 

• Interactions avec les donnees 

• Contrdles ADO 

• Ajout d'un acces Internet 

• Fournir de I'aide 

• Distribution de vos applications 

• Tableaux multidimensionnels 

• L'API Windows 
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Grace a cet ouvrage, vous maTtriserez tres rapi- 
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